diff --git a/CHANGELOG.md b/CHANGELOG.md index a12a41cf..651b6c3f 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,3 +1,13 @@ +## Kind 1.0.112 + +- Replace syntax is like rewrite, but equality is reversed + + replace x with e in goal + + This replaces the right side of the equality by the left side in the goal + This should be more robust since it doesn't need to use mirror and, thus, + avoids some holes + ## Kind 1.0.108 - Allow "for" to be on the left side of a list comprehension diff --git a/base/Kind/Parser/term.kind b/base/Kind/Parser/term.kind index d2e776e6..8cf1e57c 100644 --- a/base/Kind/Parser/term.kind +++ b/base/Kind/Parser/term.kind @@ -33,6 +33,7 @@ Kind.Parser.term: Parser(Kind.Term) Kind.Parser.use((x) Kind.Parser.term) Kind.Parser.implicit Kind.Parser.goal_rewrite + Kind.Parser.goal_replace Kind.Parser.if Kind.Parser.char Kind.Parser.string('"') diff --git a/bin/js/package.json b/bin/js/package.json index 36b2f204..952620d0 100644 --- a/bin/js/package.json +++ b/bin/js/package.json @@ -1,6 +1,6 @@ { "name": "kind-lang", - "version": "1.0.111", + "version": "1.0.112", "description": "Kind-Lang in JavaScript", "main": "src/kind.js", "scripts": { diff --git a/bin/js/src/kind.js b/bin/js/src/kind.js index b9e151df..08fbce17 100644 --- a/bin/js/src/kind.js +++ b/bin/js/src/kind.js @@ -20591,12 +20591,12 @@ module.exports = (function() { }; return $6297; })); - const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { + const Kind$Parser$goal_replace = Kind$Parser$block("goal-replace")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': var $6410 = self.err; - var _reply$7 = Kind$Parser$text$("if ", _pst$1); + var _reply$7 = Kind$Parser$text$("replace ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': @@ -20630,7 +20630,7 @@ module.exports = (function() { switch (self._) { case 'Parser.State.new': var $6425 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': @@ -20665,7 +20665,7 @@ module.exports = (function() { switch (self._) { case 'Parser.State.new': var $6441 = self.err; - var _reply$35 = Kind$Parser$text$("then", _reply$pst$29); + var _reply$35 = Kind$Parser$text$("with", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': @@ -20734,7 +20734,7 @@ module.exports = (function() { switch (self._) { case 'Parser.State.new': var $6472 = self.err; - var _reply$63 = Kind$Parser$text$("else", _reply$pst$57); + var _reply$63 = Kind$Parser$text$("in", _reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': @@ -20799,14 +20799,61 @@ module.exports = (function() { var $6500 = self.idx; var $6501 = self.str; var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6487, $6497), $6498, $6499, $6500, $6501); - var _term$86 = $6433; - var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { - var $6503 = Kind$Term$hol$(Bits$e); - return $6503; - }))); - var _term$88 = Kind$Term$app$(_term$87, $6464); - var _term$89 = Kind$Term$app$(_term$88, $6495); - var $6502 = Parser$Reply$value$(_reply$pst$85, _term$89); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $6503 = self.err; + var _reply$91 = Kind$Parser$term(_reply$pst$85); + var self = _reply$91; + 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$99 = Parser$State$new$(Parser$Error$maybe_combine$($6503, $6513), $6514, $6515, $6516, $6517); + var _moti$100 = Kind$Term$lam$($6433, (_s$100 => { + var $6519 = Kind$Term$lam$("", (_x$101 => { + var $6520 = $6495; + return $6520; + })); + return $6519; + })); + var _term$101 = $6464; + var _term$102 = Kind$Term$app$(_term$101, _moti$100); + var _term$103 = Kind$Term$app$(_term$102, $6511); + var $6518 = Parser$Reply$value$(_reply$pst$99, _term$103); + var $6512 = $6518; + break; + }; + var $6504 = $6512; + break; + }; + var $6502 = $6504; + break; + }; var $6496 = $6502; break; }; @@ -20863,199 +20910,471 @@ module.exports = (function() { }; return $6409; })); + const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6522 = self.err; + var _reply$7 = Kind$Parser$text$("if ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6524 = self.err; + var self = $6522; + switch (self._) { + case 'Maybe.some': + var $6526 = self.value; + var $6527 = Parser$Reply$error$(Parser$Error$combine$($6526, $6524)); + var $6525 = $6527; + break; + case 'Maybe.none': + var $6528 = Parser$Reply$error$($6524); + var $6525 = $6528; + break; + }; + var $6523 = $6525; + break; + case 'Parser.Reply.value': + var $6529 = self.pst; + var self = $6529; + switch (self._) { + case 'Parser.State.new': + var $6531 = self.err; + var $6532 = self.nam; + var $6533 = self.ini; + var $6534 = self.idx; + var $6535 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6522, $6531), $6532, $6533, $6534, $6535); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6537 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6539 = self.err; + var self = $6537; + switch (self._) { + case 'Maybe.some': + var $6541 = self.value; + var $6542 = Parser$Reply$error$(Parser$Error$combine$($6541, $6539)); + var $6540 = $6542; + break; + case 'Maybe.none': + var $6543 = Parser$Reply$error$($6539); + var $6540 = $6543; + break; + }; + var $6538 = $6540; + break; + case 'Parser.Reply.value': + var $6544 = self.pst; + var $6545 = self.val; + var self = $6544; + switch (self._) { + case 'Parser.State.new': + var $6547 = self.err; + var $6548 = self.nam; + var $6549 = self.ini; + var $6550 = self.idx; + var $6551 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6537, $6547), $6548, $6549, $6550, $6551); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6553 = self.err; + var _reply$35 = Kind$Parser$text$("then", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6555 = self.err; + var self = $6553; + switch (self._) { + case 'Maybe.some': + var $6557 = self.value; + var $6558 = Parser$Reply$error$(Parser$Error$combine$($6557, $6555)); + var $6556 = $6558; + break; + case 'Maybe.none': + var $6559 = Parser$Reply$error$($6555); + var $6556 = $6559; + break; + }; + var $6554 = $6556; + break; + case 'Parser.Reply.value': + var $6560 = self.pst; + var self = $6560; + switch (self._) { + case 'Parser.State.new': + var $6562 = self.err; + var $6563 = self.nam; + var $6564 = self.ini; + var $6565 = self.idx; + var $6566 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6553, $6562), $6563, $6564, $6565, $6566); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6568 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6570 = self.err; + var self = $6568; + switch (self._) { + case 'Maybe.some': + var $6572 = self.value; + var $6573 = Parser$Reply$error$(Parser$Error$combine$($6572, $6570)); + var $6571 = $6573; + break; + case 'Maybe.none': + var $6574 = Parser$Reply$error$($6570); + var $6571 = $6574; + break; + }; + var $6569 = $6571; + break; + case 'Parser.Reply.value': + var $6575 = self.pst; + var $6576 = self.val; + var self = $6575; + switch (self._) { + case 'Parser.State.new': + var $6578 = self.err; + var $6579 = self.nam; + var $6580 = self.ini; + var $6581 = self.idx; + var $6582 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6568, $6578), $6579, $6580, $6581, $6582); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6584 = self.err; + var _reply$63 = Kind$Parser$text$("else", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6586 = self.err; + var self = $6584; + switch (self._) { + case 'Maybe.some': + var $6588 = self.value; + var $6589 = Parser$Reply$error$(Parser$Error$combine$($6588, $6586)); + var $6587 = $6589; + break; + case 'Maybe.none': + var $6590 = Parser$Reply$error$($6586); + var $6587 = $6590; + break; + }; + var $6585 = $6587; + break; + case 'Parser.Reply.value': + var $6591 = self.pst; + var self = $6591; + switch (self._) { + case 'Parser.State.new': + var $6593 = self.err; + var $6594 = self.nam; + var $6595 = self.ini; + var $6596 = self.idx; + var $6597 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6584, $6593), $6594, $6595, $6596, $6597); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $6599 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $6601 = self.err; + var self = $6599; + switch (self._) { + case 'Maybe.some': + var $6603 = self.value; + var $6604 = Parser$Reply$error$(Parser$Error$combine$($6603, $6601)); + var $6602 = $6604; + break; + case 'Maybe.none': + var $6605 = Parser$Reply$error$($6601); + var $6602 = $6605; + break; + }; + var $6600 = $6602; + break; + case 'Parser.Reply.value': + var $6606 = self.pst; + var $6607 = self.val; + var self = $6606; + switch (self._) { + case 'Parser.State.new': + var $6609 = self.err; + var $6610 = self.nam; + var $6611 = self.ini; + var $6612 = self.idx; + var $6613 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6599, $6609), $6610, $6611, $6612, $6613); + var _term$86 = $6545; + var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { + var $6615 = Kind$Term$hol$(Bits$e); + return $6615; + }))); + var _term$88 = Kind$Term$app$(_term$87, $6576); + var _term$89 = Kind$Term$app$(_term$88, $6607); + var $6614 = Parser$Reply$value$(_reply$pst$85, _term$89); + var $6608 = $6614; + break; + }; + var $6600 = $6608; + break; + }; + var $6598 = $6600; + break; + }; + var $6592 = $6598; + break; + }; + var $6585 = $6592; + break; + }; + var $6583 = $6585; + break; + }; + var $6577 = $6583; + break; + }; + var $6569 = $6577; + break; + }; + var $6567 = $6569; + break; + }; + var $6561 = $6567; + break; + }; + var $6554 = $6561; + break; + }; + var $6552 = $6554; + break; + }; + var $6546 = $6552; + break; + }; + var $6538 = $6546; + break; + }; + var $6536 = $6538; + break; + }; + var $6530 = $6536; + break; + }; + var $6523 = $6530; + break; + }; + var $6521 = $6523; + break; + }; + return $6521; + })); 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 $6505 = self.fst; - var $6506 = self.snd; - var $6507 = (_pst$4 => { + var $6617 = self.fst; + var $6618 = self.snd; + var $6619 = (_pst$4 => { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $6509 = self.err; - var _reply$10 = Parser$text$($6505, _pst$4); + var $6621 = self.err; + var _reply$10 = Parser$text$($6617, _pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $6511 = self.err; - var self = $6509; + var $6623 = self.err; + var self = $6621; switch (self._) { case 'Maybe.some': - var $6513 = self.value; - var $6514 = Parser$Reply$error$(Parser$Error$combine$($6513, $6511)); - var $6512 = $6514; + var $6625 = self.value; + var $6626 = Parser$Reply$error$(Parser$Error$combine$($6625, $6623)); + var $6624 = $6626; break; case 'Maybe.none': - var $6515 = Parser$Reply$error$($6511); - var $6512 = $6515; + var $6627 = Parser$Reply$error$($6623); + var $6624 = $6627; break; }; - var $6510 = $6512; + var $6622 = $6624; break; case 'Parser.Reply.value': - var $6516 = self.pst; - var self = $6516; + var $6628 = self.pst; + var self = $6628; switch (self._) { case 'Parser.State.new': - var $6518 = self.err; - var $6519 = self.nam; - var $6520 = self.ini; - var $6521 = self.idx; - var $6522 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6509, $6518), $6519, $6520, $6521, $6522); - var $6523 = Parser$Reply$value$(_reply$pst$18, $6506); - var $6517 = $6523; + var $6630 = self.err; + var $6631 = self.nam; + var $6632 = self.ini; + var $6633 = self.idx; + var $6634 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6621, $6630), $6631, $6632, $6633, $6634); + var $6635 = Parser$Reply$value$(_reply$pst$18, $6618); + var $6629 = $6635; break; }; - var $6510 = $6517; + var $6622 = $6629; break; }; - var $6508 = $6510; + var $6620 = $6622; break; }; - return $6508; + return $6620; }); - var $6504 = $6507; + var $6616 = $6619; break; }; - return $6504; + return $6616; }))), 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 $6525 = self.err; + var $6637 = self.err; var _reply$7 = Kind$Parser$text$("\'", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $6527 = self.err; - var self = $6525; + var $6639 = self.err; + var self = $6637; switch (self._) { case 'Maybe.some': - var $6529 = self.value; - var $6530 = Parser$Reply$error$(Parser$Error$combine$($6529, $6527)); - var $6528 = $6530; + var $6641 = self.value; + var $6642 = Parser$Reply$error$(Parser$Error$combine$($6641, $6639)); + var $6640 = $6642; break; case 'Maybe.none': - var $6531 = Parser$Reply$error$($6527); - var $6528 = $6531; + var $6643 = Parser$Reply$error$($6639); + var $6640 = $6643; break; }; - var $6526 = $6528; + var $6638 = $6640; break; case 'Parser.Reply.value': - var $6532 = self.pst; - var self = $6532; + var $6644 = self.pst; + var self = $6644; switch (self._) { case 'Parser.State.new': - var $6534 = self.err; - var $6535 = self.nam; - var $6536 = self.ini; - var $6537 = self.idx; - var $6538 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6525, $6534), $6535, $6536, $6537, $6538); + var $6646 = self.err; + var $6647 = self.nam; + var $6648 = self.ini; + var $6649 = self.idx; + var $6650 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6637, $6646), $6647, $6648, $6649, $6650); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $6540 = self.err; + var $6652 = self.err; var _reply$21 = Kind$Parser$char$single(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $6542 = self.err; - var self = $6540; + var $6654 = self.err; + var self = $6652; switch (self._) { case 'Maybe.some': - var $6544 = self.value; - var $6545 = Parser$Reply$error$(Parser$Error$combine$($6544, $6542)); - var $6543 = $6545; + var $6656 = self.value; + var $6657 = Parser$Reply$error$(Parser$Error$combine$($6656, $6654)); + var $6655 = $6657; break; case 'Maybe.none': - var $6546 = Parser$Reply$error$($6542); - var $6543 = $6546; + var $6658 = Parser$Reply$error$($6654); + var $6655 = $6658; break; }; - var $6541 = $6543; + var $6653 = $6655; break; case 'Parser.Reply.value': - var $6547 = self.pst; - var $6548 = self.val; - var self = $6547; + var $6659 = self.pst; + var $6660 = self.val; + var self = $6659; switch (self._) { case 'Parser.State.new': - var $6550 = self.err; - var $6551 = self.nam; - var $6552 = self.ini; - var $6553 = self.idx; - var $6554 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6540, $6550), $6551, $6552, $6553, $6554); + var $6662 = self.err; + var $6663 = self.nam; + var $6664 = self.ini; + var $6665 = self.idx; + var $6666 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6652, $6662), $6663, $6664, $6665, $6666); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $6556 = self.err; + var $6668 = self.err; var _reply$35 = Kind$Parser$text$("\'", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $6558 = self.err; - var self = $6556; + var $6670 = self.err; + var self = $6668; switch (self._) { case 'Maybe.some': - var $6560 = self.value; - var $6561 = Parser$Reply$error$(Parser$Error$combine$($6560, $6558)); - var $6559 = $6561; + var $6672 = self.value; + var $6673 = Parser$Reply$error$(Parser$Error$combine$($6672, $6670)); + var $6671 = $6673; break; case 'Maybe.none': - var $6562 = Parser$Reply$error$($6558); - var $6559 = $6562; + var $6674 = Parser$Reply$error$($6670); + var $6671 = $6674; break; }; - var $6557 = $6559; + var $6669 = $6671; break; case 'Parser.Reply.value': - var $6563 = self.pst; - var self = $6563; + var $6675 = self.pst; + var self = $6675; 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$43 = Parser$State$new$(Parser$Error$maybe_combine$($6556, $6565), $6566, $6567, $6568, $6569); - var $6570 = Parser$Reply$value$(_reply$pst$43, Kind$Term$chr$($6548)); - var $6564 = $6570; + var $6677 = self.err; + var $6678 = self.nam; + var $6679 = self.ini; + var $6680 = self.idx; + var $6681 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6668, $6677), $6678, $6679, $6680, $6681); + var $6682 = Parser$Reply$value$(_reply$pst$43, Kind$Term$chr$($6660)); + var $6676 = $6682; break; }; - var $6557 = $6564; + var $6669 = $6676; break; }; - var $6555 = $6557; + var $6667 = $6669; break; }; - var $6549 = $6555; + var $6661 = $6667; break; }; - var $6541 = $6549; + var $6653 = $6661; break; }; - var $6539 = $6541; + var $6651 = $6653; break; }; - var $6533 = $6539; + var $6645 = $6651; break; }; - var $6526 = $6533; + var $6638 = $6645; break; }; - var $6524 = $6526; + var $6636 = $6638; break; }; - return $6524; + return $6636; })); function Kind$Parser$string$go$(_delim$1, _str$2, _pst$3) { @@ -21071,43 +21390,43 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $6571 = self.err; - var $6572 = self.nam; - var $6573 = self.ini; - var $6574 = self.idx; - var $6575 = self.str; - var self = $6575; + var $6683 = self.err; + var $6684 = self.nam; + var $6685 = self.ini; + var $6686 = self.idx; + var $6687 = self.str; + var self = $6687; if (self.length === 0) { - var $6577 = Parser$Reply$fail$($6572, $6573, $6574, "Non-terminating string."); - var $6576 = $6577; + var $6689 = Parser$Reply$fail$($6684, $6685, $6686, "Non-terminating string."); + var $6688 = $6689; } else { - var $6578 = self.charCodeAt(0); - var $6579 = self.slice(1); - var self = ($6578 === _delim$1); + var $6690 = self.charCodeAt(0); + var $6691 = self.slice(1); + var self = ($6690 === _delim$1); if (self) { - var _pst$11 = Parser$State$new$($6571, $6572, $6573, Nat$succ$($6574), $6579); - var $6581 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); - var $6580 = $6581; + var _pst$11 = Parser$State$new$($6683, $6684, $6685, Nat$succ$($6686), $6691); + var $6693 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); + var $6692 = $6693; } else { var self = Kind$Parser$char$single(_pst$3); switch (self._) { case 'Parser.Reply.error': - var $6583 = self.err; - var $6584 = Parser$Reply$error$($6583); - var $6582 = $6584; + var $6695 = self.err; + var $6696 = Parser$Reply$error$($6695); + var $6694 = $6696; break; case 'Parser.Reply.value': - var $6585 = self.pst; - var $6586 = self.val; - var $6587 = Kind$Parser$string$go$(_delim$1, String$cons$($6586, _str$2), $6585); - var $6582 = $6587; + var $6697 = self.pst; + var $6698 = self.val; + var $6699 = Kind$Parser$string$go$(_delim$1, String$cons$($6698, _str$2), $6697); + var $6694 = $6699; break; }; - var $6580 = $6582; + var $6692 = $6694; }; - var $6576 = $6580; + var $6688 = $6692; }; - return $6576; + return $6688; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -21117,573 +21436,254 @@ module.exports = (function() { const Kind$Parser$string$go = x0 => x1 => x2 => Kind$Parser$string$go$(x0, x1, x2); function Kind$Parser$string$(_delim$1) { - var $6588 = Kind$Parser$block("string")((_pst$2 => { + var $6700 = Kind$Parser$block("string")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $6590 = self.err; + var $6702 = 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 $6592 = self.err; - var self = $6590; + var $6704 = self.err; + var self = $6702; switch (self._) { case 'Maybe.some': - var $6594 = self.value; - var $6595 = Parser$Reply$error$(Parser$Error$combine$($6594, $6592)); - var $6593 = $6595; + var $6706 = self.value; + var $6707 = Parser$Reply$error$(Parser$Error$combine$($6706, $6704)); + var $6705 = $6707; break; case 'Maybe.none': - var $6596 = Parser$Reply$error$($6592); - var $6593 = $6596; + var $6708 = Parser$Reply$error$($6704); + var $6705 = $6708; break; }; - var $6591 = $6593; + var $6703 = $6705; break; case 'Parser.Reply.value': - var $6597 = self.pst; - var self = $6597; + var $6709 = self.pst; + var self = $6709; switch (self._) { case 'Parser.State.new': - var $6599 = self.err; - var $6600 = self.nam; - var $6601 = self.ini; - var $6602 = self.idx; - var $6603 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6590, $6599), $6600, $6601, $6602, $6603); + var $6711 = self.err; + var $6712 = self.nam; + var $6713 = self.ini; + var $6714 = self.idx; + var $6715 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6702, $6711), $6712, $6713, $6714, $6715); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $6605 = self.err; + var $6717 = 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 $6607 = self.err; - var self = $6605; + var $6719 = self.err; + var self = $6717; switch (self._) { case 'Maybe.some': - var $6609 = self.value; - var $6610 = Parser$Reply$error$(Parser$Error$combine$($6609, $6607)); - var $6608 = $6610; + var $6721 = self.value; + var $6722 = Parser$Reply$error$(Parser$Error$combine$($6721, $6719)); + var $6720 = $6722; break; case 'Maybe.none': - var $6611 = Parser$Reply$error$($6607); - var $6608 = $6611; + var $6723 = Parser$Reply$error$($6719); + var $6720 = $6723; break; }; - var $6606 = $6608; + var $6718 = $6720; break; case 'Parser.Reply.value': - var $6612 = self.pst; - var $6613 = self.val; - var self = $6612; + var $6724 = self.pst; + var $6725 = self.val; + var self = $6724; switch (self._) { case 'Parser.State.new': - var $6615 = self.err; - var $6616 = self.nam; - var $6617 = self.ini; - var $6618 = self.idx; - var $6619 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6605, $6615), $6616, $6617, $6618, $6619); - var $6620 = Parser$Reply$value$(_reply$pst$30, Kind$Term$str$($6613)); - var $6614 = $6620; + var $6727 = self.err; + var $6728 = self.nam; + var $6729 = self.ini; + var $6730 = self.idx; + var $6731 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6717, $6727), $6728, $6729, $6730, $6731); + var $6732 = Parser$Reply$value$(_reply$pst$30, Kind$Term$str$($6725)); + var $6726 = $6732; break; }; - var $6606 = $6614; + var $6718 = $6726; break; }; - var $6604 = $6606; + var $6716 = $6718; break; }; - var $6598 = $6604; + var $6710 = $6716; break; }; - var $6591 = $6598; + var $6703 = $6710; break; }; - var $6589 = $6591; + var $6701 = $6703; break; }; - return $6589; + return $6701; })); - return $6588; + return $6700; }; const Kind$Parser$string = x0 => Kind$Parser$string$(x0); function Kind$Parser$items1$(_ini$2, _parser$3, _end$4) { - var $6621 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { + var $6733 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $6623 = self.err; + var $6735 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $6625 = self.err; - var self = $6623; + var $6737 = self.err; + var self = $6735; switch (self._) { case 'Maybe.some': - var $6627 = self.value; - var $6628 = Parser$Reply$error$(Parser$Error$combine$($6627, $6625)); - var $6626 = $6628; + var $6739 = self.value; + var $6740 = Parser$Reply$error$(Parser$Error$combine$($6739, $6737)); + var $6738 = $6740; break; case 'Maybe.none': - var $6629 = Parser$Reply$error$($6625); - var $6626 = $6629; + var $6741 = Parser$Reply$error$($6737); + var $6738 = $6741; break; }; - var $6624 = $6626; + var $6736 = $6738; break; case 'Parser.Reply.value': - var $6630 = self.pst; - var self = $6630; + var $6742 = self.pst; + var self = $6742; switch (self._) { case 'Parser.State.new': - var $6632 = self.err; - var $6633 = self.nam; - var $6634 = self.ini; - var $6635 = self.idx; - var $6636 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($6623, $6632), $6633, $6634, $6635, $6636); + var $6744 = self.err; + var $6745 = self.nam; + var $6746 = self.ini; + var $6747 = self.idx; + var $6748 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($6735, $6744), $6745, $6746, $6747, $6748); var self = _reply$pst$19; switch (self._) { case 'Parser.State.new': - var $6638 = self.err; + var $6750 = self.err; var _reply$25 = _parser$3(_reply$pst$19); var self = _reply$25; switch (self._) { case 'Parser.Reply.error': - var $6640 = self.err; - var self = $6638; + var $6752 = self.err; + var self = $6750; switch (self._) { case 'Maybe.some': - var $6642 = self.value; - var $6643 = Parser$Reply$error$(Parser$Error$combine$($6642, $6640)); - var $6641 = $6643; + var $6754 = self.value; + var $6755 = Parser$Reply$error$(Parser$Error$combine$($6754, $6752)); + var $6753 = $6755; break; case 'Maybe.none': - var $6644 = Parser$Reply$error$($6640); - var $6641 = $6644; + var $6756 = Parser$Reply$error$($6752); + var $6753 = $6756; break; }; - var $6639 = $6641; + var $6751 = $6753; break; case 'Parser.Reply.value': - var $6645 = self.pst; - var $6646 = self.val; - var self = $6645; + var $6757 = self.pst; + var $6758 = self.val; + var self = $6757; switch (self._) { case 'Parser.State.new': - var $6648 = self.err; - var $6649 = self.nam; - var $6650 = self.ini; - var $6651 = self.idx; - var $6652 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6638, $6648), $6649, $6650, $6651, $6652); + var $6760 = self.err; + var $6761 = self.nam; + var $6762 = self.ini; + var $6763 = self.idx; + var $6764 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6750, $6760), $6761, $6762, $6763, $6764); var self = _reply$pst$33; switch (self._) { case 'Parser.State.new': - var $6654 = self.err; + var $6766 = self.err; var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); var self = _reply$39; switch (self._) { case 'Parser.Reply.error': - var $6656 = self.err; - var self = $6654; + var $6768 = self.err; + var self = $6766; switch (self._) { case 'Maybe.some': - var $6658 = self.value; - var $6659 = Parser$Reply$error$(Parser$Error$combine$($6658, $6656)); - var $6657 = $6659; + var $6770 = self.value; + var $6771 = Parser$Reply$error$(Parser$Error$combine$($6770, $6768)); + var $6769 = $6771; break; case 'Maybe.none': - var $6660 = Parser$Reply$error$($6656); - var $6657 = $6660; + var $6772 = Parser$Reply$error$($6768); + var $6769 = $6772; break; }; - var $6655 = $6657; + var $6767 = $6769; break; case 'Parser.Reply.value': - var $6661 = self.pst; - var self = $6661; + var $6773 = self.pst; + var self = $6773; switch (self._) { case 'Parser.State.new': - var $6663 = self.err; - var $6664 = self.nam; - var $6665 = self.ini; - var $6666 = self.idx; - var $6667 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($6654, $6663), $6664, $6665, $6666, $6667); - var $6668 = Parser$Reply$value$(_reply$pst$47, $6646); - var $6662 = $6668; + var $6775 = self.err; + var $6776 = self.nam; + var $6777 = self.ini; + var $6778 = self.idx; + var $6779 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($6766, $6775), $6776, $6777, $6778, $6779); + var $6780 = Parser$Reply$value$(_reply$pst$47, $6758); + var $6774 = $6780; break; }; - var $6655 = $6662; + var $6767 = $6774; break; }; - var $6653 = $6655; + var $6765 = $6767; break; }; - var $6647 = $6653; + var $6759 = $6765; break; }; - var $6639 = $6647; + var $6751 = $6759; break; }; - var $6637 = $6639; + var $6749 = $6751; break; }; - var $6631 = $6637; + var $6743 = $6749; break; }; - var $6624 = $6631; + var $6736 = $6743; break; }; - var $6622 = $6624; + var $6734 = $6736; break; }; - return $6622; + return $6734; }))(Kind$Parser$text(_end$4)); - return $6621; + return $6733; }; const Kind$Parser$items1 = x0 => x1 => x2 => Kind$Parser$items1$(x0, x1, x2); function Kind$Term$new$(_args$1) { - var $6669 = ({ + var $6781 = ({ _: 'Kind.Term.new', 'args': _args$1 }); - return $6669; + return $6781; }; 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 $6671 = self.err; - var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6673 = self.err; - var self = $6671; - switch (self._) { - case 'Maybe.some': - var $6675 = self.value; - var $6676 = Parser$Reply$error$(Parser$Error$combine$($6675, $6673)); - var $6674 = $6676; - break; - case 'Maybe.none': - var $6677 = Parser$Reply$error$($6673); - var $6674 = $6677; - break; - }; - var $6672 = $6674; - break; - case 'Parser.Reply.value': - var $6678 = self.pst; - var $6679 = self.val; - var self = $6678; - switch (self._) { - case 'Parser.State.new': - var $6681 = self.err; - var $6682 = self.nam; - var $6683 = self.ini; - var $6684 = self.idx; - var $6685 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6671, $6681), $6682, $6683, $6684, $6685); - var $6686 = Parser$Reply$value$(_reply$pst$15, Kind$Term$new$($6679)); - var $6680 = $6686; - break; - }; - var $6672 = $6680; - break; - }; - var $6670 = $6672; - break; - }; - return $6670; - })); - const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6688 = self.err; - var _reply$7 = Kind$Parser$text$("[", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6690 = self.err; - var self = $6688; - switch (self._) { - case 'Maybe.some': - var $6692 = self.value; - var $6693 = Parser$Reply$error$(Parser$Error$combine$($6692, $6690)); - var $6691 = $6693; - break; - case 'Maybe.none': - var $6694 = Parser$Reply$error$($6690); - var $6691 = $6694; - break; - }; - var $6689 = $6691; - break; - case 'Parser.Reply.value': - var $6695 = self.pst; - var self = $6695; - switch (self._) { - case 'Parser.State.new': - var $6697 = self.err; - var $6698 = self.nam; - var $6699 = self.ini; - var $6700 = self.idx; - var $6701 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6688, $6697), $6698, $6699, $6700, $6701); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6703 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6705 = self.err; - var self = $6703; - switch (self._) { - case 'Maybe.some': - var $6707 = self.value; - var $6708 = Parser$Reply$error$(Parser$Error$combine$($6707, $6705)); - var $6706 = $6708; - break; - case 'Maybe.none': - var $6709 = Parser$Reply$error$($6705); - var $6706 = $6709; - break; - }; - var $6704 = $6706; - break; - case 'Parser.Reply.value': - var $6710 = self.pst; - var $6711 = self.val; - var self = $6710; - switch (self._) { - case 'Parser.State.new': - var $6713 = self.err; - var $6714 = self.nam; - var $6715 = self.ini; - var $6716 = self.idx; - var $6717 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6703, $6713), $6714, $6715, $6716, $6717); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6719 = self.err; - var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6721 = self.err; - var self = $6719; - switch (self._) { - case 'Maybe.some': - var $6723 = self.value; - var $6724 = Parser$Reply$error$(Parser$Error$combine$($6723, $6721)); - var $6722 = $6724; - break; - case 'Maybe.none': - var $6725 = Parser$Reply$error$($6721); - var $6722 = $6725; - break; - }; - var $6720 = $6722; - break; - case 'Parser.Reply.value': - var $6726 = self.pst; - var self = $6726; - switch (self._) { - case 'Parser.State.new': - var $6728 = self.err; - var $6729 = self.nam; - var $6730 = self.ini; - var $6731 = self.idx; - var $6732 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6719, $6728), $6729, $6730, $6731, $6732); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $6734 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $6736 = self.err; - var self = $6734; - switch (self._) { - case 'Maybe.some': - var $6738 = self.value; - var $6739 = Parser$Reply$error$(Parser$Error$combine$($6738, $6736)); - var $6737 = $6739; - break; - case 'Maybe.none': - var $6740 = Parser$Reply$error$($6736); - var $6737 = $6740; - break; - }; - var $6735 = $6737; - break; - case 'Parser.Reply.value': - var $6741 = self.pst; - var $6742 = self.val; - var self = $6741; - switch (self._) { - case 'Parser.State.new': - var $6744 = self.err; - var $6745 = self.nam; - var $6746 = self.ini; - var $6747 = self.idx; - var $6748 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6734, $6744), $6745, $6746, $6747, $6748); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $6750 = self.err; - var _reply$63 = Kind$Parser$text$("]", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $6752 = self.err; - var self = $6750; - switch (self._) { - case 'Maybe.some': - var $6754 = self.value; - var $6755 = Parser$Reply$error$(Parser$Error$combine$($6754, $6752)); - var $6753 = $6755; - break; - case 'Maybe.none': - var $6756 = Parser$Reply$error$($6752); - var $6753 = $6756; - break; - }; - var $6751 = $6753; - break; - case 'Parser.Reply.value': - var $6757 = self.pst; - var self = $6757; - switch (self._) { - case 'Parser.State.new': - var $6759 = self.err; - var $6760 = self.nam; - var $6761 = self.ini; - var $6762 = self.idx; - var $6763 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6750, $6759), $6760, $6761, $6762, $6763); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $6765 = self.err; - var _reply$77 = Kind$Parser$term(_reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $6767 = self.err; - var self = $6765; - switch (self._) { - case 'Maybe.some': - var $6769 = self.value; - var $6770 = Parser$Reply$error$(Parser$Error$combine$($6769, $6767)); - var $6768 = $6770; - break; - case 'Maybe.none': - var $6771 = Parser$Reply$error$($6767); - var $6768 = $6771; - break; - }; - var $6766 = $6768; - break; - case 'Parser.Reply.value': - var $6772 = self.pst; - var $6773 = self.val; - var self = $6772; - switch (self._) { - case 'Parser.State.new': - var $6775 = self.err; - var $6776 = self.nam; - var $6777 = self.ini; - var $6778 = self.idx; - var $6779 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6765, $6775), $6776, $6777, $6778, $6779); - var _term$86 = Kind$Term$ref$("Sigma"); - var _term$87 = Kind$Term$app$(_term$86, $6742); - var _term$88 = Kind$Term$app$(_term$87, Kind$Term$lam$($6711, (_x$88 => { - var $6781 = $6773; - return $6781; - }))); - var $6780 = Parser$Reply$value$(_reply$pst$85, _term$88); - var $6774 = $6780; - break; - }; - var $6766 = $6774; - break; - }; - var $6764 = $6766; - break; - }; - var $6758 = $6764; - break; - }; - var $6751 = $6758; - break; - }; - var $6749 = $6751; - break; - }; - var $6743 = $6749; - break; - }; - var $6735 = $6743; - break; - }; - var $6733 = $6735; - break; - }; - var $6727 = $6733; - break; - }; - var $6720 = $6727; - break; - }; - var $6718 = $6720; - break; - }; - var $6712 = $6718; - break; - }; - var $6704 = $6712; - break; - }; - var $6702 = $6704; - break; - }; - var $6696 = $6702; - break; - }; - var $6689 = $6696; - break; - }; - var $6687 = $6689; - break; - }; - return $6687; - })); - const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': var $6783 = self.err; - var _reply$7 = Kind$Parser$text$("some(", _pst$1); + var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': @@ -21704,110 +21704,21 @@ module.exports = (function() { break; case 'Parser.Reply.value': var $6790 = self.pst; + var $6791 = self.val; var self = $6790; switch (self._) { case 'Parser.State.new': - var $6792 = self.err; - var $6793 = self.nam; - var $6794 = self.ini; - var $6795 = self.idx; - var $6796 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6783, $6792), $6793, $6794, $6795, $6796); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6798 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6800 = self.err; - var self = $6798; - switch (self._) { - case 'Maybe.some': - var $6802 = self.value; - var $6803 = Parser$Reply$error$(Parser$Error$combine$($6802, $6800)); - var $6801 = $6803; - break; - case 'Maybe.none': - var $6804 = Parser$Reply$error$($6800); - var $6801 = $6804; - break; - }; - var $6799 = $6801; - break; - case 'Parser.Reply.value': - var $6805 = self.pst; - var $6806 = self.val; - var self = $6805; - switch (self._) { - case 'Parser.State.new': - var $6808 = self.err; - var $6809 = self.nam; - var $6810 = self.ini; - var $6811 = self.idx; - var $6812 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6798, $6808), $6809, $6810, $6811, $6812); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6814 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6816 = self.err; - var self = $6814; - switch (self._) { - case 'Maybe.some': - var $6818 = self.value; - var $6819 = Parser$Reply$error$(Parser$Error$combine$($6818, $6816)); - var $6817 = $6819; - break; - case 'Maybe.none': - var $6820 = Parser$Reply$error$($6816); - var $6817 = $6820; - break; - }; - var $6815 = $6817; - break; - case 'Parser.Reply.value': - var $6821 = self.pst; - var self = $6821; - switch (self._) { - case 'Parser.State.new': - var $6823 = self.err; - var $6824 = self.nam; - var $6825 = self.ini; - var $6826 = self.idx; - var $6827 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6814, $6823), $6824, $6825, $6826, $6827); - 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, $6806); - var $6828 = Parser$Reply$value$(_reply$pst$43, _term$46); - var $6822 = $6828; - break; - }; - var $6815 = $6822; - break; - }; - var $6813 = $6815; - break; - }; - var $6807 = $6813; - break; - }; - var $6799 = $6807; - break; - }; - var $6797 = $6799; - break; - }; - var $6791 = $6797; + var $6793 = self.err; + var $6794 = self.nam; + var $6795 = self.ini; + var $6796 = self.idx; + var $6797 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6783, $6793), $6794, $6795, $6796, $6797); + var $6798 = Parser$Reply$value$(_reply$pst$15, Kind$Term$new$($6791)); + var $6792 = $6798; break; }; - var $6784 = $6791; + var $6784 = $6792; break; }; var $6782 = $6784; @@ -21815,1032 +21726,1440 @@ module.exports = (function() { }; return $6782; })); - const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { + const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $6830 = self.err; - var _reply$7 = Kind$Parser$text$("not(", _pst$1); + var $6800 = self.err; + var _reply$7 = Kind$Parser$text$("[", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $6832 = self.err; - var self = $6830; + var $6802 = self.err; + var self = $6800; switch (self._) { case 'Maybe.some': - var $6834 = self.value; - var $6835 = Parser$Reply$error$(Parser$Error$combine$($6834, $6832)); - var $6833 = $6835; + var $6804 = self.value; + var $6805 = Parser$Reply$error$(Parser$Error$combine$($6804, $6802)); + var $6803 = $6805; break; case 'Maybe.none': - var $6836 = Parser$Reply$error$($6832); - var $6833 = $6836; + var $6806 = Parser$Reply$error$($6802); + var $6803 = $6806; break; }; - var $6831 = $6833; + var $6801 = $6803; break; case 'Parser.Reply.value': - var $6837 = self.pst; - var self = $6837; + var $6807 = self.pst; + var self = $6807; switch (self._) { case 'Parser.State.new': - var $6839 = self.err; - var $6840 = self.nam; - var $6841 = self.ini; - var $6842 = self.idx; - var $6843 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6830, $6839), $6840, $6841, $6842, $6843); + var $6809 = self.err; + var $6810 = self.nam; + var $6811 = self.ini; + var $6812 = self.idx; + var $6813 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6800, $6809), $6810, $6811, $6812, $6813); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $6845 = self.err; + var $6815 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6817 = self.err; + var self = $6815; + switch (self._) { + case 'Maybe.some': + var $6819 = self.value; + var $6820 = Parser$Reply$error$(Parser$Error$combine$($6819, $6817)); + var $6818 = $6820; + break; + case 'Maybe.none': + var $6821 = Parser$Reply$error$($6817); + var $6818 = $6821; + break; + }; + var $6816 = $6818; + break; + case 'Parser.Reply.value': + var $6822 = self.pst; + var $6823 = self.val; + var self = $6822; + switch (self._) { + case 'Parser.State.new': + var $6825 = self.err; + var $6826 = self.nam; + var $6827 = self.ini; + var $6828 = self.idx; + var $6829 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6815, $6825), $6826, $6827, $6828, $6829); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6831 = self.err; + var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); + var self = _reply$35; + 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$43 = Parser$State$new$(Parser$Error$maybe_combine$($6831, $6840), $6841, $6842, $6843, $6844); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6846 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6848 = self.err; + var self = $6846; + switch (self._) { + case 'Maybe.some': + var $6850 = self.value; + var $6851 = Parser$Reply$error$(Parser$Error$combine$($6850, $6848)); + var $6849 = $6851; + break; + case 'Maybe.none': + var $6852 = Parser$Reply$error$($6848); + var $6849 = $6852; + break; + }; + var $6847 = $6849; + break; + case 'Parser.Reply.value': + var $6853 = self.pst; + var $6854 = self.val; + var self = $6853; + switch (self._) { + case 'Parser.State.new': + var $6856 = self.err; + var $6857 = self.nam; + var $6858 = self.ini; + var $6859 = self.idx; + var $6860 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6846, $6856), $6857, $6858, $6859, $6860); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6862 = self.err; + var _reply$63 = Kind$Parser$text$("]", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6864 = self.err; + var self = $6862; + switch (self._) { + case 'Maybe.some': + var $6866 = self.value; + var $6867 = Parser$Reply$error$(Parser$Error$combine$($6866, $6864)); + var $6865 = $6867; + break; + case 'Maybe.none': + var $6868 = Parser$Reply$error$($6864); + var $6865 = $6868; + break; + }; + var $6863 = $6865; + break; + case 'Parser.Reply.value': + var $6869 = self.pst; + var self = $6869; + switch (self._) { + case 'Parser.State.new': + var $6871 = self.err; + var $6872 = self.nam; + var $6873 = self.ini; + var $6874 = self.idx; + var $6875 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6862, $6871), $6872, $6873, $6874, $6875); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $6877 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $6879 = self.err; + var self = $6877; + switch (self._) { + case 'Maybe.some': + var $6881 = self.value; + var $6882 = Parser$Reply$error$(Parser$Error$combine$($6881, $6879)); + var $6880 = $6882; + break; + case 'Maybe.none': + var $6883 = Parser$Reply$error$($6879); + var $6880 = $6883; + break; + }; + var $6878 = $6880; + break; + case 'Parser.Reply.value': + var $6884 = self.pst; + var $6885 = self.val; + var self = $6884; + switch (self._) { + case 'Parser.State.new': + var $6887 = self.err; + var $6888 = self.nam; + var $6889 = self.ini; + var $6890 = self.idx; + var $6891 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6877, $6887), $6888, $6889, $6890, $6891); + var _term$86 = Kind$Term$ref$("Sigma"); + var _term$87 = Kind$Term$app$(_term$86, $6854); + var _term$88 = Kind$Term$app$(_term$87, Kind$Term$lam$($6823, (_x$88 => { + var $6893 = $6885; + return $6893; + }))); + var $6892 = Parser$Reply$value$(_reply$pst$85, _term$88); + var $6886 = $6892; + break; + }; + var $6878 = $6886; + break; + }; + var $6876 = $6878; + break; + }; + var $6870 = $6876; + break; + }; + var $6863 = $6870; + break; + }; + var $6861 = $6863; + break; + }; + var $6855 = $6861; + break; + }; + var $6847 = $6855; + break; + }; + var $6845 = $6847; + break; + }; + var $6839 = $6845; + break; + }; + var $6832 = $6839; + break; + }; + var $6830 = $6832; + break; + }; + var $6824 = $6830; + break; + }; + var $6816 = $6824; + break; + }; + var $6814 = $6816; + break; + }; + var $6808 = $6814; + break; + }; + var $6801 = $6808; + break; + }; + var $6799 = $6801; + break; + }; + return $6799; + })); + const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6895 = self.err; + var _reply$7 = Kind$Parser$text$("some(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6897 = self.err; + var self = $6895; + switch (self._) { + case 'Maybe.some': + var $6899 = self.value; + var $6900 = Parser$Reply$error$(Parser$Error$combine$($6899, $6897)); + var $6898 = $6900; + break; + case 'Maybe.none': + var $6901 = Parser$Reply$error$($6897); + var $6898 = $6901; + break; + }; + var $6896 = $6898; + break; + case 'Parser.Reply.value': + var $6902 = self.pst; + var self = $6902; + switch (self._) { + case 'Parser.State.new': + var $6904 = self.err; + var $6905 = self.nam; + var $6906 = self.ini; + var $6907 = self.idx; + var $6908 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6895, $6904), $6905, $6906, $6907, $6908); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6910 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $6847 = self.err; - var self = $6845; + var $6912 = self.err; + var self = $6910; switch (self._) { case 'Maybe.some': - var $6849 = self.value; - var $6850 = Parser$Reply$error$(Parser$Error$combine$($6849, $6847)); - var $6848 = $6850; + var $6914 = self.value; + var $6915 = Parser$Reply$error$(Parser$Error$combine$($6914, $6912)); + var $6913 = $6915; break; case 'Maybe.none': - var $6851 = Parser$Reply$error$($6847); - var $6848 = $6851; + var $6916 = Parser$Reply$error$($6912); + var $6913 = $6916; break; }; - var $6846 = $6848; + var $6911 = $6913; break; case 'Parser.Reply.value': - var $6852 = self.pst; - var $6853 = self.val; - var self = $6852; + var $6917 = self.pst; + var $6918 = self.val; + var self = $6917; switch (self._) { case 'Parser.State.new': - var $6855 = self.err; - var $6856 = self.nam; - var $6857 = self.ini; - var $6858 = self.idx; - var $6859 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6845, $6855), $6856, $6857, $6858, $6859); + var $6920 = self.err; + var $6921 = self.nam; + var $6922 = self.ini; + var $6923 = self.idx; + var $6924 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6910, $6920), $6921, $6922, $6923, $6924); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $6861 = self.err; + var $6926 = self.err; var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $6863 = self.err; - var self = $6861; + var $6928 = self.err; + var self = $6926; switch (self._) { case 'Maybe.some': - var $6865 = self.value; - var $6866 = Parser$Reply$error$(Parser$Error$combine$($6865, $6863)); - var $6864 = $6866; + var $6930 = self.value; + var $6931 = Parser$Reply$error$(Parser$Error$combine$($6930, $6928)); + var $6929 = $6931; break; case 'Maybe.none': - var $6867 = Parser$Reply$error$($6863); - var $6864 = $6867; + var $6932 = Parser$Reply$error$($6928); + var $6929 = $6932; break; }; - var $6862 = $6864; + var $6927 = $6929; break; case 'Parser.Reply.value': - var $6868 = self.pst; - var self = $6868; + var $6933 = self.pst; + var self = $6933; switch (self._) { case 'Parser.State.new': - var $6870 = self.err; - var $6871 = self.nam; - var $6872 = self.ini; - var $6873 = self.idx; - var $6874 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6861, $6870), $6871, $6872, $6873, $6874); - var _term$44 = Kind$Term$ref$("Bool.not"); - var _term$45 = Kind$Term$app$(_term$44, $6853); - var $6875 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $6869 = $6875; + var $6935 = self.err; + var $6936 = self.nam; + var $6937 = self.ini; + var $6938 = self.idx; + var $6939 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6926, $6935), $6936, $6937, $6938, $6939); + 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, $6918); + var $6940 = Parser$Reply$value$(_reply$pst$43, _term$46); + var $6934 = $6940; break; }; - var $6862 = $6869; + var $6927 = $6934; break; }; - var $6860 = $6862; + var $6925 = $6927; break; }; - var $6854 = $6860; + var $6919 = $6925; break; }; - var $6846 = $6854; + var $6911 = $6919; break; }; - var $6844 = $6846; + var $6909 = $6911; break; }; - var $6838 = $6844; + var $6903 = $6909; break; }; - var $6831 = $6838; + var $6896 = $6903; break; }; - var $6829 = $6831; + var $6894 = $6896; break; }; - return $6829; + return $6894; + })); + const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6942 = self.err; + var _reply$7 = Kind$Parser$text$("not(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6944 = self.err; + var self = $6942; + 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 $6943 = $6945; + break; + case 'Parser.Reply.value': + var $6949 = self.pst; + var self = $6949; + switch (self._) { + case 'Parser.State.new': + var $6951 = self.err; + var $6952 = self.nam; + var $6953 = self.ini; + var $6954 = self.idx; + var $6955 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6942, $6951), $6952, $6953, $6954, $6955); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6957 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6959 = self.err; + var self = $6957; + switch (self._) { + case 'Maybe.some': + var $6961 = self.value; + var $6962 = Parser$Reply$error$(Parser$Error$combine$($6961, $6959)); + var $6960 = $6962; + break; + case 'Maybe.none': + var $6963 = Parser$Reply$error$($6959); + var $6960 = $6963; + break; + }; + var $6958 = $6960; + break; + case 'Parser.Reply.value': + var $6964 = self.pst; + var $6965 = self.val; + var self = $6964; + switch (self._) { + case 'Parser.State.new': + var $6967 = self.err; + var $6968 = self.nam; + var $6969 = self.ini; + var $6970 = self.idx; + var $6971 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6957, $6967), $6968, $6969, $6970, $6971); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6973 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6975 = self.err; + var self = $6973; + switch (self._) { + case 'Maybe.some': + var $6977 = self.value; + var $6978 = Parser$Reply$error$(Parser$Error$combine$($6977, $6975)); + var $6976 = $6978; + break; + case 'Maybe.none': + var $6979 = Parser$Reply$error$($6975); + var $6976 = $6979; + break; + }; + var $6974 = $6976; + break; + case 'Parser.Reply.value': + var $6980 = self.pst; + var self = $6980; + switch (self._) { + case 'Parser.State.new': + var $6982 = self.err; + var $6983 = self.nam; + var $6984 = self.ini; + var $6985 = self.idx; + var $6986 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6973, $6982), $6983, $6984, $6985, $6986); + var _term$44 = Kind$Term$ref$("Bool.not"); + var _term$45 = Kind$Term$app$(_term$44, $6965); + var $6987 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $6981 = $6987; + break; + }; + var $6974 = $6981; + break; + }; + var $6972 = $6974; + break; + }; + var $6966 = $6972; + break; + }; + var $6958 = $6966; + break; + }; + var $6956 = $6958; + break; + }; + var $6950 = $6956; + break; + }; + var $6943 = $6950; + break; + }; + var $6941 = $6943; + break; + }; + return $6941; })); const Kind$Parser$left = Kind$Parser$block("left")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $6877 = self.err; + var $6989 = self.err; var _reply$7 = Kind$Parser$text$("left(", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $6879 = self.err; - var self = $6877; + var $6991 = self.err; + var self = $6989; switch (self._) { case 'Maybe.some': - var $6881 = self.value; - var $6882 = Parser$Reply$error$(Parser$Error$combine$($6881, $6879)); - var $6880 = $6882; + var $6993 = self.value; + var $6994 = Parser$Reply$error$(Parser$Error$combine$($6993, $6991)); + var $6992 = $6994; break; case 'Maybe.none': - var $6883 = Parser$Reply$error$($6879); - var $6880 = $6883; + var $6995 = Parser$Reply$error$($6991); + var $6992 = $6995; break; }; - var $6878 = $6880; + var $6990 = $6992; break; case 'Parser.Reply.value': - var $6884 = self.pst; - var self = $6884; + var $6996 = self.pst; + var self = $6996; 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$($6877, $6886), $6887, $6888, $6889, $6890); + var $6998 = self.err; + var $6999 = self.nam; + var $7000 = self.ini; + var $7001 = self.idx; + var $7002 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6989, $6998), $6999, $7000, $7001, $7002); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $6892 = self.err; + var $7004 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $6894 = self.err; - var self = $6892; + var $7006 = self.err; + var self = $7004; switch (self._) { case 'Maybe.some': - var $6896 = self.value; - var $6897 = Parser$Reply$error$(Parser$Error$combine$($6896, $6894)); - var $6895 = $6897; + var $7008 = self.value; + var $7009 = Parser$Reply$error$(Parser$Error$combine$($7008, $7006)); + var $7007 = $7009; break; case 'Maybe.none': - var $6898 = Parser$Reply$error$($6894); - var $6895 = $6898; + var $7010 = Parser$Reply$error$($7006); + var $7007 = $7010; break; }; - var $6893 = $6895; + var $7005 = $7007; break; case 'Parser.Reply.value': - var $6899 = self.pst; - var $6900 = self.val; - var self = $6899; + var $7011 = self.pst; + var $7012 = self.val; + var self = $7011; switch (self._) { case 'Parser.State.new': - var $6902 = self.err; - var $6903 = self.nam; - var $6904 = self.ini; - var $6905 = self.idx; - var $6906 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6892, $6902), $6903, $6904, $6905, $6906); + var $7014 = self.err; + var $7015 = self.nam; + var $7016 = self.ini; + var $7017 = self.idx; + var $7018 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7004, $7014), $7015, $7016, $7017, $7018); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $6908 = self.err; + var $7020 = self.err; var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $6910 = self.err; - var self = $6908; + var $7022 = self.err; + var self = $7020; switch (self._) { case 'Maybe.some': - var $6912 = self.value; - var $6913 = Parser$Reply$error$(Parser$Error$combine$($6912, $6910)); - var $6911 = $6913; + var $7024 = self.value; + var $7025 = Parser$Reply$error$(Parser$Error$combine$($7024, $7022)); + var $7023 = $7025; break; case 'Maybe.none': - var $6914 = Parser$Reply$error$($6910); - var $6911 = $6914; + var $7026 = Parser$Reply$error$($7022); + var $7023 = $7026; break; }; - var $6909 = $6911; + var $7021 = $7023; break; case 'Parser.Reply.value': - var $6915 = self.pst; - var self = $6915; + var $7027 = self.pst; + var self = $7027; switch (self._) { case 'Parser.State.new': - var $6917 = self.err; - var $6918 = self.nam; - var $6919 = self.ini; - var $6920 = self.idx; - var $6921 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6908, $6917), $6918, $6919, $6920, $6921); + var $7029 = self.err; + var $7030 = self.nam; + var $7031 = self.ini; + var $7032 = self.idx; + var $7033 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7020, $7029), $7030, $7031, $7032, $7033); 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, $6900); - var $6922 = Parser$Reply$value$(_reply$pst$43, _term$47); - var $6916 = $6922; + var _term$47 = Kind$Term$app$(_term$46, $7012); + var $7034 = Parser$Reply$value$(_reply$pst$43, _term$47); + var $7028 = $7034; break; }; - var $6909 = $6916; + var $7021 = $7028; break; }; - var $6907 = $6909; + var $7019 = $7021; break; }; - var $6901 = $6907; + var $7013 = $7019; break; }; - var $6893 = $6901; + var $7005 = $7013; break; }; - var $6891 = $6893; + var $7003 = $7005; break; }; - var $6885 = $6891; + var $6997 = $7003; break; }; - var $6878 = $6885; + var $6990 = $6997; break; }; - var $6876 = $6878; + var $6988 = $6990; break; }; - return $6876; + return $6988; })); const Kind$Parser$right = Kind$Parser$block("right")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $6924 = self.err; + var $7036 = self.err; var _reply$7 = Kind$Parser$text$("right(", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $6926 = self.err; - var self = $6924; + var $7038 = self.err; + var self = $7036; switch (self._) { case 'Maybe.some': - var $6928 = self.value; - var $6929 = Parser$Reply$error$(Parser$Error$combine$($6928, $6926)); - var $6927 = $6929; + var $7040 = self.value; + var $7041 = Parser$Reply$error$(Parser$Error$combine$($7040, $7038)); + var $7039 = $7041; break; case 'Maybe.none': - var $6930 = Parser$Reply$error$($6926); - var $6927 = $6930; + var $7042 = Parser$Reply$error$($7038); + var $7039 = $7042; break; }; - var $6925 = $6927; + var $7037 = $7039; break; case 'Parser.Reply.value': - var $6931 = self.pst; - var self = $6931; + var $7043 = self.pst; + var self = $7043; switch (self._) { case 'Parser.State.new': - var $6933 = self.err; - var $6934 = self.nam; - var $6935 = self.ini; - var $6936 = self.idx; - var $6937 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6924, $6933), $6934, $6935, $6936, $6937); + var $7045 = self.err; + var $7046 = self.nam; + var $7047 = self.ini; + var $7048 = self.idx; + var $7049 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7036, $7045), $7046, $7047, $7048, $7049); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $6939 = self.err; + var $7051 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $6941 = self.err; - var self = $6939; + var $7053 = self.err; + var self = $7051; switch (self._) { case 'Maybe.some': - var $6943 = self.value; - var $6944 = Parser$Reply$error$(Parser$Error$combine$($6943, $6941)); - var $6942 = $6944; + var $7055 = self.value; + var $7056 = Parser$Reply$error$(Parser$Error$combine$($7055, $7053)); + var $7054 = $7056; break; case 'Maybe.none': - var $6945 = Parser$Reply$error$($6941); - var $6942 = $6945; + var $7057 = Parser$Reply$error$($7053); + var $7054 = $7057; break; }; - var $6940 = $6942; + var $7052 = $7054; break; case 'Parser.Reply.value': - var $6946 = self.pst; - var $6947 = self.val; - var self = $6946; + var $7058 = self.pst; + var $7059 = self.val; + var self = $7058; switch (self._) { case 'Parser.State.new': - var $6949 = self.err; - var $6950 = self.nam; - var $6951 = self.ini; - var $6952 = self.idx; - var $6953 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6939, $6949), $6950, $6951, $6952, $6953); + var $7061 = self.err; + var $7062 = self.nam; + var $7063 = self.ini; + var $7064 = self.idx; + var $7065 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7051, $7061), $7062, $7063, $7064, $7065); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $6955 = self.err; + var $7067 = self.err; var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $6957 = self.err; - var self = $6955; + var $7069 = self.err; + var self = $7067; switch (self._) { case 'Maybe.some': - var $6959 = self.value; - var $6960 = Parser$Reply$error$(Parser$Error$combine$($6959, $6957)); - var $6958 = $6960; + var $7071 = self.value; + var $7072 = Parser$Reply$error$(Parser$Error$combine$($7071, $7069)); + var $7070 = $7072; break; case 'Maybe.none': - var $6961 = Parser$Reply$error$($6957); - var $6958 = $6961; + var $7073 = Parser$Reply$error$($7069); + var $7070 = $7073; break; }; - var $6956 = $6958; + var $7068 = $7070; break; case 'Parser.Reply.value': - var $6962 = self.pst; - var self = $6962; + var $7074 = self.pst; + var self = $7074; switch (self._) { case 'Parser.State.new': - var $6964 = self.err; - var $6965 = self.nam; - var $6966 = self.ini; - var $6967 = self.idx; - var $6968 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6955, $6964), $6965, $6966, $6967, $6968); + var $7076 = self.err; + var $7077 = self.nam; + var $7078 = self.ini; + var $7079 = self.idx; + var $7080 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7067, $7076), $7077, $7078, $7079, $7080); 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, $6947); - var $6969 = Parser$Reply$value$(_reply$pst$43, _term$47); - var $6963 = $6969; + var _term$47 = Kind$Term$app$(_term$46, $7059); + var $7081 = Parser$Reply$value$(_reply$pst$43, _term$47); + var $7075 = $7081; break; }; - var $6956 = $6963; + var $7068 = $7075; break; }; - var $6954 = $6956; + var $7066 = $7068; break; }; - var $6948 = $6954; + var $7060 = $7066; break; }; - var $6940 = $6948; + var $7052 = $7060; break; }; - var $6938 = $6940; + var $7050 = $7052; break; }; - var $6932 = $6938; + var $7044 = $7050; break; }; - var $6925 = $6932; + var $7037 = $7044; break; }; - var $6923 = $6925; + var $7035 = $7037; break; }; - return $6923; + return $7035; })); const Kind$Parser$apply = Kind$Parser$block("apply")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $6971 = self.err; + var $7083 = self.err; var _reply$7 = Kind$Parser$text$("apply(", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $6973 = self.err; - var self = $6971; + var $7085 = self.err; + var self = $7083; switch (self._) { case 'Maybe.some': - var $6975 = self.value; - var $6976 = Parser$Reply$error$(Parser$Error$combine$($6975, $6973)); - var $6974 = $6976; + var $7087 = self.value; + var $7088 = Parser$Reply$error$(Parser$Error$combine$($7087, $7085)); + var $7086 = $7088; break; case 'Maybe.none': - var $6977 = Parser$Reply$error$($6973); - var $6974 = $6977; + var $7089 = Parser$Reply$error$($7085); + var $7086 = $7089; break; }; - var $6972 = $6974; + var $7084 = $7086; break; case 'Parser.Reply.value': - var $6978 = self.pst; - var self = $6978; + var $7090 = self.pst; + var self = $7090; switch (self._) { case 'Parser.State.new': - var $6980 = self.err; - var $6981 = self.nam; - var $6982 = self.ini; - var $6983 = self.idx; - var $6984 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6971, $6980), $6981, $6982, $6983, $6984); + var $7092 = self.err; + var $7093 = self.nam; + var $7094 = self.ini; + var $7095 = self.idx; + var $7096 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7083, $7092), $7093, $7094, $7095, $7096); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $6986 = self.err; + var $7098 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $6988 = self.err; - var self = $6986; + var $7100 = self.err; + var self = $7098; switch (self._) { case 'Maybe.some': - var $6990 = self.value; - var $6991 = Parser$Reply$error$(Parser$Error$combine$($6990, $6988)); - var $6989 = $6991; + var $7102 = self.value; + var $7103 = Parser$Reply$error$(Parser$Error$combine$($7102, $7100)); + var $7101 = $7103; break; case 'Maybe.none': - var $6992 = Parser$Reply$error$($6988); - var $6989 = $6992; + var $7104 = Parser$Reply$error$($7100); + var $7101 = $7104; break; }; - var $6987 = $6989; + var $7099 = $7101; break; case 'Parser.Reply.value': - var $6993 = self.pst; - var $6994 = self.val; - var self = $6993; + var $7105 = self.pst; + var $7106 = self.val; + var self = $7105; switch (self._) { case 'Parser.State.new': - var $6996 = self.err; - var $6997 = self.nam; - var $6998 = self.ini; - var $6999 = self.idx; - var $7000 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6986, $6996), $6997, $6998, $6999, $7000); + var $7108 = self.err; + var $7109 = self.nam; + var $7110 = self.ini; + var $7111 = self.idx; + var $7112 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7098, $7108), $7109, $7110, $7111, $7112); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $7002 = self.err; + var $7114 = self.err; var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $7004 = self.err; - var self = $7002; + var $7116 = self.err; + var self = $7114; switch (self._) { case 'Maybe.some': - var $7006 = self.value; - var $7007 = Parser$Reply$error$(Parser$Error$combine$($7006, $7004)); - var $7005 = $7007; + var $7118 = self.value; + var $7119 = Parser$Reply$error$(Parser$Error$combine$($7118, $7116)); + var $7117 = $7119; break; case 'Maybe.none': - var $7008 = Parser$Reply$error$($7004); - var $7005 = $7008; + var $7120 = Parser$Reply$error$($7116); + var $7117 = $7120; break; }; - var $7003 = $7005; + var $7115 = $7117; break; case 'Parser.Reply.value': - var $7009 = self.pst; - var self = $7009; + var $7121 = self.pst; + var self = $7121; switch (self._) { case 'Parser.State.new': - var $7011 = self.err; - var $7012 = self.nam; - var $7013 = self.ini; - var $7014 = self.idx; - var $7015 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7002, $7011), $7012, $7013, $7014, $7015); + var $7123 = self.err; + var $7124 = self.nam; + var $7125 = self.ini; + var $7126 = self.idx; + var $7127 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7114, $7123), $7124, $7125, $7126, $7127); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $7017 = self.err; + var $7129 = self.err; var _reply$49 = Kind$Parser$term(_reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $7019 = self.err; - var self = $7017; + var $7131 = self.err; + var self = $7129; switch (self._) { case 'Maybe.some': - var $7021 = self.value; - var $7022 = Parser$Reply$error$(Parser$Error$combine$($7021, $7019)); - var $7020 = $7022; + var $7133 = self.value; + var $7134 = Parser$Reply$error$(Parser$Error$combine$($7133, $7131)); + var $7132 = $7134; break; case 'Maybe.none': - var $7023 = Parser$Reply$error$($7019); - var $7020 = $7023; + var $7135 = Parser$Reply$error$($7131); + var $7132 = $7135; break; }; - var $7018 = $7020; + var $7130 = $7132; break; case 'Parser.Reply.value': - var $7024 = self.pst; - var $7025 = self.val; - var self = $7024; + var $7136 = self.pst; + var $7137 = self.val; + var self = $7136; switch (self._) { case 'Parser.State.new': - var $7027 = self.err; - var $7028 = self.nam; - var $7029 = self.ini; - var $7030 = self.idx; - var $7031 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7017, $7027), $7028, $7029, $7030, $7031); + var $7139 = self.err; + var $7140 = self.nam; + var $7141 = self.ini; + var $7142 = self.idx; + var $7143 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7129, $7139), $7140, $7141, $7142, $7143); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $7033 = self.err; + var $7145 = self.err; var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $7035 = self.err; - var self = $7033; + var $7147 = self.err; + var self = $7145; switch (self._) { case 'Maybe.some': - var $7037 = self.value; - var $7038 = Parser$Reply$error$(Parser$Error$combine$($7037, $7035)); - var $7036 = $7038; + var $7149 = self.value; + var $7150 = Parser$Reply$error$(Parser$Error$combine$($7149, $7147)); + var $7148 = $7150; break; case 'Maybe.none': - var $7039 = Parser$Reply$error$($7035); - var $7036 = $7039; + var $7151 = Parser$Reply$error$($7147); + var $7148 = $7151; break; }; - var $7034 = $7036; + var $7146 = $7148; break; case 'Parser.Reply.value': - var $7040 = self.pst; - var self = $7040; + var $7152 = self.pst; + var self = $7152; switch (self._) { case 'Parser.State.new': - var $7042 = self.err; - var $7043 = self.nam; - var $7044 = self.ini; - var $7045 = self.idx; - var $7046 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7033, $7042), $7043, $7044, $7045, $7046); + var $7154 = self.err; + var $7155 = self.nam; + var $7156 = self.ini; + var $7157 = self.idx; + var $7158 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7145, $7154), $7155, $7156, $7157, $7158); 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, $6994); - var _term$78 = Kind$Term$app$(_term$77, $7025); - var $7047 = Parser$Reply$value$(_reply$pst$71, _term$78); - var $7041 = $7047; + var _term$77 = Kind$Term$app$(_term$76, $7106); + var _term$78 = Kind$Term$app$(_term$77, $7137); + var $7159 = Parser$Reply$value$(_reply$pst$71, _term$78); + var $7153 = $7159; break; }; - var $7034 = $7041; + var $7146 = $7153; break; }; - var $7032 = $7034; + var $7144 = $7146; break; }; - var $7026 = $7032; + var $7138 = $7144; break; }; - var $7018 = $7026; + var $7130 = $7138; break; }; - var $7016 = $7018; + var $7128 = $7130; break; }; - var $7010 = $7016; + var $7122 = $7128; break; }; - var $7003 = $7010; + var $7115 = $7122; break; }; - var $7001 = $7003; + var $7113 = $7115; break; }; - var $6995 = $7001; + var $7107 = $7113; break; }; - var $6987 = $6995; + var $7099 = $7107; break; }; - var $6985 = $6987; + var $7097 = $7099; break; }; - var $6979 = $6985; + var $7091 = $7097; break; }; - var $6972 = $6979; + var $7084 = $7091; break; }; - var $6970 = $6972; + var $7082 = $7084; break; }; - return $6970; + return $7082; })); const Kind$Parser$chain = Kind$Parser$block("chain")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $7049 = self.err; + var $7161 = self.err; var _reply$7 = Kind$Parser$text$("chain(", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7051 = self.err; - var self = $7049; + var $7163 = self.err; + var self = $7161; switch (self._) { case 'Maybe.some': - var $7053 = self.value; - var $7054 = Parser$Reply$error$(Parser$Error$combine$($7053, $7051)); - var $7052 = $7054; + var $7165 = self.value; + var $7166 = Parser$Reply$error$(Parser$Error$combine$($7165, $7163)); + var $7164 = $7166; break; case 'Maybe.none': - var $7055 = Parser$Reply$error$($7051); - var $7052 = $7055; + var $7167 = Parser$Reply$error$($7163); + var $7164 = $7167; break; }; - var $7050 = $7052; + var $7162 = $7164; break; case 'Parser.Reply.value': - var $7056 = self.pst; - var self = $7056; + var $7168 = self.pst; + var self = $7168; switch (self._) { case 'Parser.State.new': - var $7058 = self.err; - var $7059 = self.nam; - var $7060 = self.ini; - var $7061 = self.idx; - var $7062 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7049, $7058), $7059, $7060, $7061, $7062); + var $7170 = self.err; + var $7171 = self.nam; + var $7172 = self.ini; + var $7173 = self.idx; + var $7174 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7161, $7170), $7171, $7172, $7173, $7174); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $7064 = self.err; + var $7176 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $7066 = self.err; - var self = $7064; + var $7178 = self.err; + var self = $7176; switch (self._) { case 'Maybe.some': - var $7068 = self.value; - var $7069 = Parser$Reply$error$(Parser$Error$combine$($7068, $7066)); - var $7067 = $7069; + var $7180 = self.value; + var $7181 = Parser$Reply$error$(Parser$Error$combine$($7180, $7178)); + var $7179 = $7181; break; case 'Maybe.none': - var $7070 = Parser$Reply$error$($7066); - var $7067 = $7070; + var $7182 = Parser$Reply$error$($7178); + var $7179 = $7182; break; }; - var $7065 = $7067; + var $7177 = $7179; break; case 'Parser.Reply.value': - var $7071 = self.pst; - var $7072 = self.val; - var self = $7071; + var $7183 = self.pst; + var $7184 = self.val; + var self = $7183; switch (self._) { case 'Parser.State.new': - var $7074 = self.err; - var $7075 = self.nam; - var $7076 = self.ini; - var $7077 = self.idx; - var $7078 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7064, $7074), $7075, $7076, $7077, $7078); + var $7186 = self.err; + var $7187 = self.nam; + var $7188 = self.ini; + var $7189 = self.idx; + var $7190 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7176, $7186), $7187, $7188, $7189, $7190); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $7080 = self.err; + var $7192 = self.err; var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $7082 = self.err; - var self = $7080; + var $7194 = self.err; + var self = $7192; switch (self._) { case 'Maybe.some': - var $7084 = self.value; - var $7085 = Parser$Reply$error$(Parser$Error$combine$($7084, $7082)); - var $7083 = $7085; + var $7196 = self.value; + var $7197 = Parser$Reply$error$(Parser$Error$combine$($7196, $7194)); + var $7195 = $7197; break; case 'Maybe.none': - var $7086 = Parser$Reply$error$($7082); - var $7083 = $7086; + var $7198 = Parser$Reply$error$($7194); + var $7195 = $7198; break; }; - var $7081 = $7083; + var $7193 = $7195; break; case 'Parser.Reply.value': - var $7087 = self.pst; - var self = $7087; + var $7199 = self.pst; + var self = $7199; switch (self._) { case 'Parser.State.new': - var $7089 = self.err; - var $7090 = self.nam; - var $7091 = self.ini; - var $7092 = self.idx; - var $7093 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7080, $7089), $7090, $7091, $7092, $7093); + var $7201 = self.err; + var $7202 = self.nam; + var $7203 = self.ini; + var $7204 = self.idx; + var $7205 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7192, $7201), $7202, $7203, $7204, $7205); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $7095 = self.err; + var $7207 = self.err; var _reply$49 = Kind$Parser$term(_reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $7097 = self.err; - var self = $7095; + var $7209 = self.err; + var self = $7207; switch (self._) { case 'Maybe.some': - var $7099 = self.value; - var $7100 = Parser$Reply$error$(Parser$Error$combine$($7099, $7097)); - var $7098 = $7100; + var $7211 = self.value; + var $7212 = Parser$Reply$error$(Parser$Error$combine$($7211, $7209)); + var $7210 = $7212; break; case 'Maybe.none': - var $7101 = Parser$Reply$error$($7097); - var $7098 = $7101; + var $7213 = Parser$Reply$error$($7209); + var $7210 = $7213; break; }; - var $7096 = $7098; + var $7208 = $7210; break; case 'Parser.Reply.value': - var $7102 = self.pst; - var $7103 = self.val; - var self = $7102; + var $7214 = self.pst; + var $7215 = self.val; + var self = $7214; switch (self._) { case 'Parser.State.new': - var $7105 = self.err; - var $7106 = self.nam; - var $7107 = self.ini; - var $7108 = self.idx; - var $7109 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7095, $7105), $7106, $7107, $7108, $7109); + var $7217 = self.err; + var $7218 = self.nam; + var $7219 = self.ini; + var $7220 = self.idx; + var $7221 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7207, $7217), $7218, $7219, $7220, $7221); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $7111 = self.err; + var $7223 = self.err; var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $7113 = self.err; - var self = $7111; + var $7225 = self.err; + var self = $7223; switch (self._) { case 'Maybe.some': - var $7115 = self.value; - var $7116 = Parser$Reply$error$(Parser$Error$combine$($7115, $7113)); - var $7114 = $7116; + var $7227 = self.value; + var $7228 = Parser$Reply$error$(Parser$Error$combine$($7227, $7225)); + var $7226 = $7228; break; case 'Maybe.none': - var $7117 = Parser$Reply$error$($7113); - var $7114 = $7117; + var $7229 = Parser$Reply$error$($7225); + var $7226 = $7229; break; }; - var $7112 = $7114; + var $7224 = $7226; break; case 'Parser.Reply.value': - var $7118 = self.pst; - var self = $7118; + var $7230 = self.pst; + var self = $7230; switch (self._) { case 'Parser.State.new': - var $7120 = self.err; - var $7121 = self.nam; - var $7122 = self.ini; - var $7123 = self.idx; - var $7124 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7111, $7120), $7121, $7122, $7123, $7124); + var $7232 = self.err; + var $7233 = self.nam; + var $7234 = self.ini; + var $7235 = self.idx; + var $7236 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7223, $7232), $7233, $7234, $7235, $7236); 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, $7072); - var _term$78 = Kind$Term$app$(_term$77, $7103); - var $7125 = Parser$Reply$value$(_reply$pst$71, _term$78); - var $7119 = $7125; + var _term$77 = Kind$Term$app$(_term$76, $7184); + var _term$78 = Kind$Term$app$(_term$77, $7215); + var $7237 = Parser$Reply$value$(_reply$pst$71, _term$78); + var $7231 = $7237; break; }; - var $7112 = $7119; + var $7224 = $7231; break; }; - var $7110 = $7112; + var $7222 = $7224; break; }; - var $7104 = $7110; + var $7216 = $7222; break; }; - var $7096 = $7104; + var $7208 = $7216; break; }; - var $7094 = $7096; + var $7206 = $7208; break; }; - var $7088 = $7094; + var $7200 = $7206; break; }; - var $7081 = $7088; + var $7193 = $7200; break; }; - var $7079 = $7081; + var $7191 = $7193; break; }; - var $7073 = $7079; + var $7185 = $7191; break; }; - var $7065 = $7073; + var $7177 = $7185; break; }; - var $7063 = $7065; + var $7175 = $7177; break; }; - var $7057 = $7063; + var $7169 = $7175; break; }; - var $7050 = $7057; + var $7162 = $7169; break; }; - var $7048 = $7050; + var $7160 = $7162; break; }; - return $7048; + return $7160; })); const Kind$Parser$mirror = Kind$Parser$block("mirror")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $7127 = self.err; + var $7239 = self.err; var _reply$7 = Kind$Parser$text$("mirror(", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7129 = self.err; - var self = $7127; + var $7241 = self.err; + var self = $7239; switch (self._) { case 'Maybe.some': - var $7131 = self.value; - var $7132 = Parser$Reply$error$(Parser$Error$combine$($7131, $7129)); - var $7130 = $7132; + var $7243 = self.value; + var $7244 = Parser$Reply$error$(Parser$Error$combine$($7243, $7241)); + var $7242 = $7244; break; case 'Maybe.none': - var $7133 = Parser$Reply$error$($7129); - var $7130 = $7133; + var $7245 = Parser$Reply$error$($7241); + var $7242 = $7245; break; }; - var $7128 = $7130; + var $7240 = $7242; break; case 'Parser.Reply.value': - var $7134 = self.pst; - var self = $7134; + var $7246 = self.pst; + var self = $7246; switch (self._) { case 'Parser.State.new': - var $7136 = self.err; - var $7137 = self.nam; - var $7138 = self.ini; - var $7139 = self.idx; - var $7140 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7127, $7136), $7137, $7138, $7139, $7140); + var $7248 = self.err; + var $7249 = self.nam; + var $7250 = self.ini; + var $7251 = self.idx; + var $7252 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7239, $7248), $7249, $7250, $7251, $7252); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $7142 = self.err; + var $7254 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $7144 = self.err; - var self = $7142; + var $7256 = self.err; + var self = $7254; switch (self._) { case 'Maybe.some': - var $7146 = self.value; - var $7147 = Parser$Reply$error$(Parser$Error$combine$($7146, $7144)); - var $7145 = $7147; + var $7258 = self.value; + var $7259 = Parser$Reply$error$(Parser$Error$combine$($7258, $7256)); + var $7257 = $7259; break; case 'Maybe.none': - var $7148 = Parser$Reply$error$($7144); - var $7145 = $7148; + var $7260 = Parser$Reply$error$($7256); + var $7257 = $7260; break; }; - var $7143 = $7145; + var $7255 = $7257; break; case 'Parser.Reply.value': - var $7149 = self.pst; - var $7150 = self.val; - var self = $7149; + var $7261 = self.pst; + var $7262 = self.val; + var self = $7261; switch (self._) { case 'Parser.State.new': - var $7152 = self.err; - var $7153 = self.nam; - var $7154 = self.ini; - var $7155 = self.idx; - var $7156 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7142, $7152), $7153, $7154, $7155, $7156); + var $7264 = self.err; + var $7265 = self.nam; + var $7266 = self.ini; + var $7267 = self.idx; + var $7268 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7254, $7264), $7265, $7266, $7267, $7268); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $7158 = self.err; + var $7270 = self.err; var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $7160 = self.err; - var self = $7158; + var $7272 = self.err; + var self = $7270; switch (self._) { case 'Maybe.some': - var $7162 = self.value; - var $7163 = Parser$Reply$error$(Parser$Error$combine$($7162, $7160)); - var $7161 = $7163; + var $7274 = self.value; + var $7275 = Parser$Reply$error$(Parser$Error$combine$($7274, $7272)); + var $7273 = $7275; break; case 'Maybe.none': - var $7164 = Parser$Reply$error$($7160); - var $7161 = $7164; + var $7276 = Parser$Reply$error$($7272); + var $7273 = $7276; break; }; - var $7159 = $7161; + var $7271 = $7273; break; case 'Parser.Reply.value': - var $7165 = self.pst; - var self = $7165; + var $7277 = self.pst; + var self = $7277; switch (self._) { case 'Parser.State.new': - var $7167 = self.err; - var $7168 = self.nam; - var $7169 = self.ini; - var $7170 = self.idx; - var $7171 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7158, $7167), $7168, $7169, $7170, $7171); + var $7279 = self.err; + var $7280 = self.nam; + var $7281 = self.ini; + var $7282 = self.idx; + var $7283 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7270, $7279), $7280, $7281, $7282, $7283); 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, $7150); - var $7172 = Parser$Reply$value$(_reply$pst$43, _term$48); - var $7166 = $7172; + var _term$48 = Kind$Term$app$(_term$47, $7262); + var $7284 = Parser$Reply$value$(_reply$pst$43, _term$48); + var $7278 = $7284; break; }; - var $7159 = $7166; + var $7271 = $7278; break; }; - var $7157 = $7159; + var $7269 = $7271; break; }; - var $7151 = $7157; + var $7263 = $7269; break; }; - var $7143 = $7151; + var $7255 = $7263; break; }; - var $7141 = $7143; + var $7253 = $7255; break; }; - var $7135 = $7141; + var $7247 = $7253; break; }; - var $7128 = $7135; + var $7240 = $7247; break; }; - var $7126 = $7128; + var $7238 = $7240; break; }; - return $7126; + return $7238; })); function Kind$Parser$comprehension$and_all$(_a$1) { var self = _a$1; switch (self._) { case 'List.cons': - var $7174 = self.head; - var $7175 = self.tail; + var $7286 = self.head; + var $7287 = self.tail; var _and$4 = Kind$Term$ref$("Bool.and"); - var _and$5 = Kind$Term$app$(_and$4, $7174); - var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($7175)); - var $7176 = _and$6; - var $7173 = $7176; + var _and$5 = Kind$Term$app$(_and$4, $7286); + var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($7287)); + var $7288 = _and$6; + var $7285 = $7288; break; case 'List.nil': - var $7177 = Kind$Term$ref$("Bool.true"); - var $7173 = $7177; + var $7289 = Kind$Term$ref$("Bool.true"); + var $7285 = $7289; break; }; - return $7173; + return $7285; }; const Kind$Parser$comprehension$and_all = x0 => Kind$Parser$comprehension$and_all$(x0); @@ -22848,504 +23167,504 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $7179 = self.err; + var $7291 = self.err; var _reply$7 = Kind$Parser$text$("[", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7181 = self.err; - var self = $7179; + var $7293 = self.err; + var self = $7291; switch (self._) { case 'Maybe.some': - var $7183 = self.value; - var $7184 = Parser$Reply$error$(Parser$Error$combine$($7183, $7181)); - var $7182 = $7184; + var $7295 = self.value; + var $7296 = Parser$Reply$error$(Parser$Error$combine$($7295, $7293)); + var $7294 = $7296; break; case 'Maybe.none': - var $7185 = Parser$Reply$error$($7181); - var $7182 = $7185; + var $7297 = Parser$Reply$error$($7293); + var $7294 = $7297; break; }; - var $7180 = $7182; + var $7292 = $7294; break; case 'Parser.Reply.value': - var $7186 = self.pst; - var self = $7186; + var $7298 = self.pst; + var self = $7298; switch (self._) { case 'Parser.State.new': - var $7188 = self.err; - var $7189 = self.nam; - var $7190 = self.ini; - var $7191 = self.idx; - var $7192 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7179, $7188), $7189, $7190, $7191, $7192); + var $7300 = self.err; + var $7301 = self.nam; + var $7302 = self.ini; + var $7303 = self.idx; + var $7304 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7291, $7300), $7301, $7302, $7303, $7304); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $7194 = self.err; + var $7306 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $7196 = self.err; - var self = $7194; + var $7308 = self.err; + var self = $7306; switch (self._) { case 'Maybe.some': - var $7198 = self.value; - var $7199 = Parser$Reply$error$(Parser$Error$combine$($7198, $7196)); - var $7197 = $7199; + var $7310 = self.value; + var $7311 = Parser$Reply$error$(Parser$Error$combine$($7310, $7308)); + var $7309 = $7311; break; case 'Maybe.none': - var $7200 = Parser$Reply$error$($7196); - var $7197 = $7200; + var $7312 = Parser$Reply$error$($7308); + var $7309 = $7312; break; }; - var $7195 = $7197; + var $7307 = $7309; break; case 'Parser.Reply.value': - var $7201 = self.pst; - var $7202 = self.val; - var self = $7201; + var $7313 = self.pst; + var $7314 = self.val; + var self = $7313; 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 _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7194, $7204), $7205, $7206, $7207, $7208); + var $7316 = self.err; + var $7317 = self.nam; + var $7318 = self.ini; + var $7319 = self.idx; + var $7320 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7306, $7316), $7317, $7318, $7319, $7320); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $7210 = self.err; + var $7322 = self.err; var _reply$35 = Kind$Parser$text$("for", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $7212 = self.err; - var self = $7210; + var $7324 = self.err; + var self = $7322; switch (self._) { case 'Maybe.some': - var $7214 = self.value; - var $7215 = Parser$Reply$error$(Parser$Error$combine$($7214, $7212)); - var $7213 = $7215; + var $7326 = self.value; + var $7327 = Parser$Reply$error$(Parser$Error$combine$($7326, $7324)); + var $7325 = $7327; break; case 'Maybe.none': - var $7216 = Parser$Reply$error$($7212); - var $7213 = $7216; + var $7328 = Parser$Reply$error$($7324); + var $7325 = $7328; break; }; - var $7211 = $7213; + var $7323 = $7325; break; case 'Parser.Reply.value': - var $7217 = self.pst; - var self = $7217; + var $7329 = self.pst; + var self = $7329; switch (self._) { case 'Parser.State.new': - var $7219 = self.err; - var $7220 = self.nam; - var $7221 = self.ini; - var $7222 = self.idx; - var $7223 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7210, $7219), $7220, $7221, $7222, $7223); + var $7331 = self.err; + var $7332 = self.nam; + var $7333 = self.ini; + var $7334 = self.idx; + var $7335 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7322, $7331), $7332, $7333, $7334, $7335); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $7225 = self.err; + var $7337 = self.err; var _reply$49 = Kind$Parser$name1$(_reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $7227 = self.err; - var self = $7225; + var $7339 = self.err; + var self = $7337; switch (self._) { case 'Maybe.some': - var $7229 = self.value; - var $7230 = Parser$Reply$error$(Parser$Error$combine$($7229, $7227)); - var $7228 = $7230; + var $7341 = self.value; + var $7342 = Parser$Reply$error$(Parser$Error$combine$($7341, $7339)); + var $7340 = $7342; break; case 'Maybe.none': - var $7231 = Parser$Reply$error$($7227); - var $7228 = $7231; + var $7343 = Parser$Reply$error$($7339); + var $7340 = $7343; break; }; - var $7226 = $7228; + var $7338 = $7340; break; case 'Parser.Reply.value': - var $7232 = self.pst; - var $7233 = self.val; - var self = $7232; + var $7344 = self.pst; + var $7345 = self.val; + var self = $7344; switch (self._) { case 'Parser.State.new': - var $7235 = self.err; - var $7236 = self.nam; - var $7237 = self.ini; - var $7238 = self.idx; - var $7239 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7225, $7235), $7236, $7237, $7238, $7239); + var $7347 = self.err; + var $7348 = self.nam; + var $7349 = self.ini; + var $7350 = self.idx; + var $7351 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7337, $7347), $7348, $7349, $7350, $7351); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $7241 = self.err; + var $7353 = self.err; var _reply$63 = Kind$Parser$text$("in", _reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $7243 = self.err; - var self = $7241; + var $7355 = self.err; + var self = $7353; switch (self._) { case 'Maybe.some': - var $7245 = self.value; - var $7246 = Parser$Reply$error$(Parser$Error$combine$($7245, $7243)); - var $7244 = $7246; + var $7357 = self.value; + var $7358 = Parser$Reply$error$(Parser$Error$combine$($7357, $7355)); + var $7356 = $7358; break; case 'Maybe.none': - var $7247 = Parser$Reply$error$($7243); - var $7244 = $7247; + var $7359 = Parser$Reply$error$($7355); + var $7356 = $7359; break; }; - var $7242 = $7244; + var $7354 = $7356; break; case 'Parser.Reply.value': - var $7248 = self.pst; - var self = $7248; + var $7360 = self.pst; + var self = $7360; 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$71 = Parser$State$new$(Parser$Error$maybe_combine$($7241, $7250), $7251, $7252, $7253, $7254); + var $7362 = self.err; + var $7363 = self.nam; + var $7364 = self.ini; + var $7365 = self.idx; + var $7366 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7353, $7362), $7363, $7364, $7365, $7366); var self = _reply$pst$71; switch (self._) { case 'Parser.State.new': - var $7256 = self.err; + var $7368 = self.err; var _reply$77 = Kind$Parser$term(_reply$pst$71); var self = _reply$77; switch (self._) { case 'Parser.Reply.error': - var $7258 = self.err; - var self = $7256; + var $7370 = self.err; + var self = $7368; switch (self._) { case 'Maybe.some': - var $7260 = self.value; - var $7261 = Parser$Reply$error$(Parser$Error$combine$($7260, $7258)); - var $7259 = $7261; + var $7372 = self.value; + var $7373 = Parser$Reply$error$(Parser$Error$combine$($7372, $7370)); + var $7371 = $7373; break; case 'Maybe.none': - var $7262 = Parser$Reply$error$($7258); - var $7259 = $7262; + var $7374 = Parser$Reply$error$($7370); + var $7371 = $7374; break; }; - var $7257 = $7259; + var $7369 = $7371; break; case 'Parser.Reply.value': - var $7263 = self.pst; - var $7264 = self.val; - var self = $7263; + var $7375 = self.pst; + var $7376 = self.val; + var self = $7375; switch (self._) { case 'Parser.State.new': - var $7266 = self.err; - var $7267 = self.nam; - var $7268 = self.ini; - var $7269 = self.idx; - var $7270 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7256, $7266), $7267, $7268, $7269, $7270); + var $7378 = self.err; + var $7379 = self.nam; + var $7380 = self.ini; + var $7381 = self.idx; + var $7382 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7368, $7378), $7379, $7380, $7381, $7382); var self = _reply$pst$85; switch (self._) { case 'Parser.State.new': - var $7272 = self.err; + var $7384 = 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 $7274 = self.err; - var self = $7272; + var $7386 = self.err; + var self = $7384; switch (self._) { case 'Maybe.some': - var $7276 = self.value; - var $7277 = Parser$Reply$error$(Parser$Error$combine$($7276, $7274)); - var $7275 = $7277; + var $7388 = self.value; + var $7389 = Parser$Reply$error$(Parser$Error$combine$($7388, $7386)); + var $7387 = $7389; break; case 'Maybe.none': - var $7278 = Parser$Reply$error$($7274); - var $7275 = $7278; + var $7390 = Parser$Reply$error$($7386); + var $7387 = $7390; break; }; - var $7273 = $7275; + var $7385 = $7387; break; case 'Parser.Reply.value': - var $7279 = self.pst; - var self = $7279; + var $7391 = self.pst; + var self = $7391; 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$99 = Parser$State$new$(Parser$Error$maybe_combine$($7272, $7281), $7282, $7283, $7284, $7285); + var $7393 = self.err; + var $7394 = self.nam; + var $7395 = self.ini; + var $7396 = self.idx; + var $7397 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($7384, $7393), $7394, $7395, $7396, $7397); var self = _reply$pst$99; switch (self._) { case 'Parser.State.new': - var $7287 = self.err; + var $7399 = self.err; var _reply$105 = Parser$until$(Kind$Parser$text("]"), (_pst$105 => { var self = _pst$105; switch (self._) { case 'Parser.State.new': - var $7290 = self.err; + var $7402 = self.err; var _reply$111 = Kind$Parser$spaces(_pst$105); var self = _reply$111; switch (self._) { case 'Parser.Reply.error': - var $7292 = self.err; - var self = $7290; + var $7404 = self.err; + var self = $7402; switch (self._) { case 'Maybe.some': - var $7294 = self.value; - var $7295 = Parser$Reply$error$(Parser$Error$combine$($7294, $7292)); - var $7293 = $7295; + var $7406 = self.value; + var $7407 = Parser$Reply$error$(Parser$Error$combine$($7406, $7404)); + var $7405 = $7407; break; case 'Maybe.none': - var $7296 = Parser$Reply$error$($7292); - var $7293 = $7296; + var $7408 = Parser$Reply$error$($7404); + var $7405 = $7408; break; }; - var $7291 = $7293; + var $7403 = $7405; break; case 'Parser.Reply.value': - var $7297 = self.pst; - var self = $7297; + var $7409 = self.pst; + var self = $7409; switch (self._) { case 'Parser.State.new': - var $7299 = self.err; - var $7300 = self.nam; - var $7301 = self.ini; - var $7302 = self.idx; - var $7303 = self.str; - var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($7290, $7299), $7300, $7301, $7302, $7303); + var $7411 = self.err; + var $7412 = self.nam; + var $7413 = self.ini; + var $7414 = self.idx; + var $7415 = self.str; + var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($7402, $7411), $7412, $7413, $7414, $7415); var self = _reply$pst$119; switch (self._) { case 'Parser.State.new': - var $7305 = self.err; + var $7417 = self.err; var _reply$125 = Kind$Parser$term(_reply$pst$119); var self = _reply$125; switch (self._) { case 'Parser.Reply.error': - var $7307 = self.err; - var self = $7305; + var $7419 = self.err; + var self = $7417; switch (self._) { case 'Maybe.some': - var $7309 = self.value; - var $7310 = Parser$Reply$error$(Parser$Error$combine$($7309, $7307)); - var $7308 = $7310; + var $7421 = self.value; + var $7422 = Parser$Reply$error$(Parser$Error$combine$($7421, $7419)); + var $7420 = $7422; break; case 'Maybe.none': - var $7311 = Parser$Reply$error$($7307); - var $7308 = $7311; + var $7423 = Parser$Reply$error$($7419); + var $7420 = $7423; break; }; - var $7306 = $7308; + var $7418 = $7420; break; case 'Parser.Reply.value': - var $7312 = self.pst; - var $7313 = self.val; - var self = $7312; + var $7424 = self.pst; + var $7425 = self.val; + var self = $7424; switch (self._) { case 'Parser.State.new': - var $7315 = self.err; - var $7316 = self.nam; - var $7317 = self.ini; - var $7318 = self.idx; - var $7319 = self.str; - var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($7305, $7315), $7316, $7317, $7318, $7319); + var $7427 = self.err; + var $7428 = self.nam; + var $7429 = self.ini; + var $7430 = self.idx; + var $7431 = self.str; + var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($7417, $7427), $7428, $7429, $7430, $7431); var self = _reply$pst$133; switch (self._) { case 'Parser.State.new': - var $7321 = self.err; + var $7433 = self.err; var _reply$139 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$133); var self = _reply$139; switch (self._) { case 'Parser.Reply.error': - var $7323 = self.err; - var self = $7321; + var $7435 = self.err; + var self = $7433; switch (self._) { case 'Maybe.some': - var $7325 = self.value; - var $7326 = Parser$Reply$error$(Parser$Error$combine$($7325, $7323)); - var $7324 = $7326; + var $7437 = self.value; + var $7438 = Parser$Reply$error$(Parser$Error$combine$($7437, $7435)); + var $7436 = $7438; break; case 'Maybe.none': - var $7327 = Parser$Reply$error$($7323); - var $7324 = $7327; + var $7439 = Parser$Reply$error$($7435); + var $7436 = $7439; break; }; - var $7322 = $7324; + var $7434 = $7436; break; case 'Parser.Reply.value': - var $7328 = self.pst; - var self = $7328; + var $7440 = self.pst; + var self = $7440; switch (self._) { case 'Parser.State.new': - var $7330 = self.err; - var $7331 = self.nam; - var $7332 = self.ini; - var $7333 = self.idx; - var $7334 = self.str; - var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($7321, $7330), $7331, $7332, $7333, $7334); - var $7335 = Parser$Reply$value$(_reply$pst$147, $7313); - var $7329 = $7335; + var $7442 = self.err; + var $7443 = self.nam; + var $7444 = self.ini; + var $7445 = self.idx; + var $7446 = self.str; + var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($7433, $7442), $7443, $7444, $7445, $7446); + var $7447 = Parser$Reply$value$(_reply$pst$147, $7425); + var $7441 = $7447; break; }; - var $7322 = $7329; + var $7434 = $7441; break; }; - var $7320 = $7322; + var $7432 = $7434; break; }; - var $7314 = $7320; + var $7426 = $7432; break; }; - var $7306 = $7314; + var $7418 = $7426; break; }; - var $7304 = $7306; + var $7416 = $7418; break; }; - var $7298 = $7304; + var $7410 = $7416; break; }; - var $7291 = $7298; + var $7403 = $7410; break; }; - var $7289 = $7291; + var $7401 = $7403; break; }; - return $7289; + return $7401; }))(_reply$pst$99); var self = _reply$105; switch (self._) { case 'Parser.Reply.error': - var $7336 = self.err; - var self = $7287; + var $7448 = self.err; + var self = $7399; switch (self._) { case 'Maybe.some': - var $7338 = self.value; - var $7339 = Parser$Reply$error$(Parser$Error$combine$($7338, $7336)); - var $7337 = $7339; + var $7450 = self.value; + var $7451 = Parser$Reply$error$(Parser$Error$combine$($7450, $7448)); + var $7449 = $7451; break; case 'Maybe.none': - var $7340 = Parser$Reply$error$($7336); - var $7337 = $7340; + var $7452 = Parser$Reply$error$($7448); + var $7449 = $7452; break; }; - var $7288 = $7337; + var $7400 = $7449; break; case 'Parser.Reply.value': - var $7341 = self.pst; - var $7342 = self.val; - var self = $7341; + var $7453 = self.pst; + var $7454 = self.val; + var self = $7453; switch (self._) { case 'Parser.State.new': - var $7344 = self.err; - var $7345 = self.nam; - var $7346 = self.ini; - var $7347 = self.idx; - var $7348 = self.str; - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7287, $7344), $7345, $7346, $7347, $7348); - var _and$114 = Kind$Parser$comprehension$and_all$($7342); + var $7456 = self.err; + var $7457 = self.nam; + var $7458 = self.ini; + var $7459 = self.idx; + var $7460 = self.str; + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7399, $7456), $7457, $7458, $7459, $7460); + var _and$114 = Kind$Parser$comprehension$and_all$($7454); 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 _lam_filter$117 = Kind$Term$lam$($7233, (_i$117 => { - var $7350 = _and$114; - return $7350; + var _lam_filter$117 = Kind$Term$lam$($7345, (_i$117 => { + var $7462 = _and$114; + return $7462; })); var _filter_fun$118 = Kind$Term$app$(_filter_fun$116, _lam_filter$117); - var _filter_fun$119 = Kind$Term$app$(_filter_fun$118, $7264); + var _filter_fun$119 = Kind$Term$app$(_filter_fun$118, $7376); 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$($7233, (_i$123 => { - var $7351 = $7202; - return $7351; + var _lamb$123 = Kind$Term$lam$($7345, (_i$123 => { + var $7463 = $7314; + return $7463; })); var _term$124 = Kind$Term$app$(_term$122, _lamb$123); var _term$125 = Kind$Term$app$(_term$124, _filter_fun$119); - var $7349 = Parser$Reply$value$(_reply$pst$113, _term$125); - var $7343 = $7349; + var $7461 = Parser$Reply$value$(_reply$pst$113, _term$125); + var $7455 = $7461; break; }; - var $7288 = $7343; + var $7400 = $7455; break; }; - var $7286 = $7288; + var $7398 = $7400; break; }; - var $7280 = $7286; + var $7392 = $7398; break; }; - var $7273 = $7280; + var $7385 = $7392; break; }; - var $7271 = $7273; + var $7383 = $7385; break; }; - var $7265 = $7271; + var $7377 = $7383; break; }; - var $7257 = $7265; + var $7369 = $7377; break; }; - var $7255 = $7257; + var $7367 = $7369; break; }; - var $7249 = $7255; + var $7361 = $7367; break; }; - var $7242 = $7249; + var $7354 = $7361; break; }; - var $7240 = $7242; + var $7352 = $7354; break; }; - var $7234 = $7240; + var $7346 = $7352; break; }; - var $7226 = $7234; + var $7338 = $7346; break; }; - var $7224 = $7226; + var $7336 = $7338; break; }; - var $7218 = $7224; + var $7330 = $7336; break; }; - var $7211 = $7218; + var $7323 = $7330; break; }; - var $7209 = $7211; + var $7321 = $7323; break; }; - var $7203 = $7209; + var $7315 = $7321; break; }; - var $7195 = $7203; + var $7307 = $7315; break; }; - var $7193 = $7195; + var $7305 = $7307; break; }; - var $7187 = $7193; + var $7299 = $7305; break; }; - var $7180 = $7187; + var $7292 = $7299; break; }; - var $7178 = $7180; + var $7290 = $7292; break; }; - return $7178; + return $7290; }; const Kind$Parser$comprehension = x0 => Kind$Parser$comprehension$(x0); @@ -23353,1463 +23672,1463 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $7353 = self.err; + var $7465 = self.err; var _reply$7 = Kind$Parser$text$("[", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7355 = self.err; - var self = $7353; + var $7467 = self.err; + var self = $7465; switch (self._) { case 'Maybe.some': - var $7357 = self.value; - var $7358 = Parser$Reply$error$(Parser$Error$combine$($7357, $7355)); - var $7356 = $7358; + var $7469 = self.value; + var $7470 = Parser$Reply$error$(Parser$Error$combine$($7469, $7467)); + var $7468 = $7470; break; case 'Maybe.none': - var $7359 = Parser$Reply$error$($7355); - var $7356 = $7359; + var $7471 = Parser$Reply$error$($7467); + var $7468 = $7471; break; }; - var $7354 = $7356; + var $7466 = $7468; break; case 'Parser.Reply.value': - var $7360 = self.pst; - var self = $7360; + var $7472 = self.pst; + var self = $7472; switch (self._) { case 'Parser.State.new': - var $7362 = self.err; - var $7363 = self.nam; - var $7364 = self.ini; - var $7365 = self.idx; - var $7366 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7353, $7362), $7363, $7364, $7365, $7366); + var $7474 = self.err; + var $7475 = self.nam; + var $7476 = self.ini; + var $7477 = self.idx; + var $7478 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7465, $7474), $7475, $7476, $7477, $7478); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $7368 = self.err; + var $7480 = self.err; var _reply$21 = Kind$Parser$text$("for", _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $7370 = self.err; - var self = $7368; + var $7482 = self.err; + var self = $7480; switch (self._) { case 'Maybe.some': - var $7372 = self.value; - var $7373 = Parser$Reply$error$(Parser$Error$combine$($7372, $7370)); - var $7371 = $7373; + var $7484 = self.value; + var $7485 = Parser$Reply$error$(Parser$Error$combine$($7484, $7482)); + var $7483 = $7485; break; case 'Maybe.none': - var $7374 = Parser$Reply$error$($7370); - var $7371 = $7374; + var $7486 = Parser$Reply$error$($7482); + var $7483 = $7486; break; }; - var $7369 = $7371; + var $7481 = $7483; break; case 'Parser.Reply.value': - var $7375 = self.pst; - var self = $7375; + var $7487 = self.pst; + var self = $7487; switch (self._) { case 'Parser.State.new': - var $7377 = self.err; - var $7378 = self.nam; - var $7379 = self.ini; - var $7380 = self.idx; - var $7381 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7368, $7377), $7378, $7379, $7380, $7381); + var $7489 = self.err; + var $7490 = self.nam; + var $7491 = self.ini; + var $7492 = self.idx; + var $7493 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7480, $7489), $7490, $7491, $7492, $7493); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $7383 = self.err; + var $7495 = self.err; var _reply$35 = Kind$Parser$name1$(_reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $7385 = self.err; - var self = $7383; + var $7497 = self.err; + var self = $7495; switch (self._) { case 'Maybe.some': - var $7387 = self.value; - var $7388 = Parser$Reply$error$(Parser$Error$combine$($7387, $7385)); - var $7386 = $7388; + var $7499 = self.value; + var $7500 = Parser$Reply$error$(Parser$Error$combine$($7499, $7497)); + var $7498 = $7500; break; case 'Maybe.none': - var $7389 = Parser$Reply$error$($7385); - var $7386 = $7389; + var $7501 = Parser$Reply$error$($7497); + var $7498 = $7501; break; }; - var $7384 = $7386; + var $7496 = $7498; break; case 'Parser.Reply.value': - var $7390 = self.pst; - var $7391 = self.val; - var self = $7390; + var $7502 = self.pst; + var $7503 = self.val; + var self = $7502; switch (self._) { case 'Parser.State.new': - var $7393 = self.err; - var $7394 = self.nam; - var $7395 = self.ini; - var $7396 = self.idx; - var $7397 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7383, $7393), $7394, $7395, $7396, $7397); + var $7505 = self.err; + var $7506 = self.nam; + var $7507 = self.ini; + var $7508 = self.idx; + var $7509 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($7495, $7505), $7506, $7507, $7508, $7509); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $7399 = self.err; + var $7511 = self.err; var _reply$49 = Kind$Parser$text$("in", _reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $7401 = self.err; - var self = $7399; + var $7513 = self.err; + var self = $7511; switch (self._) { case 'Maybe.some': - var $7403 = self.value; - var $7404 = Parser$Reply$error$(Parser$Error$combine$($7403, $7401)); - var $7402 = $7404; + var $7515 = self.value; + var $7516 = Parser$Reply$error$(Parser$Error$combine$($7515, $7513)); + var $7514 = $7516; break; case 'Maybe.none': - var $7405 = Parser$Reply$error$($7401); - var $7402 = $7405; + var $7517 = Parser$Reply$error$($7513); + var $7514 = $7517; break; }; - var $7400 = $7402; + var $7512 = $7514; break; case 'Parser.Reply.value': - var $7406 = self.pst; - var self = $7406; + var $7518 = self.pst; + var self = $7518; switch (self._) { case 'Parser.State.new': - var $7408 = self.err; - var $7409 = self.nam; - var $7410 = self.ini; - var $7411 = self.idx; - var $7412 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7399, $7408), $7409, $7410, $7411, $7412); + var $7520 = self.err; + var $7521 = self.nam; + var $7522 = self.ini; + var $7523 = self.idx; + var $7524 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($7511, $7520), $7521, $7522, $7523, $7524); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $7414 = self.err; + var $7526 = self.err; var _reply$63 = Kind$Parser$term(_reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $7416 = self.err; - var self = $7414; + var $7528 = self.err; + var self = $7526; switch (self._) { case 'Maybe.some': - var $7418 = self.value; - var $7419 = Parser$Reply$error$(Parser$Error$combine$($7418, $7416)); - var $7417 = $7419; + var $7530 = self.value; + var $7531 = Parser$Reply$error$(Parser$Error$combine$($7530, $7528)); + var $7529 = $7531; break; case 'Maybe.none': - var $7420 = Parser$Reply$error$($7416); - var $7417 = $7420; + var $7532 = Parser$Reply$error$($7528); + var $7529 = $7532; break; }; - var $7415 = $7417; + var $7527 = $7529; break; case 'Parser.Reply.value': - var $7421 = self.pst; - var $7422 = self.val; - var self = $7421; + var $7533 = self.pst; + var $7534 = self.val; + var self = $7533; switch (self._) { case 'Parser.State.new': - var $7424 = self.err; - var $7425 = self.nam; - var $7426 = self.ini; - var $7427 = self.idx; - var $7428 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7414, $7424), $7425, $7426, $7427, $7428); + var $7536 = self.err; + var $7537 = self.nam; + var $7538 = self.ini; + var $7539 = self.idx; + var $7540 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($7526, $7536), $7537, $7538, $7539, $7540); var self = _reply$pst$71; switch (self._) { case 'Parser.State.new': - var $7430 = self.err; + var $7542 = self.err; var _reply$77 = Parser$maybe$((_pst$77 => { var self = _pst$77; switch (self._) { case 'Parser.State.new': - var $7433 = self.err; + var $7545 = self.err; var _reply$83 = Kind$Parser$text$("where", _pst$77); var self = _reply$83; switch (self._) { case 'Parser.Reply.error': - var $7435 = self.err; - var self = $7433; + var $7547 = self.err; + var self = $7545; switch (self._) { case 'Maybe.some': - var $7437 = self.value; - var $7438 = Parser$Reply$error$(Parser$Error$combine$($7437, $7435)); - var $7436 = $7438; + var $7549 = self.value; + var $7550 = Parser$Reply$error$(Parser$Error$combine$($7549, $7547)); + var $7548 = $7550; break; case 'Maybe.none': - var $7439 = Parser$Reply$error$($7435); - var $7436 = $7439; + var $7551 = Parser$Reply$error$($7547); + var $7548 = $7551; break; }; - var $7434 = $7436; + var $7546 = $7548; break; case 'Parser.Reply.value': - var $7440 = self.pst; - var self = $7440; + var $7552 = self.pst; + var self = $7552; switch (self._) { case 'Parser.State.new': - var $7442 = self.err; - var $7443 = self.nam; - var $7444 = self.ini; - var $7445 = self.idx; - var $7446 = self.str; - var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($7433, $7442), $7443, $7444, $7445, $7446); + var $7554 = self.err; + var $7555 = self.nam; + var $7556 = self.ini; + var $7557 = self.idx; + var $7558 = self.str; + var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($7545, $7554), $7555, $7556, $7557, $7558); var self = _reply$pst$91; switch (self._) { case 'Parser.State.new': - var $7448 = self.err; + var $7560 = self.err; var _reply$97 = Kind$Parser$term(_reply$pst$91); var self = _reply$97; switch (self._) { case 'Parser.Reply.error': - var $7450 = self.err; - var self = $7448; + var $7562 = self.err; + var self = $7560; switch (self._) { case 'Maybe.some': - var $7452 = self.value; - var $7453 = Parser$Reply$error$(Parser$Error$combine$($7452, $7450)); - var $7451 = $7453; + var $7564 = self.value; + var $7565 = Parser$Reply$error$(Parser$Error$combine$($7564, $7562)); + var $7563 = $7565; break; case 'Maybe.none': - var $7454 = Parser$Reply$error$($7450); - var $7451 = $7454; + var $7566 = Parser$Reply$error$($7562); + var $7563 = $7566; break; }; - var $7449 = $7451; + var $7561 = $7563; break; case 'Parser.Reply.value': - var $7455 = self.pst; - var $7456 = self.val; - var self = $7455; + var $7567 = self.pst; + var $7568 = self.val; + var self = $7567; switch (self._) { case 'Parser.State.new': - var $7458 = self.err; - var $7459 = self.nam; - var $7460 = self.ini; - var $7461 = self.idx; - var $7462 = self.str; - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($7448, $7458), $7459, $7460, $7461, $7462); - var $7463 = Parser$Reply$value$(_reply$pst$105, $7456); - var $7457 = $7463; + var $7570 = self.err; + var $7571 = self.nam; + var $7572 = self.ini; + var $7573 = self.idx; + var $7574 = self.str; + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($7560, $7570), $7571, $7572, $7573, $7574); + var $7575 = Parser$Reply$value$(_reply$pst$105, $7568); + var $7569 = $7575; break; }; - var $7449 = $7457; + var $7561 = $7569; break; }; - var $7447 = $7449; + var $7559 = $7561; break; }; - var $7441 = $7447; + var $7553 = $7559; break; }; - var $7434 = $7441; + var $7546 = $7553; break; }; - var $7432 = $7434; + var $7544 = $7546; break; }; - return $7432; + return $7544; }), _reply$pst$71); var self = _reply$77; switch (self._) { case 'Parser.Reply.error': - var $7464 = self.err; - var self = $7430; + var $7576 = self.err; + var self = $7542; switch (self._) { case 'Maybe.some': - var $7466 = self.value; - var $7467 = Parser$Reply$error$(Parser$Error$combine$($7466, $7464)); - var $7465 = $7467; + var $7578 = self.value; + var $7579 = Parser$Reply$error$(Parser$Error$combine$($7578, $7576)); + var $7577 = $7579; break; case 'Maybe.none': - var $7468 = Parser$Reply$error$($7464); - var $7465 = $7468; + var $7580 = Parser$Reply$error$($7576); + var $7577 = $7580; break; }; - var $7431 = $7465; + var $7543 = $7577; break; case 'Parser.Reply.value': - var $7469 = self.pst; - var $7470 = self.val; - var self = $7469; + var $7581 = self.pst; + var $7582 = self.val; + var self = $7581; switch (self._) { case 'Parser.State.new': - var $7472 = self.err; - var $7473 = self.nam; - var $7474 = self.ini; - var $7475 = self.idx; - var $7476 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7430, $7472), $7473, $7474, $7475, $7476); + var $7584 = self.err; + var $7585 = self.nam; + var $7586 = self.ini; + var $7587 = self.idx; + var $7588 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7542, $7584), $7585, $7586, $7587, $7588); var self = _reply$pst$85; switch (self._) { case 'Parser.State.new': - var $7478 = self.err; + var $7590 = self.err; var _reply$91 = Kind$Parser$text$(":", _reply$pst$85); var self = _reply$91; switch (self._) { case 'Parser.Reply.error': - var $7480 = self.err; - var self = $7478; + var $7592 = self.err; + var self = $7590; switch (self._) { case 'Maybe.some': - var $7482 = self.value; - var $7483 = Parser$Reply$error$(Parser$Error$combine$($7482, $7480)); - var $7481 = $7483; + var $7594 = self.value; + var $7595 = Parser$Reply$error$(Parser$Error$combine$($7594, $7592)); + var $7593 = $7595; break; case 'Maybe.none': - var $7484 = Parser$Reply$error$($7480); - var $7481 = $7484; + var $7596 = Parser$Reply$error$($7592); + var $7593 = $7596; break; }; - var $7479 = $7481; + var $7591 = $7593; break; case 'Parser.Reply.value': - var $7485 = self.pst; - var self = $7485; + var $7597 = self.pst; + var self = $7597; switch (self._) { case 'Parser.State.new': - var $7487 = self.err; - var $7488 = self.nam; - var $7489 = self.ini; - var $7490 = self.idx; - var $7491 = self.str; - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($7478, $7487), $7488, $7489, $7490, $7491); + var $7599 = self.err; + var $7600 = self.nam; + var $7601 = self.ini; + var $7602 = self.idx; + var $7603 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($7590, $7599), $7600, $7601, $7602, $7603); var self = _reply$pst$99; switch (self._) { case 'Parser.State.new': - var $7493 = self.err; + var $7605 = self.err; var _reply$105 = Kind$Parser$term(_reply$pst$99); var self = _reply$105; switch (self._) { case 'Parser.Reply.error': - var $7495 = self.err; - var self = $7493; + var $7607 = self.err; + var self = $7605; switch (self._) { case 'Maybe.some': - var $7497 = self.value; - var $7498 = Parser$Reply$error$(Parser$Error$combine$($7497, $7495)); - var $7496 = $7498; + var $7609 = self.value; + var $7610 = Parser$Reply$error$(Parser$Error$combine$($7609, $7607)); + var $7608 = $7610; break; case 'Maybe.none': - var $7499 = Parser$Reply$error$($7495); - var $7496 = $7499; + var $7611 = Parser$Reply$error$($7607); + var $7608 = $7611; break; }; - var $7494 = $7496; + var $7606 = $7608; break; case 'Parser.Reply.value': - var $7500 = self.pst; - var $7501 = self.val; - var self = $7500; + var $7612 = self.pst; + var $7613 = self.val; + var self = $7612; switch (self._) { case 'Parser.State.new': - var $7503 = self.err; - var $7504 = self.nam; - var $7505 = self.ini; - var $7506 = self.idx; - var $7507 = self.str; - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7493, $7503), $7504, $7505, $7506, $7507); + var $7615 = self.err; + var $7616 = self.nam; + var $7617 = self.ini; + var $7618 = self.idx; + var $7619 = self.str; + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7605, $7615), $7616, $7617, $7618, $7619); var self = _reply$pst$113; switch (self._) { case 'Parser.State.new': - var $7509 = self.err; + var $7621 = self.err; var _reply$119 = Kind$Parser$text$("]", _reply$pst$113); var self = _reply$119; switch (self._) { case 'Parser.Reply.error': - var $7511 = self.err; - var self = $7509; + var $7623 = self.err; + var self = $7621; switch (self._) { case 'Maybe.some': - var $7513 = self.value; - var $7514 = Parser$Reply$error$(Parser$Error$combine$($7513, $7511)); - var $7512 = $7514; + var $7625 = self.value; + var $7626 = Parser$Reply$error$(Parser$Error$combine$($7625, $7623)); + var $7624 = $7626; break; case 'Maybe.none': - var $7515 = Parser$Reply$error$($7511); - var $7512 = $7515; + var $7627 = Parser$Reply$error$($7623); + var $7624 = $7627; break; }; - var $7510 = $7512; + var $7622 = $7624; break; case 'Parser.Reply.value': - var $7516 = self.pst; - var self = $7516; + var $7628 = self.pst; + var self = $7628; 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$127 = Parser$State$new$(Parser$Error$maybe_combine$($7509, $7518), $7519, $7520, $7521, $7522); + var $7630 = self.err; + var $7631 = self.nam; + var $7632 = self.ini; + var $7633 = self.idx; + var $7634 = self.str; + var _reply$pst$127 = Parser$State$new$(Parser$Error$maybe_combine$($7621, $7630), $7631, $7632, $7633, $7634); var _term$128 = Kind$Term$ref$("List.map"); var _term$129 = Kind$Term$app$(_term$128, Kind$Term$hol$(Bits$e)); var _term$130 = Kind$Term$app$(_term$129, Kind$Term$hol$(Bits$e)); - var _lamb$131 = Kind$Term$lam$($7391, (_i$131 => { - var $7524 = $7501; - return $7524; + var _lamb$131 = Kind$Term$lam$($7503, (_i$131 => { + var $7636 = $7613; + return $7636; })); var _term$132 = Kind$Term$app$(_term$130, _lamb$131); var _term$133 = Kind$Term$app$(_term$132, (() => { - var self = $7470; + var self = $7582; switch (self._) { case 'Maybe.some': - var $7525 = self.value; + var $7637 = self.value; var _filt$134 = Kind$Term$ref$("List.filter"); var _filt$135 = Kind$Term$app$(_filt$134, Kind$Term$hol$(Bits$e)); - var _filt$136 = Kind$Term$app$(_filt$135, Kind$Term$lam$($7391, (_i$136 => { - var $7527 = $7525; - return $7527; + var _filt$136 = Kind$Term$app$(_filt$135, Kind$Term$lam$($7503, (_i$136 => { + var $7639 = $7637; + return $7639; }))); - var _filt$137 = Kind$Term$app$(_filt$136, $7422); - var $7526 = _filt$137; - return $7526; + var _filt$137 = Kind$Term$app$(_filt$136, $7534); + var $7638 = _filt$137; + return $7638; case 'Maybe.none': - var $7528 = $7422; - return $7528; + var $7640 = $7534; + return $7640; }; })()); - var $7523 = Parser$Reply$value$(_reply$pst$127, _term$133); - var $7517 = $7523; + var $7635 = Parser$Reply$value$(_reply$pst$127, _term$133); + var $7629 = $7635; break; }; - var $7510 = $7517; + var $7622 = $7629; break; }; - var $7508 = $7510; + var $7620 = $7622; break; }; - var $7502 = $7508; + var $7614 = $7620; break; }; - var $7494 = $7502; + var $7606 = $7614; break; }; - var $7492 = $7494; + var $7604 = $7606; break; }; - var $7486 = $7492; + var $7598 = $7604; break; }; - var $7479 = $7486; + var $7591 = $7598; break; }; - var $7477 = $7479; + var $7589 = $7591; break; }; - var $7471 = $7477; + var $7583 = $7589; break; }; - var $7431 = $7471; + var $7543 = $7583; break; }; - var $7429 = $7431; + var $7541 = $7543; break; }; - var $7423 = $7429; + var $7535 = $7541; break; }; - var $7415 = $7423; + var $7527 = $7535; break; }; - var $7413 = $7415; + var $7525 = $7527; break; }; - var $7407 = $7413; + var $7519 = $7525; break; }; - var $7400 = $7407; + var $7512 = $7519; break; }; - var $7398 = $7400; + var $7510 = $7512; break; }; - var $7392 = $7398; + var $7504 = $7510; break; }; - var $7384 = $7392; + var $7496 = $7504; break; }; - var $7382 = $7384; + var $7494 = $7496; break; }; - var $7376 = $7382; + var $7488 = $7494; break; }; - var $7369 = $7376; + var $7481 = $7488; break; }; - var $7367 = $7369; + var $7479 = $7481; break; }; - var $7361 = $7367; + var $7473 = $7479; break; }; - var $7354 = $7361; + var $7466 = $7473; break; }; - var $7352 = $7354; + var $7464 = $7466; break; }; - return $7352; + return $7464; }; const Kind$Parser$comprehension$mapped = x0 => Kind$Parser$comprehension$mapped$(x0); function Kind$Parser$comprehension_range$go$(_typename$1) { - var $7529 = Kind$Parser$block("comprehension_range")((_pst$2 => { + var $7641 = Kind$Parser$block("comprehension_range")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $7531 = self.err; + var $7643 = self.err; var _reply$8 = Kind$Parser$text$("[", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $7533 = self.err; - var self = $7531; + var $7645 = self.err; + var self = $7643; switch (self._) { case 'Maybe.some': - var $7535 = self.value; - var $7536 = Parser$Reply$error$(Parser$Error$combine$($7535, $7533)); - var $7534 = $7536; + var $7647 = self.value; + var $7648 = Parser$Reply$error$(Parser$Error$combine$($7647, $7645)); + var $7646 = $7648; break; case 'Maybe.none': - var $7537 = Parser$Reply$error$($7533); - var $7534 = $7537; + var $7649 = Parser$Reply$error$($7645); + var $7646 = $7649; break; }; - var $7532 = $7534; + var $7644 = $7646; break; case 'Parser.Reply.value': - var $7538 = self.pst; - var self = $7538; + var $7650 = self.pst; + var self = $7650; switch (self._) { case 'Parser.State.new': - var $7540 = self.err; - var $7541 = self.nam; - var $7542 = self.ini; - var $7543 = self.idx; - var $7544 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7531, $7540), $7541, $7542, $7543, $7544); + var $7652 = self.err; + var $7653 = self.nam; + var $7654 = self.ini; + var $7655 = self.idx; + var $7656 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7643, $7652), $7653, $7654, $7655, $7656); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $7546 = self.err; + var $7658 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $7548 = self.err; - var self = $7546; + var $7660 = self.err; + var self = $7658; switch (self._) { case 'Maybe.some': - var $7550 = self.value; - var $7551 = Parser$Reply$error$(Parser$Error$combine$($7550, $7548)); - var $7549 = $7551; + var $7662 = self.value; + var $7663 = Parser$Reply$error$(Parser$Error$combine$($7662, $7660)); + var $7661 = $7663; break; case 'Maybe.none': - var $7552 = Parser$Reply$error$($7548); - var $7549 = $7552; + var $7664 = Parser$Reply$error$($7660); + var $7661 = $7664; break; }; - var $7547 = $7549; + var $7659 = $7661; break; case 'Parser.Reply.value': - var $7553 = self.pst; - var $7554 = self.val; - var self = $7553; + var $7665 = self.pst; + var $7666 = self.val; + var self = $7665; switch (self._) { case 'Parser.State.new': - var $7556 = self.err; - var $7557 = self.nam; - var $7558 = self.ini; - var $7559 = self.idx; - var $7560 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7546, $7556), $7557, $7558, $7559, $7560); + var $7668 = self.err; + var $7669 = self.nam; + var $7670 = self.ini; + var $7671 = self.idx; + var $7672 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7658, $7668), $7669, $7670, $7671, $7672); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $7562 = self.err; + var $7674 = self.err; var _reply$36 = Kind$Parser$text$("to", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $7564 = self.err; - var self = $7562; + var $7676 = self.err; + var self = $7674; switch (self._) { case 'Maybe.some': - var $7566 = self.value; - var $7567 = Parser$Reply$error$(Parser$Error$combine$($7566, $7564)); - var $7565 = $7567; + var $7678 = self.value; + var $7679 = Parser$Reply$error$(Parser$Error$combine$($7678, $7676)); + var $7677 = $7679; break; case 'Maybe.none': - var $7568 = Parser$Reply$error$($7564); - var $7565 = $7568; + var $7680 = Parser$Reply$error$($7676); + var $7677 = $7680; break; }; - var $7563 = $7565; + var $7675 = $7677; break; case 'Parser.Reply.value': - var $7569 = self.pst; - var self = $7569; + var $7681 = self.pst; + var self = $7681; switch (self._) { case 'Parser.State.new': - var $7571 = self.err; - var $7572 = self.nam; - var $7573 = self.ini; - var $7574 = self.idx; - var $7575 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7562, $7571), $7572, $7573, $7574, $7575); + var $7683 = self.err; + var $7684 = self.nam; + var $7685 = self.ini; + var $7686 = self.idx; + var $7687 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7674, $7683), $7684, $7685, $7686, $7687); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $7577 = self.err; + var $7689 = self.err; var _reply$50 = Kind$Parser$term(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $7579 = self.err; - var self = $7577; + var $7691 = self.err; + var self = $7689; switch (self._) { case 'Maybe.some': - var $7581 = self.value; - var $7582 = Parser$Reply$error$(Parser$Error$combine$($7581, $7579)); - var $7580 = $7582; + var $7693 = self.value; + var $7694 = Parser$Reply$error$(Parser$Error$combine$($7693, $7691)); + var $7692 = $7694; break; case 'Maybe.none': - var $7583 = Parser$Reply$error$($7579); - var $7580 = $7583; + var $7695 = Parser$Reply$error$($7691); + var $7692 = $7695; break; }; - var $7578 = $7580; + var $7690 = $7692; break; case 'Parser.Reply.value': - var $7584 = self.pst; - var $7585 = self.val; - var self = $7584; + var $7696 = self.pst; + var $7697 = self.val; + var self = $7696; switch (self._) { case 'Parser.State.new': - var $7587 = self.err; - var $7588 = self.nam; - var $7589 = self.ini; - var $7590 = self.idx; - var $7591 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7577, $7587), $7588, $7589, $7590, $7591); + var $7699 = self.err; + var $7700 = self.nam; + var $7701 = self.ini; + var $7702 = self.idx; + var $7703 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7689, $7699), $7700, $7701, $7702, $7703); var _list$59 = (_x$59 => { var _term$60 = Kind$Term$ref$((_x$59 + ".range")); - var _term$61 = Kind$Term$app$(_term$60, $7554); - var _term$62 = Kind$Term$app$(_term$61, $7585); - var $7593 = _term$62; - return $7593; + var _term$61 = Kind$Term$app$(_term$60, $7666); + var _term$62 = Kind$Term$app$(_term$61, $7697); + var $7705 = _term$62; + return $7705; }); var self = _typename$1; switch (self._) { case 'Maybe.some': - var $7594 = self.value; - var $7595 = (_pst$61 => { + var $7706 = self.value; + var $7707 = (_pst$61 => { var self = _pst$61; switch (self._) { case 'Parser.State.new': - var $7597 = self.err; + var $7709 = self.err; var _reply$67 = Kind$Parser$text$(":", _pst$61); var self = _reply$67; switch (self._) { case 'Parser.Reply.error': - var $7599 = self.err; - var self = $7597; + var $7711 = self.err; + var self = $7709; switch (self._) { case 'Maybe.some': - var $7601 = self.value; - var $7602 = Parser$Reply$error$(Parser$Error$combine$($7601, $7599)); - var $7600 = $7602; + var $7713 = self.value; + var $7714 = Parser$Reply$error$(Parser$Error$combine$($7713, $7711)); + var $7712 = $7714; break; case 'Maybe.none': - var $7603 = Parser$Reply$error$($7599); - var $7600 = $7603; + var $7715 = Parser$Reply$error$($7711); + var $7712 = $7715; break; }; - var $7598 = $7600; + var $7710 = $7712; break; case 'Parser.Reply.value': - var $7604 = self.pst; - var self = $7604; + var $7716 = self.pst; + var self = $7716; switch (self._) { case 'Parser.State.new': - var $7606 = self.err; - var $7607 = self.nam; - var $7608 = self.ini; - var $7609 = self.idx; - var $7610 = self.str; - var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($7597, $7606), $7607, $7608, $7609, $7610); + var $7718 = self.err; + var $7719 = self.nam; + var $7720 = self.ini; + var $7721 = self.idx; + var $7722 = self.str; + var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($7709, $7718), $7719, $7720, $7721, $7722); var self = _reply$pst$75; switch (self._) { case 'Parser.State.new': - var $7612 = self.err; - var _reply$81 = Kind$Parser$text$($7594, _reply$pst$75); + var $7724 = self.err; + var _reply$81 = Kind$Parser$text$($7706, _reply$pst$75); var self = _reply$81; switch (self._) { case 'Parser.Reply.error': - var $7614 = self.err; - var self = $7612; + var $7726 = self.err; + var self = $7724; switch (self._) { case 'Maybe.some': - var $7616 = self.value; - var $7617 = Parser$Reply$error$(Parser$Error$combine$($7616, $7614)); - var $7615 = $7617; + var $7728 = self.value; + var $7729 = Parser$Reply$error$(Parser$Error$combine$($7728, $7726)); + var $7727 = $7729; break; case 'Maybe.none': - var $7618 = Parser$Reply$error$($7614); - var $7615 = $7618; + var $7730 = Parser$Reply$error$($7726); + var $7727 = $7730; break; }; - var $7613 = $7615; + var $7725 = $7727; break; case 'Parser.Reply.value': - var $7619 = self.pst; - var self = $7619; + var $7731 = self.pst; + var self = $7731; switch (self._) { case 'Parser.State.new': - var $7621 = self.err; - var $7622 = self.nam; - var $7623 = self.ini; - var $7624 = self.idx; - var $7625 = self.str; - var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($7612, $7621), $7622, $7623, $7624, $7625); + var $7733 = self.err; + var $7734 = self.nam; + var $7735 = self.ini; + var $7736 = self.idx; + var $7737 = self.str; + var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($7724, $7733), $7734, $7735, $7736, $7737); var self = _reply$pst$89; switch (self._) { case 'Parser.State.new': - var $7627 = self.err; + var $7739 = self.err; var _reply$95 = Kind$Parser$text$("]", _reply$pst$89); var self = _reply$95; switch (self._) { case 'Parser.Reply.error': - var $7629 = self.err; - var self = $7627; + var $7741 = self.err; + var self = $7739; switch (self._) { case 'Maybe.some': - var $7631 = self.value; - var $7632 = Parser$Reply$error$(Parser$Error$combine$($7631, $7629)); - var $7630 = $7632; + var $7743 = self.value; + var $7744 = Parser$Reply$error$(Parser$Error$combine$($7743, $7741)); + var $7742 = $7744; break; case 'Maybe.none': - var $7633 = Parser$Reply$error$($7629); - var $7630 = $7633; + var $7745 = Parser$Reply$error$($7741); + var $7742 = $7745; break; }; - var $7628 = $7630; + var $7740 = $7742; break; case 'Parser.Reply.value': - var $7634 = self.pst; - var self = $7634; + var $7746 = self.pst; + var self = $7746; switch (self._) { case 'Parser.State.new': - var $7636 = self.err; - var $7637 = self.nam; - var $7638 = self.ini; - var $7639 = self.idx; - var $7640 = self.str; - var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($7627, $7636), $7637, $7638, $7639, $7640); - var $7641 = Parser$Reply$value$(_reply$pst$103, _list$59($7594)); - var $7635 = $7641; + var $7748 = self.err; + var $7749 = self.nam; + var $7750 = self.ini; + var $7751 = self.idx; + var $7752 = self.str; + var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($7739, $7748), $7749, $7750, $7751, $7752); + var $7753 = Parser$Reply$value$(_reply$pst$103, _list$59($7706)); + var $7747 = $7753; break; }; - var $7628 = $7635; + var $7740 = $7747; break; }; - var $7626 = $7628; + var $7738 = $7740; break; }; - var $7620 = $7626; + var $7732 = $7738; break; }; - var $7613 = $7620; + var $7725 = $7732; break; }; - var $7611 = $7613; + var $7723 = $7725; break; }; - var $7605 = $7611; + var $7717 = $7723; break; }; - var $7598 = $7605; + var $7710 = $7717; break; }; - var $7596 = $7598; + var $7708 = $7710; break; }; - return $7596; + return $7708; }); - var $7592 = $7595; + var $7704 = $7707; break; case 'Maybe.none': - var $7642 = (_pst$60 => { + var $7754 = (_pst$60 => { var self = _pst$60; switch (self._) { case 'Parser.State.new': - var $7644 = self.err; + var $7756 = self.err; var _reply$66 = Parser$maybe$((_pst$66 => { var self = _pst$66; switch (self._) { case 'Parser.State.new': - var $7647 = self.err; + var $7759 = self.err; var _reply$72 = Kind$Parser$text$(":", _pst$66); var self = _reply$72; switch (self._) { case 'Parser.Reply.error': - var $7649 = self.err; - var self = $7647; + var $7761 = self.err; + var self = $7759; switch (self._) { case 'Maybe.some': - var $7651 = self.value; - var $7652 = Parser$Reply$error$(Parser$Error$combine$($7651, $7649)); - var $7650 = $7652; + var $7763 = self.value; + var $7764 = Parser$Reply$error$(Parser$Error$combine$($7763, $7761)); + var $7762 = $7764; break; case 'Maybe.none': - var $7653 = Parser$Reply$error$($7649); - var $7650 = $7653; + var $7765 = Parser$Reply$error$($7761); + var $7762 = $7765; break; }; - var $7648 = $7650; + var $7760 = $7762; break; case 'Parser.Reply.value': - var $7654 = self.pst; - var self = $7654; + var $7766 = self.pst; + var self = $7766; switch (self._) { case 'Parser.State.new': - var $7656 = self.err; - var $7657 = self.nam; - var $7658 = self.ini; - var $7659 = self.idx; - var $7660 = self.str; - var _reply$pst$80 = Parser$State$new$(Parser$Error$maybe_combine$($7647, $7656), $7657, $7658, $7659, $7660); - var $7661 = Kind$Parser$text$("Nat", _reply$pst$80); - var $7655 = $7661; + var $7768 = self.err; + var $7769 = self.nam; + var $7770 = self.ini; + var $7771 = self.idx; + var $7772 = self.str; + var _reply$pst$80 = Parser$State$new$(Parser$Error$maybe_combine$($7759, $7768), $7769, $7770, $7771, $7772); + var $7773 = Kind$Parser$text$("Nat", _reply$pst$80); + var $7767 = $7773; break; }; - var $7648 = $7655; + var $7760 = $7767; break; }; - var $7646 = $7648; + var $7758 = $7760; break; }; - return $7646; + return $7758; }), _pst$60); var self = _reply$66; switch (self._) { case 'Parser.Reply.error': - var $7662 = self.err; - var self = $7644; + var $7774 = self.err; + var self = $7756; switch (self._) { case 'Maybe.some': - var $7664 = self.value; - var $7665 = Parser$Reply$error$(Parser$Error$combine$($7664, $7662)); - var $7663 = $7665; + var $7776 = self.value; + var $7777 = Parser$Reply$error$(Parser$Error$combine$($7776, $7774)); + var $7775 = $7777; break; case 'Maybe.none': - var $7666 = Parser$Reply$error$($7662); - var $7663 = $7666; + var $7778 = Parser$Reply$error$($7774); + var $7775 = $7778; break; }; - var $7645 = $7663; + var $7757 = $7775; break; case 'Parser.Reply.value': - var $7667 = self.pst; - var self = $7667; + var $7779 = self.pst; + var self = $7779; switch (self._) { case 'Parser.State.new': - var $7669 = self.err; - var $7670 = self.nam; - var $7671 = self.ini; - var $7672 = self.idx; - var $7673 = self.str; - var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($7644, $7669), $7670, $7671, $7672, $7673); + var $7781 = self.err; + var $7782 = self.nam; + var $7783 = self.ini; + var $7784 = self.idx; + var $7785 = self.str; + var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($7756, $7781), $7782, $7783, $7784, $7785); var self = _reply$pst$74; switch (self._) { case 'Parser.State.new': - var $7675 = self.err; + var $7787 = self.err; var _reply$80 = Kind$Parser$text$("]", _reply$pst$74); var self = _reply$80; switch (self._) { case 'Parser.Reply.error': - var $7677 = self.err; - var self = $7675; + var $7789 = self.err; + var self = $7787; switch (self._) { case 'Maybe.some': - var $7679 = self.value; - var $7680 = Parser$Reply$error$(Parser$Error$combine$($7679, $7677)); - var $7678 = $7680; + var $7791 = self.value; + var $7792 = Parser$Reply$error$(Parser$Error$combine$($7791, $7789)); + var $7790 = $7792; break; case 'Maybe.none': - var $7681 = Parser$Reply$error$($7677); - var $7678 = $7681; + var $7793 = Parser$Reply$error$($7789); + var $7790 = $7793; break; }; - var $7676 = $7678; + var $7788 = $7790; break; case 'Parser.Reply.value': - var $7682 = self.pst; - var self = $7682; + var $7794 = self.pst; + var self = $7794; switch (self._) { case 'Parser.State.new': - var $7684 = self.err; - var $7685 = self.nam; - var $7686 = self.ini; - var $7687 = self.idx; - var $7688 = self.str; - var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($7675, $7684), $7685, $7686, $7687, $7688); - var $7689 = Parser$Reply$value$(_reply$pst$88, _list$59("Nat")); - var $7683 = $7689; + var $7796 = self.err; + var $7797 = self.nam; + var $7798 = self.ini; + var $7799 = self.idx; + var $7800 = self.str; + var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($7787, $7796), $7797, $7798, $7799, $7800); + var $7801 = Parser$Reply$value$(_reply$pst$88, _list$59("Nat")); + var $7795 = $7801; break; }; - var $7676 = $7683; + var $7788 = $7795; break; }; - var $7674 = $7676; + var $7786 = $7788; break; }; - var $7668 = $7674; + var $7780 = $7786; break; }; - var $7645 = $7668; + var $7757 = $7780; break; }; - var $7643 = $7645; + var $7755 = $7757; break; }; - return $7643; + return $7755; }); - var $7592 = $7642; + var $7704 = $7754; break; }; - var $7592 = $7592(_reply$pst$58); - var $7586 = $7592; + var $7704 = $7704(_reply$pst$58); + var $7698 = $7704; break; }; - var $7578 = $7586; + var $7690 = $7698; break; }; - var $7576 = $7578; + var $7688 = $7690; break; }; - var $7570 = $7576; + var $7682 = $7688; break; }; - var $7563 = $7570; + var $7675 = $7682; break; }; - var $7561 = $7563; + var $7673 = $7675; break; }; - var $7555 = $7561; + var $7667 = $7673; break; }; - var $7547 = $7555; + var $7659 = $7667; break; }; - var $7545 = $7547; + var $7657 = $7659; break; }; - var $7539 = $7545; + var $7651 = $7657; break; }; - var $7532 = $7539; + var $7644 = $7651; break; }; - var $7530 = $7532; + var $7642 = $7644; break; }; - return $7530; + return $7642; })); - return $7529; + return $7641; }; 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 $7690 = _str$1; - return $7690; + var $7802 = _str$1; + return $7802; }; 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 $7692 = self.err; + var $7804 = self.err; var _reply$7 = Kind$Parser$items$("[", Kind$Parser$term, "]")(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7694 = self.err; - var self = $7692; + var $7806 = self.err; + var self = $7804; switch (self._) { case 'Maybe.some': - var $7696 = self.value; - var $7697 = Parser$Reply$error$(Parser$Error$combine$($7696, $7694)); - var $7695 = $7697; + var $7808 = self.value; + var $7809 = Parser$Reply$error$(Parser$Error$combine$($7808, $7806)); + var $7807 = $7809; break; case 'Maybe.none': - var $7698 = Parser$Reply$error$($7694); - var $7695 = $7698; + var $7810 = Parser$Reply$error$($7806); + var $7807 = $7810; break; }; - var $7693 = $7695; + var $7805 = $7807; break; case 'Parser.Reply.value': - var $7699 = self.pst; - var $7700 = self.val; - var self = $7699; + var $7811 = self.pst; + var $7812 = self.val; + var self = $7811; switch (self._) { case 'Parser.State.new': - var $7702 = self.err; - var $7703 = self.nam; - var $7704 = self.ini; - var $7705 = self.idx; - var $7706 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7692, $7702), $7703, $7704, $7705, $7706); - var $7707 = Parser$Reply$value$(_reply$pst$15, List$fold$($7700, Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("List.nil")), Kind$Term$hol$(Bits$e)), (_x$16 => _xs$17 => { + var $7814 = self.err; + var $7815 = self.nam; + var $7816 = self.ini; + var $7817 = self.idx; + var $7818 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7804, $7814), $7815, $7816, $7817, $7818); + var $7819 = Parser$Reply$value$(_reply$pst$15, List$fold$($7812, 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 $7708 = _term$21; - return $7708; + var $7820 = _term$21; + return $7820; }))); - var $7701 = $7707; + var $7813 = $7819; break; }; - var $7693 = $7701; + var $7805 = $7813; break; }; - var $7691 = $7693; + var $7803 = $7805; break; }; - return $7691; + return $7803; })); const Kind$Parser$map = Kind$Parser$block("map")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $7710 = self.err; + var $7822 = self.err; var _reply$7 = Kind$Parser$items$("{", (_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $7713 = self.err; + var $7825 = self.err; var _reply$13 = Kind$Parser$term(_pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $7715 = self.err; - var self = $7713; + var $7827 = self.err; + var self = $7825; switch (self._) { case 'Maybe.some': - var $7717 = self.value; - var $7718 = Parser$Reply$error$(Parser$Error$combine$($7717, $7715)); - var $7716 = $7718; + var $7829 = self.value; + var $7830 = Parser$Reply$error$(Parser$Error$combine$($7829, $7827)); + var $7828 = $7830; break; case 'Maybe.none': - var $7719 = Parser$Reply$error$($7715); - var $7716 = $7719; + var $7831 = Parser$Reply$error$($7827); + var $7828 = $7831; break; }; - var $7714 = $7716; + var $7826 = $7828; break; case 'Parser.Reply.value': - var $7720 = self.pst; - var $7721 = self.val; - var self = $7720; + var $7832 = self.pst; + var $7833 = self.val; + var self = $7832; switch (self._) { case 'Parser.State.new': - var $7723 = self.err; - var $7724 = self.nam; - var $7725 = self.ini; - var $7726 = self.idx; - var $7727 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($7713, $7723), $7724, $7725, $7726, $7727); + var $7835 = self.err; + var $7836 = self.nam; + var $7837 = self.ini; + var $7838 = self.idx; + var $7839 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($7825, $7835), $7836, $7837, $7838, $7839); var self = _reply$pst$21; switch (self._) { case 'Parser.State.new': - var $7729 = self.err; + var $7841 = self.err; var _reply$27 = Kind$Parser$text$(":", _reply$pst$21); var self = _reply$27; switch (self._) { case 'Parser.Reply.error': - var $7731 = self.err; - var self = $7729; + var $7843 = self.err; + var self = $7841; switch (self._) { case 'Maybe.some': - var $7733 = self.value; - var $7734 = Parser$Reply$error$(Parser$Error$combine$($7733, $7731)); - var $7732 = $7734; + var $7845 = self.value; + var $7846 = Parser$Reply$error$(Parser$Error$combine$($7845, $7843)); + var $7844 = $7846; break; case 'Maybe.none': - var $7735 = Parser$Reply$error$($7731); - var $7732 = $7735; + var $7847 = Parser$Reply$error$($7843); + var $7844 = $7847; break; }; - var $7730 = $7732; + var $7842 = $7844; break; case 'Parser.Reply.value': - var $7736 = self.pst; - var self = $7736; + var $7848 = self.pst; + var self = $7848; switch (self._) { case 'Parser.State.new': - var $7738 = self.err; - var $7739 = self.nam; - var $7740 = self.ini; - var $7741 = self.idx; - var $7742 = self.str; - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($7729, $7738), $7739, $7740, $7741, $7742); + var $7850 = self.err; + var $7851 = self.nam; + var $7852 = self.ini; + var $7853 = self.idx; + var $7854 = self.str; + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($7841, $7850), $7851, $7852, $7853, $7854); var self = _reply$pst$35; switch (self._) { case 'Parser.State.new': - var $7744 = self.err; + var $7856 = self.err; var _reply$41 = Kind$Parser$term(_reply$pst$35); var self = _reply$41; switch (self._) { case 'Parser.Reply.error': - var $7746 = self.err; - var self = $7744; + var $7858 = self.err; + var self = $7856; switch (self._) { case 'Maybe.some': - var $7748 = self.value; - var $7749 = Parser$Reply$error$(Parser$Error$combine$($7748, $7746)); - var $7747 = $7749; + var $7860 = self.value; + var $7861 = Parser$Reply$error$(Parser$Error$combine$($7860, $7858)); + var $7859 = $7861; break; case 'Maybe.none': - var $7750 = Parser$Reply$error$($7746); - var $7747 = $7750; + var $7862 = Parser$Reply$error$($7858); + var $7859 = $7862; break; }; - var $7745 = $7747; + var $7857 = $7859; break; case 'Parser.Reply.value': - var $7751 = self.pst; - var $7752 = self.val; - var self = $7751; + var $7863 = self.pst; + var $7864 = self.val; + var self = $7863; switch (self._) { case 'Parser.State.new': - var $7754 = self.err; - var $7755 = self.nam; - var $7756 = self.ini; - var $7757 = self.idx; - var $7758 = self.str; - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7744, $7754), $7755, $7756, $7757, $7758); - var $7759 = Parser$Reply$value$(_reply$pst$49, Pair$new$($7721, $7752)); - var $7753 = $7759; + var $7866 = self.err; + var $7867 = self.nam; + var $7868 = self.ini; + var $7869 = self.idx; + var $7870 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7856, $7866), $7867, $7868, $7869, $7870); + var $7871 = Parser$Reply$value$(_reply$pst$49, Pair$new$($7833, $7864)); + var $7865 = $7871; break; }; - var $7745 = $7753; + var $7857 = $7865; break; }; - var $7743 = $7745; + var $7855 = $7857; break; }; - var $7737 = $7743; + var $7849 = $7855; break; }; - var $7730 = $7737; + var $7842 = $7849; break; }; - var $7728 = $7730; + var $7840 = $7842; break; }; - var $7722 = $7728; + var $7834 = $7840; break; }; - var $7714 = $7722; + var $7826 = $7834; break; }; - var $7712 = $7714; + var $7824 = $7826; break; }; - return $7712; + return $7824; }), "}")(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $7760 = self.err; - var self = $7710; + var $7872 = self.err; + var self = $7822; switch (self._) { case 'Maybe.some': - var $7762 = self.value; - var $7763 = Parser$Reply$error$(Parser$Error$combine$($7762, $7760)); - var $7761 = $7763; + var $7874 = self.value; + var $7875 = Parser$Reply$error$(Parser$Error$combine$($7874, $7872)); + var $7873 = $7875; break; case 'Maybe.none': - var $7764 = Parser$Reply$error$($7760); - var $7761 = $7764; + var $7876 = Parser$Reply$error$($7872); + var $7873 = $7876; break; }; - var $7711 = $7761; + var $7823 = $7873; break; case 'Parser.Reply.value': - var $7765 = self.pst; - var $7766 = self.val; - var self = $7765; + var $7877 = self.pst; + var $7878 = self.val; + var self = $7877; switch (self._) { case 'Parser.State.new': - var $7768 = self.err; - var $7769 = self.nam; - var $7770 = self.ini; - var $7771 = self.idx; - var $7772 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7710, $7768), $7769, $7770, $7771, $7772); - var _list$16 = List$fold$($7766, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)), (_kv$16 => _xs$17 => { + var $7880 = self.err; + var $7881 = self.nam; + var $7882 = self.ini; + var $7883 = self.idx; + var $7884 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7822, $7880), $7881, $7882, $7883, $7884); + var _list$16 = List$fold$($7878, 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 $7775 = self.fst; - var $7776 = self.snd; + var $7887 = self.fst; + var $7888 = 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, $7775); - var _pair$24 = Kind$Term$app$(_pair$23, $7776); + var _pair$23 = Kind$Term$app$(_pair$22, $7887); + var _pair$24 = Kind$Term$app$(_pair$23, $7888); 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 $7777 = _term$28; - var $7774 = $7777; + var $7889 = _term$28; + var $7886 = $7889; break; }; - return $7774; + return $7886; })); 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 $7773 = Parser$Reply$value$(_reply$pst$15, _term$19); - var $7767 = $7773; + var $7885 = Parser$Reply$value$(_reply$pst$15, _term$19); + var $7879 = $7885; break; }; - var $7711 = $7767; + var $7823 = $7879; break; }; - var $7709 = $7711; + var $7821 = $7823; break; }; - return $7709; + return $7821; })); function Kind$Parser$log$(_body$1) { - var $7778 = Kind$Parser$block("log")((_pst$2 => { + var $7890 = Kind$Parser$block("log")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $7780 = self.err; + var $7892 = self.err; var _reply$8 = Kind$Parser$text$("log(", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $7782 = self.err; - var self = $7780; + var $7894 = self.err; + var self = $7892; switch (self._) { case 'Maybe.some': - var $7784 = self.value; - var $7785 = Parser$Reply$error$(Parser$Error$combine$($7784, $7782)); - var $7783 = $7785; + var $7896 = self.value; + var $7897 = Parser$Reply$error$(Parser$Error$combine$($7896, $7894)); + var $7895 = $7897; break; case 'Maybe.none': - var $7786 = Parser$Reply$error$($7782); - var $7783 = $7786; + var $7898 = Parser$Reply$error$($7894); + var $7895 = $7898; break; }; - var $7781 = $7783; + var $7893 = $7895; break; case 'Parser.Reply.value': - var $7787 = self.pst; - var self = $7787; + var $7899 = self.pst; + var self = $7899; switch (self._) { case 'Parser.State.new': - var $7789 = self.err; - var $7790 = self.nam; - var $7791 = self.ini; - var $7792 = self.idx; - var $7793 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7780, $7789), $7790, $7791, $7792, $7793); + var $7901 = self.err; + var $7902 = self.nam; + var $7903 = self.ini; + var $7904 = self.idx; + var $7905 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7892, $7901), $7902, $7903, $7904, $7905); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $7795 = self.err; + var $7907 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $7797 = self.err; - var self = $7795; + var $7909 = self.err; + var self = $7907; switch (self._) { case 'Maybe.some': - var $7799 = self.value; - var $7800 = Parser$Reply$error$(Parser$Error$combine$($7799, $7797)); - var $7798 = $7800; + var $7911 = self.value; + var $7912 = Parser$Reply$error$(Parser$Error$combine$($7911, $7909)); + var $7910 = $7912; break; case 'Maybe.none': - var $7801 = Parser$Reply$error$($7797); - var $7798 = $7801; + var $7913 = Parser$Reply$error$($7909); + var $7910 = $7913; break; }; - var $7796 = $7798; + var $7908 = $7910; break; case 'Parser.Reply.value': - var $7802 = self.pst; - var $7803 = self.val; - var self = $7802; + var $7914 = self.pst; + var $7915 = self.val; + var self = $7914; 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 _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7795, $7805), $7806, $7807, $7808, $7809); + var $7917 = self.err; + var $7918 = self.nam; + var $7919 = self.ini; + var $7920 = self.idx; + var $7921 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7907, $7917), $7918, $7919, $7920, $7921); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $7811 = self.err; + var $7923 = self.err; var _reply$36 = Kind$Parser$text$(")", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $7813 = self.err; - var self = $7811; + var $7925 = self.err; + var self = $7923; switch (self._) { case 'Maybe.some': - var $7815 = self.value; - var $7816 = Parser$Reply$error$(Parser$Error$combine$($7815, $7813)); - var $7814 = $7816; + var $7927 = self.value; + var $7928 = Parser$Reply$error$(Parser$Error$combine$($7927, $7925)); + var $7926 = $7928; break; case 'Maybe.none': - var $7817 = Parser$Reply$error$($7813); - var $7814 = $7817; + var $7929 = Parser$Reply$error$($7925); + var $7926 = $7929; break; }; - var $7812 = $7814; + var $7924 = $7926; break; case 'Parser.Reply.value': - var $7818 = self.pst; - var self = $7818; + var $7930 = self.pst; + var self = $7930; switch (self._) { case 'Parser.State.new': - var $7820 = self.err; - var $7821 = self.nam; - var $7822 = self.ini; - var $7823 = self.idx; - var $7824 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7811, $7820), $7821, $7822, $7823, $7824); + var $7932 = self.err; + var $7933 = self.nam; + var $7934 = self.ini; + var $7935 = self.idx; + var $7936 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7923, $7932), $7933, $7934, $7935, $7936); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $7826 = self.err; + var $7938 = self.err; var _reply$50 = _body$1(Unit$new)(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $7828 = self.err; - var self = $7826; + var $7940 = self.err; + var self = $7938; switch (self._) { case 'Maybe.some': - var $7830 = self.value; - var $7831 = Parser$Reply$error$(Parser$Error$combine$($7830, $7828)); - var $7829 = $7831; + var $7942 = self.value; + var $7943 = Parser$Reply$error$(Parser$Error$combine$($7942, $7940)); + var $7941 = $7943; break; case 'Maybe.none': - var $7832 = Parser$Reply$error$($7828); - var $7829 = $7832; + var $7944 = Parser$Reply$error$($7940); + var $7941 = $7944; break; }; - var $7827 = $7829; + var $7939 = $7941; break; case 'Parser.Reply.value': - var $7833 = self.pst; - var $7834 = self.val; - var self = $7833; + var $7945 = self.pst; + var $7946 = self.val; + var self = $7945; switch (self._) { case 'Parser.State.new': - var $7836 = self.err; - var $7837 = self.nam; - var $7838 = self.ini; - var $7839 = self.idx; - var $7840 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7826, $7836), $7837, $7838, $7839, $7840); + var $7948 = self.err; + var $7949 = self.nam; + var $7950 = self.ini; + var $7951 = self.idx; + var $7952 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7938, $7948), $7949, $7950, $7951, $7952); 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, $7803); + var _term$61 = Kind$Term$app$(_term$60, $7915); var _term$62 = Kind$Term$app$(_term$61, Kind$Term$lam$("", (_x$62 => { - var $7842 = $7834; - return $7842; + var $7954 = $7946; + return $7954; }))); - var $7841 = Parser$Reply$value$(_reply$pst$58, _term$62); - var $7835 = $7841; + var $7953 = Parser$Reply$value$(_reply$pst$58, _term$62); + var $7947 = $7953; break; }; - var $7827 = $7835; + var $7939 = $7947; break; }; - var $7825 = $7827; + var $7937 = $7939; break; }; - var $7819 = $7825; + var $7931 = $7937; break; }; - var $7812 = $7819; + var $7924 = $7931; break; }; - var $7810 = $7812; + var $7922 = $7924; break; }; - var $7804 = $7810; + var $7916 = $7922; break; }; - var $7796 = $7804; + var $7908 = $7916; break; }; - var $7794 = $7796; + var $7906 = $7908; break; }; - var $7788 = $7794; + var $7900 = $7906; break; }; - var $7781 = $7788; + var $7893 = $7900; break; }; - var $7779 = $7781; + var $7891 = $7893; break; }; - return $7779; + return $7891; })); - return $7778; + return $7890; }; const Kind$Parser$log = x0 => Kind$Parser$log$(x0); const Nat$sub = a0 => a1 => (a0 - a1 <= 0n ? 0n : a0 - a1); function String$slice$(_i$1, _j$2, _xs$3) { - var $7843 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); - return $7843; + var $7955 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); + return $7955; }; 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 $7845 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); - var $7844 = $7845; + var $7957 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); + var $7956 = $7957; } else { - var $7846 = (self - 1n); + var $7958 = (self - 1n); var _func$3 = Kind$Term$ref$(Kind$Name$read$("Nat.succ")); - var _argm$4 = Kind$Term$nat$($7846); - var $7847 = Kind$Term$app$(_func$3, _argm$4); - var $7844 = $7847; + var _argm$4 = Kind$Term$nat$($7958); + var $7959 = Kind$Term$app$(_func$3, _argm$4); + var $7956 = $7959; }; - return $7844; + return $7956; }; const Kind$Term$unroll_nat = x0 => Kind$Term$unroll_nat$(x0); @@ -24817,21 +25136,21 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Word.o': - var $7849 = self.pred; - var $7850 = (Word$to_bits$($7849) + '0'); - var $7848 = $7850; + var $7961 = self.pred; + var $7962 = (Word$to_bits$($7961) + '0'); + var $7960 = $7962; break; case 'Word.i': - var $7851 = self.pred; - var $7852 = (Word$to_bits$($7851) + '1'); - var $7848 = $7852; + var $7963 = self.pred; + var $7964 = (Word$to_bits$($7963) + '1'); + var $7960 = $7964; break; case 'Word.e': - var $7853 = Bits$e; - var $7848 = $7853; + var $7965 = Bits$e; + var $7960 = $7965; break; }; - return $7848; + return $7960; }; const Word$to_bits = x0 => Word$to_bits$(x0); const U16$to_bits = a0 => (u16_to_bits(a0)); @@ -24840,21 +25159,21 @@ module.exports = (function() { var self = _bits$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $7855 = self.slice(0, -1); - var $7856 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($7855)); - var $7854 = $7856; + var $7967 = self.slice(0, -1); + var $7968 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($7967)); + var $7966 = $7968; break; case 'i': - var $7857 = self.slice(0, -1); - var $7858 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($7857)); - var $7854 = $7858; + var $7969 = self.slice(0, -1); + var $7970 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($7969)); + var $7966 = $7970; break; case 'e': - var $7859 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); - var $7854 = $7859; + var $7971 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); + var $7966 = $7971; break; }; - return $7854; + return $7966; }; const Kind$Term$unroll_chr$bits = x0 => Kind$Term$unroll_chr$bits$(x0); @@ -24864,27 +25183,27 @@ module.exports = (function() { 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 $7860 = _term$6; - return $7860; + var $7972 = _term$6; + return $7972; }; 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 $7862 = Kind$Term$ref$(Kind$Name$read$("String.nil")); - var $7861 = $7862; + var $7974 = Kind$Term$ref$(Kind$Name$read$("String.nil")); + var $7973 = $7974; } else { - var $7863 = self.charCodeAt(0); - var $7864 = self.slice(1); - var _char$4 = Kind$Term$chr$($7863); + var $7975 = self.charCodeAt(0); + var $7976 = self.slice(1); + var _char$4 = Kind$Term$chr$($7975); 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$($7864)); - var $7865 = _term$7; - var $7861 = $7865; + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$($7976)); + var $7977 = _term$7; + var $7973 = $7977; }; - return $7861; + return $7973; }; const Kind$Term$unroll_str = x0 => Kind$Term$unroll_str$(x0); @@ -24892,38 +25211,38 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $7867 = self.name; - var self = Kind$Map$get$($7867, _defs$2); + var $7979 = self.name; + var self = Kind$Map$get$($7979, _defs$2); switch (self._) { case 'Maybe.some': - var $7869 = self.value; - var self = $7869; + var $7981 = self.value; + var self = $7981; switch (self._) { case 'Kind.Def.new': - var $7871 = self.term; - var $7872 = Kind$Term$reduce$($7871, _defs$2); - var $7870 = $7872; + var $7983 = self.term; + var $7984 = Kind$Term$reduce$($7983, _defs$2); + var $7982 = $7984; break; }; - var $7868 = $7870; + var $7980 = $7982; break; case 'Maybe.none': - var $7873 = Kind$Term$ref$($7867); - var $7868 = $7873; + var $7985 = Kind$Term$ref$($7979); + var $7980 = $7985; break; }; - var $7866 = $7868; + var $7978 = $7980; break; case 'Kind.Term.app': - var $7874 = self.func; - var $7875 = self.argm; - var _func$5 = Kind$Term$reduce$($7874, _defs$2); + var $7986 = self.func; + var $7987 = self.argm; + var _func$5 = Kind$Term$reduce$($7986, _defs$2); var self = _func$5; switch (self._) { case 'Kind.Term.lam': - var $7877 = self.body; - var $7878 = Kind$Term$reduce$($7877($7875), _defs$2); - var $7876 = $7878; + var $7989 = self.body; + var $7990 = Kind$Term$reduce$($7989($7987), _defs$2); + var $7988 = $7990; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -24947,53 +25266,53 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $7879 = _term$1; - var $7876 = $7879; + var $7991 = _term$1; + var $7988 = $7991; break; }; - var $7866 = $7876; + var $7978 = $7988; break; case 'Kind.Term.let': - var $7880 = self.expr; - var $7881 = self.body; - var $7882 = Kind$Term$reduce$($7881($7880), _defs$2); - var $7866 = $7882; + var $7992 = self.expr; + var $7993 = self.body; + var $7994 = Kind$Term$reduce$($7993($7992), _defs$2); + var $7978 = $7994; break; case 'Kind.Term.def': - var $7883 = self.expr; - var $7884 = self.body; - var $7885 = Kind$Term$reduce$($7884($7883), _defs$2); - var $7866 = $7885; + var $7995 = self.expr; + var $7996 = self.body; + var $7997 = Kind$Term$reduce$($7996($7995), _defs$2); + var $7978 = $7997; break; case 'Kind.Term.ann': - var $7886 = self.term; - var $7887 = Kind$Term$reduce$($7886, _defs$2); - var $7866 = $7887; + var $7998 = self.term; + var $7999 = Kind$Term$reduce$($7998, _defs$2); + var $7978 = $7999; break; case 'Kind.Term.nat': - var $7888 = self.natx; - var $7889 = Kind$Term$reduce$(Kind$Term$unroll_nat$($7888), _defs$2); - var $7866 = $7889; + var $8000 = self.natx; + var $8001 = Kind$Term$reduce$(Kind$Term$unroll_nat$($8000), _defs$2); + var $7978 = $8001; break; case 'Kind.Term.chr': - var $7890 = self.chrx; - var $7891 = Kind$Term$reduce$(Kind$Term$unroll_chr$($7890), _defs$2); - var $7866 = $7891; + var $8002 = self.chrx; + var $8003 = Kind$Term$reduce$(Kind$Term$unroll_chr$($8002), _defs$2); + var $7978 = $8003; break; case 'Kind.Term.str': - var $7892 = self.strx; - var $7893 = Kind$Term$reduce$(Kind$Term$unroll_str$($7892), _defs$2); - var $7866 = $7893; + var $8004 = self.strx; + var $8005 = Kind$Term$reduce$(Kind$Term$unroll_str$($8004), _defs$2); + var $7978 = $8005; break; case 'Kind.Term.imp': - var $7894 = self.expr; - var $7895 = Kind$Term$reduce$($7894, _defs$2); - var $7866 = $7895; + var $8006 = self.expr; + var $8007 = Kind$Term$reduce$($8006, _defs$2); + var $7978 = $8007; break; case 'Kind.Term.ori': - var $7896 = self.expr; - var $7897 = Kind$Term$reduce$($7896, _defs$2); - var $7866 = $7897; + var $8008 = self.expr; + var $8009 = Kind$Term$reduce$($8008, _defs$2); + var $7978 = $8009; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -25008,219 +25327,219 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $7898 = _term$1; - var $7866 = $7898; + var $8010 = _term$1; + var $7978 = $8010; break; }; - return $7866; + return $7978; }; const Kind$Term$reduce = x0 => x1 => Kind$Term$reduce$(x0, x1); function Kind$Parser$open$(_body$1) { - var $7899 = Kind$Parser$block("open")((_pst$2 => { + var $8011 = Kind$Parser$block("open")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $7901 = self.err; + var $8013 = self.err; var _reply$8 = Kind$Parser$text$("open ", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $7903 = self.err; - var self = $7901; + var $8015 = self.err; + var self = $8013; switch (self._) { case 'Maybe.some': - var $7905 = self.value; - var $7906 = Parser$Reply$error$(Parser$Error$combine$($7905, $7903)); - var $7904 = $7906; + var $8017 = self.value; + var $8018 = Parser$Reply$error$(Parser$Error$combine$($8017, $8015)); + var $8016 = $8018; break; case 'Maybe.none': - var $7907 = Parser$Reply$error$($7903); - var $7904 = $7907; + var $8019 = Parser$Reply$error$($8015); + var $8016 = $8019; break; }; - var $7902 = $7904; + var $8014 = $8016; break; case 'Parser.Reply.value': - var $7908 = self.pst; - var self = $7908; + var $8020 = self.pst; + var self = $8020; switch (self._) { case 'Parser.State.new': - var $7910 = self.err; - var $7911 = self.nam; - var $7912 = self.ini; - var $7913 = self.idx; - var $7914 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7901, $7910), $7911, $7912, $7913, $7914); + var $8022 = self.err; + var $8023 = self.nam; + var $8024 = self.ini; + var $8025 = self.idx; + var $8026 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8013, $8022), $8023, $8024, $8025, $8026); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $7916 = self.err; + var $8028 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $7918 = self.err; - var self = $7916; + var $8030 = self.err; + var self = $8028; switch (self._) { case 'Maybe.some': - var $7920 = self.value; - var $7921 = Parser$Reply$error$(Parser$Error$combine$($7920, $7918)); - var $7919 = $7921; + var $8032 = self.value; + var $8033 = Parser$Reply$error$(Parser$Error$combine$($8032, $8030)); + var $8031 = $8033; break; case 'Maybe.none': - var $7922 = Parser$Reply$error$($7918); - var $7919 = $7922; + var $8034 = Parser$Reply$error$($8030); + var $8031 = $8034; break; }; - var $7917 = $7919; + var $8029 = $8031; break; case 'Parser.Reply.value': - var $7923 = self.pst; - var $7924 = self.val; - var self = $7923; + var $8035 = self.pst; + var $8036 = self.val; + var self = $8035; switch (self._) { case 'Parser.State.new': - var $7926 = self.err; - var $7927 = self.nam; - var $7928 = self.ini; - var $7929 = self.idx; - var $7930 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7916, $7926), $7927, $7928, $7929, $7930); + var $8038 = self.err; + var $8039 = self.nam; + var $8040 = self.ini; + var $8041 = self.idx; + var $8042 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8028, $8038), $8039, $8040, $8041, $8042); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $7932 = self.err; + var $8044 = self.err; var _reply$36 = Parser$maybe$((_pst$36 => { var self = _pst$36; switch (self._) { case 'Parser.State.new': - var $7935 = self.err; + var $8047 = self.err; var _reply$42 = Kind$Parser$text$("as", _pst$36); var self = _reply$42; switch (self._) { case 'Parser.Reply.error': - var $7937 = self.err; - var self = $7935; + var $8049 = self.err; + var self = $8047; switch (self._) { case 'Maybe.some': - var $7939 = self.value; - var $7940 = Parser$Reply$error$(Parser$Error$combine$($7939, $7937)); - var $7938 = $7940; + var $8051 = self.value; + var $8052 = Parser$Reply$error$(Parser$Error$combine$($8051, $8049)); + var $8050 = $8052; break; case 'Maybe.none': - var $7941 = Parser$Reply$error$($7937); - var $7938 = $7941; + var $8053 = Parser$Reply$error$($8049); + var $8050 = $8053; break; }; - var $7936 = $7938; + var $8048 = $8050; break; case 'Parser.Reply.value': - var $7942 = self.pst; - var self = $7942; + var $8054 = self.pst; + var self = $8054; switch (self._) { case 'Parser.State.new': - var $7944 = self.err; - var $7945 = self.nam; - var $7946 = self.ini; - var $7947 = self.idx; - var $7948 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7935, $7944), $7945, $7946, $7947, $7948); - var $7949 = Kind$Parser$name1$(_reply$pst$50); - var $7943 = $7949; + var $8056 = self.err; + var $8057 = self.nam; + var $8058 = self.ini; + var $8059 = self.idx; + var $8060 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8047, $8056), $8057, $8058, $8059, $8060); + var $8061 = Kind$Parser$name1$(_reply$pst$50); + var $8055 = $8061; break; }; - var $7936 = $7943; + var $8048 = $8055; break; }; - var $7934 = $7936; + var $8046 = $8048; break; }; - return $7934; + return $8046; }), _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $7950 = self.err; - var self = $7932; + var $8062 = self.err; + var self = $8044; switch (self._) { case 'Maybe.some': - var $7952 = self.value; - var $7953 = Parser$Reply$error$(Parser$Error$combine$($7952, $7950)); - var $7951 = $7953; + var $8064 = self.value; + var $8065 = Parser$Reply$error$(Parser$Error$combine$($8064, $8062)); + var $8063 = $8065; break; case 'Maybe.none': - var $7954 = Parser$Reply$error$($7950); - var $7951 = $7954; + var $8066 = Parser$Reply$error$($8062); + var $8063 = $8066; break; }; - var $7933 = $7951; + var $8045 = $8063; break; case 'Parser.Reply.value': - var $7955 = self.pst; - var $7956 = self.val; - var self = $7955; + var $8067 = self.pst; + var $8068 = self.val; + var self = $8067; switch (self._) { case 'Parser.State.new': - var $7958 = self.err; - var $7959 = self.nam; - var $7960 = self.ini; - var $7961 = self.idx; - var $7962 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7932, $7958), $7959, $7960, $7961, $7962); + var $8070 = self.err; + var $8071 = self.nam; + var $8072 = self.ini; + var $8073 = self.idx; + var $8074 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8044, $8070), $8071, $8072, $8073, $8074); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $7964 = self.err; + var $8076 = self.err; var _reply$50 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $7966 = self.err; - var self = $7964; + var $8078 = self.err; + var self = $8076; switch (self._) { case 'Maybe.some': - var $7968 = self.value; - var $7969 = Parser$Reply$error$(Parser$Error$combine$($7968, $7966)); - var $7967 = $7969; + var $8080 = self.value; + var $8081 = Parser$Reply$error$(Parser$Error$combine$($8080, $8078)); + var $8079 = $8081; break; case 'Maybe.none': - var $7970 = Parser$Reply$error$($7966); - var $7967 = $7970; + var $8082 = Parser$Reply$error$($8078); + var $8079 = $8082; break; }; - var $7965 = $7967; + var $8077 = $8079; break; case 'Parser.Reply.value': - var $7971 = self.pst; - var self = $7971; + var $8083 = self.pst; + var self = $8083; switch (self._) { case 'Parser.State.new': - var $7973 = self.err; - var $7974 = self.nam; - var $7975 = self.ini; - var $7976 = self.idx; - var $7977 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7964, $7973), $7974, $7975, $7976, $7977); - var self = $7956; + var $8085 = self.err; + var $8086 = self.nam; + var $8087 = self.ini; + var $8088 = self.idx; + var $8089 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8076, $8085), $8086, $8087, $8088, $8089); + var self = $8068; switch (self._) { case 'Maybe.some': - var $7979 = self.value; - var $7980 = $7979; - var _name$59 = $7980; + var $8091 = self.value; + var $8092 = $8091; + var _name$59 = $8092; break; case 'Maybe.none': - var self = Kind$Term$reduce$($7924, Kind$Map$new); + var self = Kind$Term$reduce$($8036, Kind$Map$new); switch (self._) { case 'Kind.Term.var': - var $7982 = self.name; - var $7983 = $7982; - var $7981 = $7983; + var $8094 = self.name; + var $8095 = $8094; + var $8093 = $8095; break; case 'Kind.Term.ref': - var $7984 = self.name; - var $7985 = $7984; - var $7981 = $7985; + var $8096 = self.name; + var $8097 = $8096; + var $8093 = $8097; break; case 'Kind.Term.typ': case 'Kind.Term.all': @@ -25243,1816 +25562,1816 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $7986 = Kind$Name$read$("self"); - var $7981 = $7986; + var $8098 = Kind$Name$read$("self"); + var $8093 = $8098; break; }; - var _name$59 = $7981; + var _name$59 = $8093; break; }; var _wyth$60 = List$nil; var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $7987 = self.err; + var $8099 = self.err; var _reply$66 = _body$1(Unit$new)(_reply$pst$58); var self = _reply$66; switch (self._) { case 'Parser.Reply.error': - var $7989 = self.err; - var self = $7987; + var $8101 = self.err; + var self = $8099; switch (self._) { case 'Maybe.some': - var $7991 = self.value; - var $7992 = Parser$Reply$error$(Parser$Error$combine$($7991, $7989)); - var $7990 = $7992; + var $8103 = self.value; + var $8104 = Parser$Reply$error$(Parser$Error$combine$($8103, $8101)); + var $8102 = $8104; break; case 'Maybe.none': - var $7993 = Parser$Reply$error$($7989); - var $7990 = $7993; + var $8105 = Parser$Reply$error$($8101); + var $8102 = $8105; break; }; - var $7988 = $7990; + var $8100 = $8102; break; case 'Parser.Reply.value': - var $7994 = self.pst; - var $7995 = self.val; - var self = $7994; + var $8106 = self.pst; + var $8107 = self.val; + var self = $8106; switch (self._) { case 'Parser.State.new': - var $7997 = self.err; - var $7998 = self.nam; - var $7999 = self.ini; - var $8000 = self.idx; - var $8001 = self.str; - var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($7987, $7997), $7998, $7999, $8000, $8001); - var _cses$75 = Kind$Map$set$("_", $7995, Kind$Map$new); + var $8109 = self.err; + var $8110 = self.nam; + var $8111 = self.ini; + var $8112 = self.idx; + var $8113 = self.str; + var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($8099, $8109), $8110, $8111, $8112, $8113); + var _cses$75 = Kind$Map$set$("_", $8107, Kind$Map$new); var _moti$76 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $8002 = Parser$Reply$value$(_reply$pst$74, Kind$Term$cse$(Bits$e, $7924, _name$59, _wyth$60, _cses$75, _moti$76)); - var $7996 = $8002; + var $8114 = Parser$Reply$value$(_reply$pst$74, Kind$Term$cse$(Bits$e, $8036, _name$59, _wyth$60, _cses$75, _moti$76)); + var $8108 = $8114; break; }; - var $7988 = $7996; + var $8100 = $8108; break; }; - var $7978 = $7988; + var $8090 = $8100; break; }; - var $7972 = $7978; + var $8084 = $8090; break; }; - var $7965 = $7972; + var $8077 = $8084; break; }; - var $7963 = $7965; + var $8075 = $8077; break; }; - var $7957 = $7963; + var $8069 = $8075; break; }; - var $7933 = $7957; + var $8045 = $8069; break; }; - var $7931 = $7933; + var $8043 = $8045; break; }; - var $7925 = $7931; + var $8037 = $8043; break; }; - var $7917 = $7925; + var $8029 = $8037; break; }; - var $7915 = $7917; + var $8027 = $8029; break; }; - var $7909 = $7915; + var $8021 = $8027; break; }; - var $7902 = $7909; + var $8014 = $8021; break; }; - var $7900 = $7902; + var $8012 = $8014; break; }; - return $7900; + return $8012; })); - return $7899; + return $8011; }; const Kind$Parser$open = x0 => Kind$Parser$open$(x0); function Kind$Parser$do$statements$(_monad_name$1) { - var $8003 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { + var $8115 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8005 = self.err; + var $8117 = 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 $8007 = self.err; - var self = $8005; + var $8119 = self.err; + var self = $8117; switch (self._) { case 'Maybe.some': - var $8009 = self.value; - var $8010 = Parser$Reply$error$(Parser$Error$combine$($8009, $8007)); - var $8008 = $8010; + var $8121 = self.value; + var $8122 = Parser$Reply$error$(Parser$Error$combine$($8121, $8119)); + var $8120 = $8122; break; case 'Maybe.none': - var $8011 = Parser$Reply$error$($8007); - var $8008 = $8011; + var $8123 = Parser$Reply$error$($8119); + var $8120 = $8123; break; }; - var $8006 = $8008; + var $8118 = $8120; break; case 'Parser.Reply.value': - var $8012 = self.pst; - var self = $8012; + var $8124 = self.pst; + var self = $8124; switch (self._) { case 'Parser.State.new': - var $8014 = self.err; - var $8015 = self.nam; - var $8016 = self.ini; - var $8017 = self.idx; - var $8018 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8005, $8014), $8015, $8016, $8017, $8018); + var $8126 = self.err; + var $8127 = self.nam; + var $8128 = self.ini; + var $8129 = self.idx; + var $8130 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8117, $8126), $8127, $8128, $8129, $8130); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8020 = self.err; + var $8132 = self.err; var _reply$22 = Kind$Parser$name1$(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8022 = self.err; - var self = $8020; + var $8134 = self.err; + var self = $8132; switch (self._) { case 'Maybe.some': - var $8024 = self.value; - var $8025 = Parser$Reply$error$(Parser$Error$combine$($8024, $8022)); - var $8023 = $8025; + var $8136 = self.value; + var $8137 = Parser$Reply$error$(Parser$Error$combine$($8136, $8134)); + var $8135 = $8137; break; case 'Maybe.none': - var $8026 = Parser$Reply$error$($8022); - var $8023 = $8026; + var $8138 = Parser$Reply$error$($8134); + var $8135 = $8138; break; }; - var $8021 = $8023; + var $8133 = $8135; break; case 'Parser.Reply.value': - var $8027 = self.pst; - var $8028 = self.val; - var self = $8027; + var $8139 = self.pst; + var $8140 = self.val; + var self = $8139; switch (self._) { case 'Parser.State.new': - var $8030 = self.err; - var $8031 = self.nam; - var $8032 = self.ini; - var $8033 = self.idx; - var $8034 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8020, $8030), $8031, $8032, $8033, $8034); + var $8142 = self.err; + var $8143 = self.nam; + var $8144 = self.ini; + var $8145 = self.idx; + var $8146 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8132, $8142), $8143, $8144, $8145, $8146); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8036 = self.err; + var $8148 = self.err; var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8038 = self.err; - var self = $8036; + var $8150 = self.err; + var self = $8148; switch (self._) { case 'Maybe.some': - var $8040 = self.value; - var $8041 = Parser$Reply$error$(Parser$Error$combine$($8040, $8038)); - var $8039 = $8041; + var $8152 = self.value; + var $8153 = Parser$Reply$error$(Parser$Error$combine$($8152, $8150)); + var $8151 = $8153; break; case 'Maybe.none': - var $8042 = Parser$Reply$error$($8038); - var $8039 = $8042; + var $8154 = Parser$Reply$error$($8150); + var $8151 = $8154; break; }; - var $8037 = $8039; + var $8149 = $8151; break; case 'Parser.Reply.value': - var $8043 = self.pst; - var self = $8043; + var $8155 = self.pst; + var self = $8155; switch (self._) { case 'Parser.State.new': - var $8045 = self.err; - var $8046 = self.nam; - var $8047 = self.ini; - var $8048 = self.idx; - var $8049 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8036, $8045), $8046, $8047, $8048, $8049); + var $8157 = self.err; + var $8158 = self.nam; + var $8159 = self.ini; + var $8160 = self.idx; + var $8161 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8148, $8157), $8158, $8159, $8160, $8161); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $8051 = self.err; + var $8163 = self.err; var _reply$50 = Kind$Parser$term(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $8053 = self.err; - var self = $8051; + var $8165 = self.err; + var self = $8163; switch (self._) { case 'Maybe.some': - var $8055 = self.value; - var $8056 = Parser$Reply$error$(Parser$Error$combine$($8055, $8053)); - var $8054 = $8056; + var $8167 = self.value; + var $8168 = Parser$Reply$error$(Parser$Error$combine$($8167, $8165)); + var $8166 = $8168; break; case 'Maybe.none': - var $8057 = Parser$Reply$error$($8053); - var $8054 = $8057; + var $8169 = Parser$Reply$error$($8165); + var $8166 = $8169; break; }; - var $8052 = $8054; + var $8164 = $8166; break; case 'Parser.Reply.value': - var $8058 = self.pst; - var $8059 = self.val; - var self = $8058; + var $8170 = self.pst; + var $8171 = self.val; + var self = $8170; switch (self._) { case 'Parser.State.new': - var $8061 = self.err; - var $8062 = self.nam; - var $8063 = self.ini; - var $8064 = self.idx; - var $8065 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8051, $8061), $8062, $8063, $8064, $8065); + var $8173 = self.err; + var $8174 = self.nam; + var $8175 = self.ini; + var $8176 = self.idx; + var $8177 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8163, $8173), $8174, $8175, $8176, $8177); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $8067 = self.err; + var $8179 = self.err; var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $8069 = self.err; - var self = $8067; + var $8181 = self.err; + var self = $8179; switch (self._) { case 'Maybe.some': - var $8071 = self.value; - var $8072 = Parser$Reply$error$(Parser$Error$combine$($8071, $8069)); - var $8070 = $8072; + var $8183 = self.value; + var $8184 = Parser$Reply$error$(Parser$Error$combine$($8183, $8181)); + var $8182 = $8184; break; case 'Maybe.none': - var $8073 = Parser$Reply$error$($8069); - var $8070 = $8073; + var $8185 = Parser$Reply$error$($8181); + var $8182 = $8185; break; }; - var $8068 = $8070; + var $8180 = $8182; break; case 'Parser.Reply.value': - var $8074 = self.pst; - var self = $8074; + var $8186 = self.pst; + var self = $8186; switch (self._) { case 'Parser.State.new': - var $8076 = self.err; - var $8077 = self.nam; - var $8078 = self.ini; - var $8079 = self.idx; - var $8080 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8067, $8076), $8077, $8078, $8079, $8080); + var $8188 = self.err; + var $8189 = self.nam; + var $8190 = self.ini; + var $8191 = self.idx; + var $8192 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8179, $8188), $8189, $8190, $8191, $8192); var self = _reply$pst$72; switch (self._) { case 'Parser.State.new': - var $8082 = self.err; + var $8194 = 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 $8084 = self.err; - var self = $8082; + var $8196 = self.err; + var self = $8194; switch (self._) { case 'Maybe.some': - var $8086 = self.value; - var $8087 = Parser$Reply$error$(Parser$Error$combine$($8086, $8084)); - var $8085 = $8087; + var $8198 = self.value; + var $8199 = Parser$Reply$error$(Parser$Error$combine$($8198, $8196)); + var $8197 = $8199; break; case 'Maybe.none': - var $8088 = Parser$Reply$error$($8084); - var $8085 = $8088; + var $8200 = Parser$Reply$error$($8196); + var $8197 = $8200; break; }; - var $8083 = $8085; + var $8195 = $8197; break; case 'Parser.Reply.value': - var $8089 = self.pst; - var $8090 = self.val; - var self = $8089; + var $8201 = self.pst; + var $8202 = self.val; + var self = $8201; switch (self._) { case 'Parser.State.new': - var $8092 = self.err; - var $8093 = self.nam; - var $8094 = self.ini; - var $8095 = self.idx; - var $8096 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8082, $8092), $8093, $8094, $8095, $8096); + var $8204 = self.err; + var $8205 = self.nam; + var $8206 = self.ini; + var $8207 = self.idx; + var $8208 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8194, $8204), $8205, $8206, $8207, $8208); 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, $8059); - var _term$92 = Kind$Term$app$(_term$91, Kind$Term$lam$($8028, (_x$92 => { - var $8098 = $8090; - return $8098; + var _term$91 = Kind$Term$app$(_term$90, $8171); + var _term$92 = Kind$Term$app$(_term$91, Kind$Term$lam$($8140, (_x$92 => { + var $8210 = $8202; + return $8210; }))); - var $8097 = Parser$Reply$value$(_reply$pst$86, _term$92); - var $8091 = $8097; + var $8209 = Parser$Reply$value$(_reply$pst$86, _term$92); + var $8203 = $8209; break; }; - var $8083 = $8091; + var $8195 = $8203; break; }; - var $8081 = $8083; + var $8193 = $8195; break; }; - var $8075 = $8081; + var $8187 = $8193; break; }; - var $8068 = $8075; + var $8180 = $8187; break; }; - var $8066 = $8068; + var $8178 = $8180; break; }; - var $8060 = $8066; + var $8172 = $8178; break; }; - var $8052 = $8060; + var $8164 = $8172; break; }; - var $8050 = $8052; + var $8162 = $8164; break; }; - var $8044 = $8050; + var $8156 = $8162; break; }; - var $8037 = $8044; + var $8149 = $8156; break; }; - var $8035 = $8037; + var $8147 = $8149; break; }; - var $8029 = $8035; + var $8141 = $8147; break; }; - var $8021 = $8029; + var $8133 = $8141; break; }; - var $8019 = $8021; + var $8131 = $8133; break; }; - var $8013 = $8019; + var $8125 = $8131; break; }; - var $8006 = $8013; + var $8118 = $8125; break; }; - var $8004 = $8006; + var $8116 = $8118; break; }; - return $8004; + return $8116; })), List$cons$(Kind$Parser$block("do-return")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8100 = self.err; + var $8212 = self.err; var _reply$8 = Kind$Parser$text$("return ", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $8102 = self.err; - var self = $8100; + var $8214 = self.err; + var self = $8212; switch (self._) { case 'Maybe.some': - var $8104 = self.value; - var $8105 = Parser$Reply$error$(Parser$Error$combine$($8104, $8102)); - var $8103 = $8105; + var $8216 = self.value; + var $8217 = Parser$Reply$error$(Parser$Error$combine$($8216, $8214)); + var $8215 = $8217; break; case 'Maybe.none': - var $8106 = Parser$Reply$error$($8102); - var $8103 = $8106; + var $8218 = Parser$Reply$error$($8214); + var $8215 = $8218; break; }; - var $8101 = $8103; + var $8213 = $8215; break; case 'Parser.Reply.value': - var $8107 = self.pst; - var self = $8107; + var $8219 = self.pst; + var self = $8219; switch (self._) { case 'Parser.State.new': - var $8109 = self.err; - var $8110 = self.nam; - var $8111 = self.ini; - var $8112 = self.idx; - var $8113 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8100, $8109), $8110, $8111, $8112, $8113); + var $8221 = self.err; + var $8222 = self.nam; + var $8223 = self.ini; + var $8224 = self.idx; + var $8225 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8212, $8221), $8222, $8223, $8224, $8225); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8115 = self.err; + var $8227 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8117 = self.err; - var self = $8115; + var $8229 = self.err; + var self = $8227; switch (self._) { case 'Maybe.some': - var $8119 = self.value; - var $8120 = Parser$Reply$error$(Parser$Error$combine$($8119, $8117)); - var $8118 = $8120; + var $8231 = self.value; + var $8232 = Parser$Reply$error$(Parser$Error$combine$($8231, $8229)); + var $8230 = $8232; break; case 'Maybe.none': - var $8121 = Parser$Reply$error$($8117); - var $8118 = $8121; + var $8233 = Parser$Reply$error$($8229); + var $8230 = $8233; break; }; - var $8116 = $8118; + var $8228 = $8230; break; case 'Parser.Reply.value': - var $8122 = self.pst; - var $8123 = self.val; - var self = $8122; + var $8234 = self.pst; + var $8235 = self.val; + var self = $8234; switch (self._) { case 'Parser.State.new': - var $8125 = self.err; - var $8126 = self.nam; - var $8127 = self.ini; - var $8128 = self.idx; - var $8129 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8115, $8125), $8126, $8127, $8128, $8129); + var $8237 = self.err; + var $8238 = self.nam; + var $8239 = self.ini; + var $8240 = self.idx; + var $8241 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8227, $8237), $8238, $8239, $8240, $8241); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8131 = self.err; + var $8243 = self.err; var _reply$36 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8133 = self.err; - var self = $8131; + var $8245 = self.err; + var self = $8243; switch (self._) { case 'Maybe.some': - var $8135 = self.value; - var $8136 = Parser$Reply$error$(Parser$Error$combine$($8135, $8133)); - var $8134 = $8136; + var $8247 = self.value; + var $8248 = Parser$Reply$error$(Parser$Error$combine$($8247, $8245)); + var $8246 = $8248; break; case 'Maybe.none': - var $8137 = Parser$Reply$error$($8133); - var $8134 = $8137; + var $8249 = Parser$Reply$error$($8245); + var $8246 = $8249; break; }; - var $8132 = $8134; + var $8244 = $8246; break; case 'Parser.Reply.value': - var $8138 = self.pst; - var self = $8138; + var $8250 = self.pst; + var self = $8250; switch (self._) { case 'Parser.State.new': - var $8140 = self.err; - var $8141 = self.nam; - var $8142 = self.ini; - var $8143 = self.idx; - var $8144 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8131, $8140), $8141, $8142, $8143, $8144); + var $8252 = self.err; + var $8253 = self.nam; + var $8254 = self.ini; + var $8255 = self.idx; + var $8256 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8243, $8252), $8253, $8254, $8255, $8256); 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, $8123); - var $8145 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $8139 = $8145; + var _term$48 = Kind$Term$app$(_term$47, $8235); + var $8257 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $8251 = $8257; break; }; - var $8132 = $8139; + var $8244 = $8251; break; }; - var $8130 = $8132; + var $8242 = $8244; break; }; - var $8124 = $8130; + var $8236 = $8242; break; }; - var $8116 = $8124; + var $8228 = $8236; break; }; - var $8114 = $8116; + var $8226 = $8228; break; }; - var $8108 = $8114; + var $8220 = $8226; break; }; - var $8101 = $8108; + var $8213 = $8220; break; }; - var $8099 = $8101; + var $8211 = $8213; break; }; - return $8099; + return $8211; })), List$cons$(Kind$Parser$block("do-for-range")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8147 = self.err; + var $8259 = self.err; var _reply$8 = Kind$Parser$text$("for ", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $8149 = self.err; - var self = $8147; + var $8261 = self.err; + var self = $8259; switch (self._) { case 'Maybe.some': - var $8151 = self.value; - var $8152 = Parser$Reply$error$(Parser$Error$combine$($8151, $8149)); - var $8150 = $8152; + var $8263 = self.value; + var $8264 = Parser$Reply$error$(Parser$Error$combine$($8263, $8261)); + var $8262 = $8264; break; case 'Maybe.none': - var $8153 = Parser$Reply$error$($8149); - var $8150 = $8153; + var $8265 = Parser$Reply$error$($8261); + var $8262 = $8265; break; }; - var $8148 = $8150; + var $8260 = $8262; break; case 'Parser.Reply.value': - var $8154 = self.pst; - var self = $8154; + var $8266 = self.pst; + var self = $8266; switch (self._) { case 'Parser.State.new': - var $8156 = self.err; - var $8157 = self.nam; - var $8158 = self.ini; - var $8159 = self.idx; - var $8160 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8147, $8156), $8157, $8158, $8159, $8160); + var $8268 = self.err; + var $8269 = self.nam; + var $8270 = self.ini; + var $8271 = self.idx; + var $8272 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8259, $8268), $8269, $8270, $8271, $8272); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8162 = self.err; + var $8274 = self.err; var _reply$22 = Kind$Parser$name1$(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8164 = self.err; - var self = $8162; + var $8276 = self.err; + var self = $8274; switch (self._) { case 'Maybe.some': - var $8166 = self.value; - var $8167 = Parser$Reply$error$(Parser$Error$combine$($8166, $8164)); - var $8165 = $8167; + var $8278 = self.value; + var $8279 = Parser$Reply$error$(Parser$Error$combine$($8278, $8276)); + var $8277 = $8279; break; case 'Maybe.none': - var $8168 = Parser$Reply$error$($8164); - var $8165 = $8168; + var $8280 = Parser$Reply$error$($8276); + var $8277 = $8280; break; }; - var $8163 = $8165; + var $8275 = $8277; break; case 'Parser.Reply.value': - var $8169 = self.pst; - var $8170 = self.val; - var self = $8169; + var $8281 = self.pst; + var $8282 = self.val; + var self = $8281; switch (self._) { case 'Parser.State.new': - var $8172 = self.err; - var $8173 = self.nam; - var $8174 = self.ini; - var $8175 = self.idx; - var $8176 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8162, $8172), $8173, $8174, $8175, $8176); + var $8284 = self.err; + var $8285 = self.nam; + var $8286 = self.ini; + var $8287 = self.idx; + var $8288 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8274, $8284), $8285, $8286, $8287, $8288); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8178 = self.err; + var $8290 = self.err; var _reply$36 = Kind$Parser$text$("from", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8180 = self.err; - var self = $8178; + var $8292 = self.err; + var self = $8290; switch (self._) { case 'Maybe.some': - var $8182 = self.value; - var $8183 = Parser$Reply$error$(Parser$Error$combine$($8182, $8180)); - var $8181 = $8183; + var $8294 = self.value; + var $8295 = Parser$Reply$error$(Parser$Error$combine$($8294, $8292)); + var $8293 = $8295; break; case 'Maybe.none': - var $8184 = Parser$Reply$error$($8180); - var $8181 = $8184; + var $8296 = Parser$Reply$error$($8292); + var $8293 = $8296; break; }; - var $8179 = $8181; + var $8291 = $8293; break; case 'Parser.Reply.value': - var $8185 = self.pst; - var self = $8185; + var $8297 = self.pst; + var self = $8297; 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 _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8178, $8187), $8188, $8189, $8190, $8191); + var $8299 = self.err; + var $8300 = self.nam; + var $8301 = self.ini; + var $8302 = self.idx; + var $8303 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8290, $8299), $8300, $8301, $8302, $8303); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $8193 = self.err; + var $8305 = self.err; var _reply$50 = Kind$Parser$term(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $8195 = self.err; - var self = $8193; + var $8307 = self.err; + var self = $8305; switch (self._) { case 'Maybe.some': - var $8197 = self.value; - var $8198 = Parser$Reply$error$(Parser$Error$combine$($8197, $8195)); - var $8196 = $8198; + var $8309 = self.value; + var $8310 = Parser$Reply$error$(Parser$Error$combine$($8309, $8307)); + var $8308 = $8310; break; case 'Maybe.none': - var $8199 = Parser$Reply$error$($8195); - var $8196 = $8199; + var $8311 = Parser$Reply$error$($8307); + var $8308 = $8311; break; }; - var $8194 = $8196; + var $8306 = $8308; break; case 'Parser.Reply.value': - var $8200 = self.pst; - var $8201 = self.val; - var self = $8200; + var $8312 = self.pst; + var $8313 = self.val; + var self = $8312; switch (self._) { case 'Parser.State.new': - var $8203 = self.err; - var $8204 = self.nam; - var $8205 = self.ini; - var $8206 = self.idx; - var $8207 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8193, $8203), $8204, $8205, $8206, $8207); + var $8315 = self.err; + var $8316 = self.nam; + var $8317 = self.ini; + var $8318 = self.idx; + var $8319 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8305, $8315), $8316, $8317, $8318, $8319); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $8209 = self.err; + var $8321 = self.err; var _reply$64 = Kind$Parser$text$("to", _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $8211 = self.err; - var self = $8209; + var $8323 = self.err; + var self = $8321; switch (self._) { case 'Maybe.some': - var $8213 = self.value; - var $8214 = Parser$Reply$error$(Parser$Error$combine$($8213, $8211)); - var $8212 = $8214; + var $8325 = self.value; + var $8326 = Parser$Reply$error$(Parser$Error$combine$($8325, $8323)); + var $8324 = $8326; break; case 'Maybe.none': - var $8215 = Parser$Reply$error$($8211); - var $8212 = $8215; + var $8327 = Parser$Reply$error$($8323); + var $8324 = $8327; break; }; - var $8210 = $8212; + var $8322 = $8324; break; case 'Parser.Reply.value': - var $8216 = self.pst; - var self = $8216; + var $8328 = self.pst; + var self = $8328; switch (self._) { case 'Parser.State.new': - var $8218 = self.err; - var $8219 = self.nam; - var $8220 = self.ini; - var $8221 = self.idx; - var $8222 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8209, $8218), $8219, $8220, $8221, $8222); + var $8330 = self.err; + var $8331 = self.nam; + var $8332 = self.ini; + var $8333 = self.idx; + var $8334 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8321, $8330), $8331, $8332, $8333, $8334); var self = _reply$pst$72; switch (self._) { case 'Parser.State.new': - var $8224 = self.err; + var $8336 = self.err; var _reply$78 = Kind$Parser$term(_reply$pst$72); var self = _reply$78; switch (self._) { case 'Parser.Reply.error': - var $8226 = self.err; - var self = $8224; + var $8338 = self.err; + var self = $8336; switch (self._) { case 'Maybe.some': - var $8228 = self.value; - var $8229 = Parser$Reply$error$(Parser$Error$combine$($8228, $8226)); - var $8227 = $8229; + var $8340 = self.value; + var $8341 = Parser$Reply$error$(Parser$Error$combine$($8340, $8338)); + var $8339 = $8341; break; case 'Maybe.none': - var $8230 = Parser$Reply$error$($8226); - var $8227 = $8230; + var $8342 = Parser$Reply$error$($8338); + var $8339 = $8342; break; }; - var $8225 = $8227; + var $8337 = $8339; break; case 'Parser.Reply.value': - var $8231 = self.pst; - var $8232 = self.val; - var self = $8231; + var $8343 = self.pst; + var $8344 = self.val; + var self = $8343; switch (self._) { case 'Parser.State.new': - var $8234 = self.err; - var $8235 = self.nam; - var $8236 = self.ini; - var $8237 = self.idx; - var $8238 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8224, $8234), $8235, $8236, $8237, $8238); + var $8346 = self.err; + var $8347 = self.nam; + var $8348 = self.ini; + var $8349 = self.idx; + var $8350 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8336, $8346), $8347, $8348, $8349, $8350); var self = _reply$pst$86; switch (self._) { case 'Parser.State.new': - var $8240 = self.err; + var $8352 = self.err; var _reply$92 = Kind$Parser$text$(":", _reply$pst$86); var self = _reply$92; switch (self._) { case 'Parser.Reply.error': - var $8242 = self.err; - var self = $8240; + var $8354 = self.err; + var self = $8352; switch (self._) { case 'Maybe.some': - var $8244 = self.value; - var $8245 = Parser$Reply$error$(Parser$Error$combine$($8244, $8242)); - var $8243 = $8245; + var $8356 = self.value; + var $8357 = Parser$Reply$error$(Parser$Error$combine$($8356, $8354)); + var $8355 = $8357; break; case 'Maybe.none': - var $8246 = Parser$Reply$error$($8242); - var $8243 = $8246; + var $8358 = Parser$Reply$error$($8354); + var $8355 = $8358; break; }; - var $8241 = $8243; + var $8353 = $8355; break; case 'Parser.Reply.value': - var $8247 = self.pst; - var self = $8247; + var $8359 = self.pst; + var self = $8359; switch (self._) { case 'Parser.State.new': - var $8249 = self.err; - var $8250 = self.nam; - var $8251 = self.ini; - var $8252 = self.idx; - var $8253 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($8240, $8249), $8250, $8251, $8252, $8253); + var $8361 = self.err; + var $8362 = self.nam; + var $8363 = self.ini; + var $8364 = self.idx; + var $8365 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($8352, $8361), $8362, $8363, $8364, $8365); var self = _reply$pst$100; switch (self._) { case 'Parser.State.new': - var $8255 = self.err; + var $8367 = self.err; var _reply$106 = Kind$Parser$term(_reply$pst$100); var self = _reply$106; switch (self._) { case 'Parser.Reply.error': - var $8257 = self.err; - var self = $8255; + var $8369 = self.err; + var self = $8367; switch (self._) { case 'Maybe.some': - var $8259 = self.value; - var $8260 = Parser$Reply$error$(Parser$Error$combine$($8259, $8257)); - var $8258 = $8260; + var $8371 = self.value; + var $8372 = Parser$Reply$error$(Parser$Error$combine$($8371, $8369)); + var $8370 = $8372; break; case 'Maybe.none': - var $8261 = Parser$Reply$error$($8257); - var $8258 = $8261; + var $8373 = Parser$Reply$error$($8369); + var $8370 = $8373; break; }; - var $8256 = $8258; + var $8368 = $8370; break; case 'Parser.Reply.value': - var $8262 = self.pst; - var $8263 = self.val; - var self = $8262; + var $8374 = self.pst; + var $8375 = self.val; + var self = $8374; switch (self._) { case 'Parser.State.new': - var $8265 = self.err; - var $8266 = self.nam; - var $8267 = self.ini; - var $8268 = self.idx; - var $8269 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8255, $8265), $8266, $8267, $8268, $8269); + var $8377 = self.err; + var $8378 = self.nam; + var $8379 = self.ini; + var $8380 = self.idx; + var $8381 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8367, $8377), $8378, $8379, $8380, $8381); var self = _reply$pst$114; switch (self._) { case 'Parser.State.new': - var $8271 = self.err; + var $8383 = 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 $8273 = self.err; - var self = $8271; + var $8385 = self.err; + var self = $8383; switch (self._) { case 'Maybe.some': - var $8275 = self.value; - var $8276 = Parser$Reply$error$(Parser$Error$combine$($8275, $8273)); - var $8274 = $8276; + var $8387 = self.value; + var $8388 = Parser$Reply$error$(Parser$Error$combine$($8387, $8385)); + var $8386 = $8388; break; case 'Maybe.none': - var $8277 = Parser$Reply$error$($8273); - var $8274 = $8277; + var $8389 = Parser$Reply$error$($8385); + var $8386 = $8389; break; }; - var $8272 = $8274; + var $8384 = $8386; break; case 'Parser.Reply.value': - var $8278 = self.pst; - var $8279 = self.val; - var self = $8278; + var $8390 = self.pst; + var $8391 = self.val; + var self = $8390; switch (self._) { case 'Parser.State.new': - var $8281 = self.err; - var $8282 = self.nam; - var $8283 = self.ini; - var $8284 = self.idx; - var $8285 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($8271, $8281), $8282, $8283, $8284, $8285); + var $8393 = self.err; + var $8394 = self.nam; + var $8395 = self.ini; + var $8396 = self.idx; + var $8397 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($8383, $8393), $8394, $8395, $8396, $8397); var _expr$129 = Kind$Term$ref$("Nat.for.io"); - var _expr$130 = Kind$Term$app$(_expr$129, $8201); - var _expr$131 = Kind$Term$app$(_expr$130, $8232); - var _expr$132 = Kind$Term$app$(_expr$131, Kind$Term$lam$($8170, (_x$132 => { - var $8287 = $8263; - return $8287; + var _expr$130 = Kind$Term$app$(_expr$129, $8313); + var _expr$131 = Kind$Term$app$(_expr$130, $8344); + var _expr$132 = Kind$Term$app$(_expr$131, Kind$Term$lam$($8282, (_x$132 => { + var $8399 = $8375; + return $8399; }))); - var self = $8279; + var self = $8391; switch (self._) { case 'Maybe.some': - var $8288 = self.value; + var $8400 = 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 $8290 = $8288; - return $8290; + var $8402 = $8400; + return $8402; }))); - var $8289 = (_pst$140 => { - var $8291 = Parser$Reply$value$(_pst$140, _term$139); - return $8291; + var $8401 = (_pst$140 => { + var $8403 = Parser$Reply$value$(_pst$140, _term$139); + return $8403; }); - var $8286 = $8289; + var $8398 = $8401; break; case 'Maybe.none': - var $8292 = (_pst$133 => { - var $8293 = Parser$Reply$value$(_pst$133, _expr$132); - return $8293; + var $8404 = (_pst$133 => { + var $8405 = Parser$Reply$value$(_pst$133, _expr$132); + return $8405; }); - var $8286 = $8292; + var $8398 = $8404; break; }; - var $8286 = $8286(_reply$pst$128); - var $8280 = $8286; + var $8398 = $8398(_reply$pst$128); + var $8392 = $8398; break; }; - var $8272 = $8280; + var $8384 = $8392; break; }; - var $8270 = $8272; + var $8382 = $8384; break; }; - var $8264 = $8270; + var $8376 = $8382; break; }; - var $8256 = $8264; + var $8368 = $8376; break; }; - var $8254 = $8256; + var $8366 = $8368; break; }; - var $8248 = $8254; + var $8360 = $8366; break; }; - var $8241 = $8248; + var $8353 = $8360; break; }; - var $8239 = $8241; + var $8351 = $8353; break; }; - var $8233 = $8239; + var $8345 = $8351; break; }; - var $8225 = $8233; + var $8337 = $8345; break; }; - var $8223 = $8225; + var $8335 = $8337; break; }; - var $8217 = $8223; + var $8329 = $8335; break; }; - var $8210 = $8217; + var $8322 = $8329; break; }; - var $8208 = $8210; + var $8320 = $8322; break; }; - var $8202 = $8208; + var $8314 = $8320; break; }; - var $8194 = $8202; + var $8306 = $8314; break; }; - var $8192 = $8194; + var $8304 = $8306; break; }; - var $8186 = $8192; + var $8298 = $8304; break; }; - var $8179 = $8186; + var $8291 = $8298; break; }; - var $8177 = $8179; + var $8289 = $8291; break; }; - var $8171 = $8177; + var $8283 = $8289; break; }; - var $8163 = $8171; + var $8275 = $8283; break; }; - var $8161 = $8163; + var $8273 = $8275; break; }; - var $8155 = $8161; + var $8267 = $8273; break; }; - var $8148 = $8155; + var $8260 = $8267; break; }; - var $8146 = $8148; + var $8258 = $8260; break; }; - return $8146; + return $8258; })), List$cons$(Kind$Parser$block("do-for-in")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8295 = self.err; + var $8407 = self.err; var _reply$8 = Kind$Parser$text$("for ", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $8297 = self.err; - var self = $8295; + var $8409 = self.err; + var self = $8407; switch (self._) { case 'Maybe.some': - var $8299 = self.value; - var $8300 = Parser$Reply$error$(Parser$Error$combine$($8299, $8297)); - var $8298 = $8300; + var $8411 = self.value; + var $8412 = Parser$Reply$error$(Parser$Error$combine$($8411, $8409)); + var $8410 = $8412; break; case 'Maybe.none': - var $8301 = Parser$Reply$error$($8297); - var $8298 = $8301; + var $8413 = Parser$Reply$error$($8409); + var $8410 = $8413; break; }; - var $8296 = $8298; + var $8408 = $8410; break; case 'Parser.Reply.value': - var $8302 = self.pst; - var self = $8302; + var $8414 = self.pst; + var self = $8414; switch (self._) { case 'Parser.State.new': - var $8304 = self.err; - var $8305 = self.nam; - var $8306 = self.ini; - var $8307 = self.idx; - var $8308 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8295, $8304), $8305, $8306, $8307, $8308); + var $8416 = self.err; + var $8417 = self.nam; + var $8418 = self.ini; + var $8419 = self.idx; + var $8420 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8407, $8416), $8417, $8418, $8419, $8420); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8310 = self.err; + var $8422 = self.err; var _reply$22 = Kind$Parser$name1$(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8312 = self.err; - var self = $8310; + var $8424 = self.err; + var self = $8422; switch (self._) { case 'Maybe.some': - var $8314 = self.value; - var $8315 = Parser$Reply$error$(Parser$Error$combine$($8314, $8312)); - var $8313 = $8315; + var $8426 = self.value; + var $8427 = Parser$Reply$error$(Parser$Error$combine$($8426, $8424)); + var $8425 = $8427; break; case 'Maybe.none': - var $8316 = Parser$Reply$error$($8312); - var $8313 = $8316; + var $8428 = Parser$Reply$error$($8424); + var $8425 = $8428; break; }; - var $8311 = $8313; + var $8423 = $8425; break; case 'Parser.Reply.value': - var $8317 = self.pst; - var $8318 = self.val; - var self = $8317; + var $8429 = self.pst; + var $8430 = self.val; + var self = $8429; switch (self._) { case 'Parser.State.new': - var $8320 = self.err; - var $8321 = self.nam; - var $8322 = self.ini; - var $8323 = self.idx; - var $8324 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8310, $8320), $8321, $8322, $8323, $8324); + var $8432 = self.err; + var $8433 = self.nam; + var $8434 = self.ini; + var $8435 = self.idx; + var $8436 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8422, $8432), $8433, $8434, $8435, $8436); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8326 = self.err; + var $8438 = self.err; var _reply$36 = Kind$Parser$text$("in", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8328 = self.err; - var self = $8326; + var $8440 = self.err; + var self = $8438; switch (self._) { case 'Maybe.some': - var $8330 = self.value; - var $8331 = Parser$Reply$error$(Parser$Error$combine$($8330, $8328)); - var $8329 = $8331; + var $8442 = self.value; + var $8443 = Parser$Reply$error$(Parser$Error$combine$($8442, $8440)); + var $8441 = $8443; break; case 'Maybe.none': - var $8332 = Parser$Reply$error$($8328); - var $8329 = $8332; + var $8444 = Parser$Reply$error$($8440); + var $8441 = $8444; break; }; - var $8327 = $8329; + var $8439 = $8441; break; case 'Parser.Reply.value': - var $8333 = self.pst; - var self = $8333; + var $8445 = self.pst; + var self = $8445; switch (self._) { case 'Parser.State.new': - var $8335 = self.err; - var $8336 = self.nam; - var $8337 = self.ini; - var $8338 = self.idx; - var $8339 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8326, $8335), $8336, $8337, $8338, $8339); + var $8447 = self.err; + var $8448 = self.nam; + var $8449 = self.ini; + var $8450 = self.idx; + var $8451 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8438, $8447), $8448, $8449, $8450, $8451); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $8341 = self.err; + var $8453 = self.err; var _reply$50 = Kind$Parser$term(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $8343 = self.err; - var self = $8341; + var $8455 = self.err; + var self = $8453; switch (self._) { case 'Maybe.some': - var $8345 = self.value; - var $8346 = Parser$Reply$error$(Parser$Error$combine$($8345, $8343)); - var $8344 = $8346; + var $8457 = self.value; + var $8458 = Parser$Reply$error$(Parser$Error$combine$($8457, $8455)); + var $8456 = $8458; break; case 'Maybe.none': - var $8347 = Parser$Reply$error$($8343); - var $8344 = $8347; + var $8459 = Parser$Reply$error$($8455); + var $8456 = $8459; break; }; - var $8342 = $8344; + var $8454 = $8456; break; case 'Parser.Reply.value': - var $8348 = self.pst; - var $8349 = self.val; - var self = $8348; + var $8460 = self.pst; + var $8461 = self.val; + var self = $8460; switch (self._) { case 'Parser.State.new': - var $8351 = self.err; - var $8352 = self.nam; - var $8353 = self.ini; - var $8354 = self.idx; - var $8355 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8341, $8351), $8352, $8353, $8354, $8355); + var $8463 = self.err; + var $8464 = self.nam; + var $8465 = self.ini; + var $8466 = self.idx; + var $8467 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8453, $8463), $8464, $8465, $8466, $8467); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $8357 = self.err; + var $8469 = self.err; var _reply$64 = Kind$Parser$text$(":", _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $8359 = self.err; - var self = $8357; + var $8471 = self.err; + var self = $8469; switch (self._) { case 'Maybe.some': - var $8361 = self.value; - var $8362 = Parser$Reply$error$(Parser$Error$combine$($8361, $8359)); - var $8360 = $8362; + var $8473 = self.value; + var $8474 = Parser$Reply$error$(Parser$Error$combine$($8473, $8471)); + var $8472 = $8474; break; case 'Maybe.none': - var $8363 = Parser$Reply$error$($8359); - var $8360 = $8363; + var $8475 = Parser$Reply$error$($8471); + var $8472 = $8475; break; }; - var $8358 = $8360; + var $8470 = $8472; break; case 'Parser.Reply.value': - var $8364 = self.pst; - var self = $8364; + var $8476 = self.pst; + var self = $8476; switch (self._) { case 'Parser.State.new': - var $8366 = self.err; - var $8367 = self.nam; - var $8368 = self.ini; - var $8369 = self.idx; - var $8370 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8357, $8366), $8367, $8368, $8369, $8370); + var $8478 = self.err; + var $8479 = self.nam; + var $8480 = self.ini; + var $8481 = self.idx; + var $8482 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8469, $8478), $8479, $8480, $8481, $8482); var self = _reply$pst$72; switch (self._) { case 'Parser.State.new': - var $8372 = self.err; + var $8484 = self.err; var _reply$78 = Kind$Parser$term(_reply$pst$72); var self = _reply$78; switch (self._) { case 'Parser.Reply.error': - var $8374 = self.err; - var self = $8372; + var $8486 = self.err; + var self = $8484; switch (self._) { case 'Maybe.some': - var $8376 = self.value; - var $8377 = Parser$Reply$error$(Parser$Error$combine$($8376, $8374)); - var $8375 = $8377; + var $8488 = self.value; + var $8489 = Parser$Reply$error$(Parser$Error$combine$($8488, $8486)); + var $8487 = $8489; break; case 'Maybe.none': - var $8378 = Parser$Reply$error$($8374); - var $8375 = $8378; + var $8490 = Parser$Reply$error$($8486); + var $8487 = $8490; break; }; - var $8373 = $8375; + var $8485 = $8487; break; case 'Parser.Reply.value': - var $8379 = self.pst; - var $8380 = self.val; - var self = $8379; + var $8491 = self.pst; + var $8492 = self.val; + var self = $8491; 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 _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8372, $8382), $8383, $8384, $8385, $8386); + var $8494 = self.err; + var $8495 = self.nam; + var $8496 = self.ini; + var $8497 = self.idx; + var $8498 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($8484, $8494), $8495, $8496, $8497, $8498); var self = _reply$pst$86; switch (self._) { case 'Parser.State.new': - var $8388 = self.err; + var $8500 = 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 $8390 = self.err; - var self = $8388; + var $8502 = self.err; + var self = $8500; switch (self._) { case 'Maybe.some': - var $8392 = self.value; - var $8393 = Parser$Reply$error$(Parser$Error$combine$($8392, $8390)); - var $8391 = $8393; + var $8504 = self.value; + var $8505 = Parser$Reply$error$(Parser$Error$combine$($8504, $8502)); + var $8503 = $8505; break; case 'Maybe.none': - var $8394 = Parser$Reply$error$($8390); - var $8391 = $8394; + var $8506 = Parser$Reply$error$($8502); + var $8503 = $8506; break; }; - var $8389 = $8391; + var $8501 = $8503; break; case 'Parser.Reply.value': - var $8395 = self.pst; - var $8396 = self.val; - var self = $8395; + var $8507 = self.pst; + var $8508 = self.val; + var self = $8507; switch (self._) { case 'Parser.State.new': - var $8398 = self.err; - var $8399 = self.nam; - var $8400 = self.ini; - var $8401 = self.idx; - var $8402 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($8388, $8398), $8399, $8400, $8401, $8402); + var $8510 = self.err; + var $8511 = self.nam; + var $8512 = self.ini; + var $8513 = self.idx; + var $8514 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($8500, $8510), $8511, $8512, $8513, $8514); 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, $8349); - var _expr$104 = Kind$Term$app$(_expr$103, Kind$Term$lam$($8318, (_x$104 => { - var $8404 = $8380; - return $8404; + var _expr$103 = Kind$Term$app$(_expr$102, $8461); + var _expr$104 = Kind$Term$app$(_expr$103, Kind$Term$lam$($8430, (_x$104 => { + var $8516 = $8492; + return $8516; }))); - var self = $8396; + var self = $8508; switch (self._) { case 'Maybe.some': - var $8405 = self.value; + var $8517 = 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 $8407 = $8405; - return $8407; + var $8519 = $8517; + return $8519; }))); - var $8406 = (_pst$112 => { - var $8408 = Parser$Reply$value$(_pst$112, _term$111); - return $8408; + var $8518 = (_pst$112 => { + var $8520 = Parser$Reply$value$(_pst$112, _term$111); + return $8520; }); - var $8403 = $8406; + var $8515 = $8518; break; case 'Maybe.none': - var $8409 = (_pst$105 => { - var $8410 = Parser$Reply$value$(_pst$105, _expr$104); - return $8410; + var $8521 = (_pst$105 => { + var $8522 = Parser$Reply$value$(_pst$105, _expr$104); + return $8522; }); - var $8403 = $8409; + var $8515 = $8521; break; }; - var $8403 = $8403(_reply$pst$100); - var $8397 = $8403; + var $8515 = $8515(_reply$pst$100); + var $8509 = $8515; break; }; - var $8389 = $8397; + var $8501 = $8509; break; }; - var $8387 = $8389; + var $8499 = $8501; break; }; - var $8381 = $8387; + var $8493 = $8499; break; }; - var $8373 = $8381; + var $8485 = $8493; break; }; - var $8371 = $8373; + var $8483 = $8485; break; }; - var $8365 = $8371; + var $8477 = $8483; break; }; - var $8358 = $8365; + var $8470 = $8477; break; }; - var $8356 = $8358; + var $8468 = $8470; break; }; - var $8350 = $8356; + var $8462 = $8468; break; }; - var $8342 = $8350; + var $8454 = $8462; break; }; - var $8340 = $8342; + var $8452 = $8454; break; }; - var $8334 = $8340; + var $8446 = $8452; break; }; - var $8327 = $8334; + var $8439 = $8446; break; }; - var $8325 = $8327; + var $8437 = $8439; break; }; - var $8319 = $8325; + var $8431 = $8437; break; }; - var $8311 = $8319; + var $8423 = $8431; break; }; - var $8309 = $8311; + var $8421 = $8423; break; }; - var $8303 = $8309; + var $8415 = $8421; break; }; - var $8296 = $8303; + var $8408 = $8415; break; }; - var $8294 = $8296; + var $8406 = $8408; break; }; - return $8294; + return $8406; })), List$cons$(Kind$Parser$letforrange$u32$((_x$2 => { - var $8411 = Kind$Parser$do$statements$(_monad_name$1); - return $8411; + var $8523 = Kind$Parser$do$statements$(_monad_name$1); + return $8523; })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$2 => { - var $8412 = Kind$Parser$do$statements$(_monad_name$1); - return $8412; + var $8524 = Kind$Parser$do$statements$(_monad_name$1); + return $8524; })), List$cons$(Kind$Parser$letforrange$nat$((_x$2 => { - var $8413 = Kind$Parser$do$statements$(_monad_name$1); - return $8413; + var $8525 = Kind$Parser$do$statements$(_monad_name$1); + return $8525; })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$2 => { - var $8414 = Kind$Parser$do$statements$(_monad_name$1); - return $8414; + var $8526 = Kind$Parser$do$statements$(_monad_name$1); + return $8526; })), List$cons$(Kind$Parser$letforin$((_x$2 => { - var $8415 = Kind$Parser$do$statements$(_monad_name$1); - return $8415; + var $8527 = Kind$Parser$do$statements$(_monad_name$1); + return $8527; })), List$cons$(Kind$Parser$letforin$with$((_x$2 => { - var $8416 = Kind$Parser$do$statements$(_monad_name$1); - return $8416; + var $8528 = Kind$Parser$do$statements$(_monad_name$1); + return $8528; })), List$cons$(Kind$Parser$letwhile$((_x$2 => { - var $8417 = Kind$Parser$do$statements$(_monad_name$1); - return $8417; + var $8529 = Kind$Parser$do$statements$(_monad_name$1); + return $8529; })), List$cons$(Kind$Parser$letwhile$with$((_x$2 => { - var $8418 = Kind$Parser$do$statements$(_monad_name$1); - return $8418; + var $8530 = Kind$Parser$do$statements$(_monad_name$1); + return $8530; })), List$cons$(Kind$Parser$getforin$((_x$2 => { - var $8419 = Kind$Parser$do$statements$(_monad_name$1); - return $8419; + var $8531 = Kind$Parser$do$statements$(_monad_name$1); + return $8531; })), List$cons$(Kind$Parser$getforin$with$((_x$2 => { - var $8420 = Kind$Parser$do$statements$(_monad_name$1); - return $8420; + var $8532 = Kind$Parser$do$statements$(_monad_name$1); + return $8532; })), List$cons$(Kind$Parser$let$abort$((_x$2 => { - var $8421 = Kind$Parser$do$statements$(_monad_name$1); - return $8421; + var $8533 = Kind$Parser$do$statements$(_monad_name$1); + return $8533; })), List$cons$(Kind$Parser$let$((_x$2 => { - var $8422 = Kind$Parser$do$statements$(_monad_name$1); - return $8422; + var $8534 = Kind$Parser$do$statements$(_monad_name$1); + return $8534; })), List$cons$(Kind$Parser$getwhile$((_x$2 => { - var $8423 = Kind$Parser$do$statements$(_monad_name$1); - return $8423; + var $8535 = Kind$Parser$do$statements$(_monad_name$1); + return $8535; })), List$cons$(Kind$Parser$getwhile$with((_x$2 => { - var $8424 = Kind$Parser$do$statements$(_monad_name$1); - return $8424; + var $8536 = Kind$Parser$do$statements$(_monad_name$1); + return $8536; })), List$cons$(Kind$Parser$get$((_x$2 => { - var $8425 = Kind$Parser$do$statements$(_monad_name$1); - return $8425; + var $8537 = Kind$Parser$do$statements$(_monad_name$1); + return $8537; })), List$cons$(Kind$Parser$def$((_x$2 => { - var $8426 = Kind$Parser$do$statements$(_monad_name$1); - return $8426; + var $8538 = Kind$Parser$do$statements$(_monad_name$1); + return $8538; })), List$cons$(Kind$Parser$lens$let((_x$2 => { - var $8427 = Kind$Parser$do$statements$(_monad_name$1); - return $8427; + var $8539 = Kind$Parser$do$statements$(_monad_name$1); + return $8539; })), List$cons$(Kind$Parser$use$abort$((_x$2 => { - var $8428 = Kind$Parser$do$statements$(_monad_name$1); - return $8428; + var $8540 = Kind$Parser$do$statements$(_monad_name$1); + return $8540; })), List$cons$(Kind$Parser$use$((_x$2 => { - var $8429 = Kind$Parser$do$statements$(_monad_name$1); - return $8429; + var $8541 = Kind$Parser$do$statements$(_monad_name$1); + return $8541; })), List$cons$(Kind$Parser$log$((_x$2 => { - var $8430 = Kind$Parser$do$statements$(_monad_name$1); - return $8430; + var $8542 = Kind$Parser$do$statements$(_monad_name$1); + return $8542; })), List$cons$(Kind$Parser$open$((_x$2 => { - var $8431 = Kind$Parser$do$statements$(_monad_name$1); - return $8431; + var $8543 = Kind$Parser$do$statements$(_monad_name$1); + return $8543; })), List$cons$(Kind$Parser$block("do-statement")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8433 = self.err; + var $8545 = self.err; var _reply$8 = Kind$Parser$term(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $8435 = self.err; - var self = $8433; + var $8547 = self.err; + var self = $8545; switch (self._) { case 'Maybe.some': - var $8437 = self.value; - var $8438 = Parser$Reply$error$(Parser$Error$combine$($8437, $8435)); - var $8436 = $8438; + var $8549 = self.value; + var $8550 = Parser$Reply$error$(Parser$Error$combine$($8549, $8547)); + var $8548 = $8550; break; case 'Maybe.none': - var $8439 = Parser$Reply$error$($8435); - var $8436 = $8439; + var $8551 = Parser$Reply$error$($8547); + var $8548 = $8551; break; }; - var $8434 = $8436; + var $8546 = $8548; break; case 'Parser.Reply.value': - var $8440 = self.pst; - var $8441 = self.val; - var self = $8440; + var $8552 = self.pst; + var $8553 = self.val; + var self = $8552; switch (self._) { case 'Parser.State.new': - var $8443 = self.err; - var $8444 = self.nam; - var $8445 = self.ini; - var $8446 = self.idx; - var $8447 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8433, $8443), $8444, $8445, $8446, $8447); + var $8555 = self.err; + var $8556 = self.nam; + var $8557 = self.ini; + var $8558 = self.idx; + var $8559 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8545, $8555), $8556, $8557, $8558, $8559); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8449 = self.err; + var $8561 = self.err; var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8451 = self.err; - var self = $8449; + var $8563 = self.err; + var self = $8561; switch (self._) { case 'Maybe.some': - var $8453 = self.value; - var $8454 = Parser$Reply$error$(Parser$Error$combine$($8453, $8451)); - var $8452 = $8454; + var $8565 = self.value; + var $8566 = Parser$Reply$error$(Parser$Error$combine$($8565, $8563)); + var $8564 = $8566; break; case 'Maybe.none': - var $8455 = Parser$Reply$error$($8451); - var $8452 = $8455; + var $8567 = Parser$Reply$error$($8563); + var $8564 = $8567; break; }; - var $8450 = $8452; + var $8562 = $8564; break; case 'Parser.Reply.value': - var $8456 = self.pst; - var self = $8456; + var $8568 = self.pst; + var self = $8568; switch (self._) { case 'Parser.State.new': - var $8458 = self.err; - var $8459 = self.nam; - var $8460 = self.ini; - var $8461 = self.idx; - var $8462 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8449, $8458), $8459, $8460, $8461, $8462); + var $8570 = self.err; + var $8571 = self.nam; + var $8572 = self.ini; + var $8573 = self.idx; + var $8574 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8561, $8570), $8571, $8572, $8573, $8574); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8464 = self.err; + var $8576 = 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 $8466 = self.err; - var self = $8464; + var $8578 = self.err; + var self = $8576; switch (self._) { case 'Maybe.some': - var $8468 = self.value; - var $8469 = Parser$Reply$error$(Parser$Error$combine$($8468, $8466)); - var $8467 = $8469; + var $8580 = self.value; + var $8581 = Parser$Reply$error$(Parser$Error$combine$($8580, $8578)); + var $8579 = $8581; break; case 'Maybe.none': - var $8470 = Parser$Reply$error$($8466); - var $8467 = $8470; + var $8582 = Parser$Reply$error$($8578); + var $8579 = $8582; break; }; - var $8465 = $8467; + var $8577 = $8579; break; case 'Parser.Reply.value': - var $8471 = self.pst; - var $8472 = self.val; - var self = $8471; + var $8583 = self.pst; + var $8584 = self.val; + var self = $8583; switch (self._) { case 'Parser.State.new': - var $8474 = self.err; - var $8475 = self.nam; - var $8476 = self.ini; - var $8477 = self.idx; - var $8478 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8464, $8474), $8475, $8476, $8477, $8478); + var $8586 = self.err; + var $8587 = self.nam; + var $8588 = self.ini; + var $8589 = self.idx; + var $8590 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8576, $8586), $8587, $8588, $8589, $8590); 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, $8441); + var _term$49 = Kind$Term$app$(_term$48, $8553); var _term$50 = Kind$Term$app$(_term$49, Kind$Term$lam$("", (_x$50 => { - var $8480 = $8472; - return $8480; + var $8592 = $8584; + return $8592; }))); - var $8479 = Parser$Reply$value$(_reply$pst$44, _term$50); - var $8473 = $8479; + var $8591 = Parser$Reply$value$(_reply$pst$44, _term$50); + var $8585 = $8591; break; }; - var $8465 = $8473; + var $8577 = $8585; break; }; - var $8463 = $8465; + var $8575 = $8577; break; }; - var $8457 = $8463; + var $8569 = $8575; break; }; - var $8450 = $8457; + var $8562 = $8569; break; }; - var $8448 = $8450; + var $8560 = $8562; break; }; - var $8442 = $8448; + var $8554 = $8560; break; }; - var $8434 = $8442; + var $8546 = $8554; break; }; - var $8432 = $8434; + var $8544 = $8546; break; }; - return $8432; + return $8544; })), List$cons$(Kind$Parser$block("do-end")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $8482 = self.err; + var $8594 = self.err; var _reply$8 = Kind$Parser$term(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $8484 = self.err; - var self = $8482; + var $8596 = self.err; + var self = $8594; switch (self._) { case 'Maybe.some': - var $8486 = self.value; - var $8487 = Parser$Reply$error$(Parser$Error$combine$($8486, $8484)); - var $8485 = $8487; + var $8598 = self.value; + var $8599 = Parser$Reply$error$(Parser$Error$combine$($8598, $8596)); + var $8597 = $8599; break; case 'Maybe.none': - var $8488 = Parser$Reply$error$($8484); - var $8485 = $8488; + var $8600 = Parser$Reply$error$($8596); + var $8597 = $8600; break; }; - var $8483 = $8485; + var $8595 = $8597; break; case 'Parser.Reply.value': - var $8489 = self.pst; - var $8490 = self.val; - var self = $8489; + var $8601 = self.pst; + var $8602 = self.val; + var self = $8601; switch (self._) { case 'Parser.State.new': - var $8492 = self.err; - var $8493 = self.nam; - var $8494 = self.ini; - var $8495 = self.idx; - var $8496 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8482, $8492), $8493, $8494, $8495, $8496); + var $8604 = self.err; + var $8605 = self.nam; + var $8606 = self.ini; + var $8607 = self.idx; + var $8608 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($8594, $8604), $8605, $8606, $8607, $8608); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $8498 = self.err; + var $8610 = self.err; var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8500 = self.err; - var self = $8498; + var $8612 = self.err; + var self = $8610; switch (self._) { case 'Maybe.some': - var $8502 = self.value; - var $8503 = Parser$Reply$error$(Parser$Error$combine$($8502, $8500)); - var $8501 = $8503; + var $8614 = self.value; + var $8615 = Parser$Reply$error$(Parser$Error$combine$($8614, $8612)); + var $8613 = $8615; break; case 'Maybe.none': - var $8504 = Parser$Reply$error$($8500); - var $8501 = $8504; + var $8616 = Parser$Reply$error$($8612); + var $8613 = $8616; break; }; - var $8499 = $8501; + var $8611 = $8613; break; case 'Parser.Reply.value': - var $8505 = self.pst; - var self = $8505; + var $8617 = self.pst; + var self = $8617; switch (self._) { case 'Parser.State.new': - var $8507 = self.err; - var $8508 = self.nam; - var $8509 = self.ini; - var $8510 = self.idx; - var $8511 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8498, $8507), $8508, $8509, $8510, $8511); - var $8512 = Parser$Reply$value$(_reply$pst$30, $8490); - var $8506 = $8512; + var $8619 = self.err; + var $8620 = self.nam; + var $8621 = self.ini; + var $8622 = self.idx; + var $8623 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8610, $8619), $8620, $8621, $8622, $8623); + var $8624 = Parser$Reply$value$(_reply$pst$30, $8602); + var $8618 = $8624; break; }; - var $8499 = $8506; + var $8611 = $8618; break; }; - var $8497 = $8499; + var $8609 = $8611; break; }; - var $8491 = $8497; + var $8603 = $8609; break; }; - var $8483 = $8491; + var $8595 = $8603; break; }; - var $8481 = $8483; + var $8593 = $8595; break; }; - return $8481; + return $8593; })), List$nil)))))))))))))))))))))))))))); - return $8003; + return $8115; }; 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 $8514 = self.err; + var $8626 = self.err; var _reply$7 = Parser$maybe$(Kind$Parser$text("do "), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8516 = self.err; - var self = $8514; + var $8628 = self.err; + var self = $8626; switch (self._) { case 'Maybe.some': - var $8518 = self.value; - var $8519 = Parser$Reply$error$(Parser$Error$combine$($8518, $8516)); - var $8517 = $8519; + var $8630 = self.value; + var $8631 = Parser$Reply$error$(Parser$Error$combine$($8630, $8628)); + var $8629 = $8631; break; case 'Maybe.none': - var $8520 = Parser$Reply$error$($8516); - var $8517 = $8520; + var $8632 = Parser$Reply$error$($8628); + var $8629 = $8632; break; }; - var $8515 = $8517; + var $8627 = $8629; break; case 'Parser.Reply.value': - var $8521 = self.pst; - var self = $8521; + var $8633 = self.pst; + var self = $8633; switch (self._) { case 'Parser.State.new': - var $8523 = self.err; - var $8524 = self.nam; - var $8525 = self.ini; - var $8526 = self.idx; - var $8527 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8514, $8523), $8524, $8525, $8526, $8527); + var $8635 = self.err; + var $8636 = self.nam; + var $8637 = self.ini; + var $8638 = self.idx; + var $8639 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8626, $8635), $8636, $8637, $8638, $8639); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $8529 = self.err; + var $8641 = self.err; var _reply$21 = Kind$Parser$name1$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $8531 = self.err; - var self = $8529; + var $8643 = self.err; + var self = $8641; switch (self._) { case 'Maybe.some': - var $8533 = self.value; - var $8534 = Parser$Reply$error$(Parser$Error$combine$($8533, $8531)); - var $8532 = $8534; + var $8645 = self.value; + var $8646 = Parser$Reply$error$(Parser$Error$combine$($8645, $8643)); + var $8644 = $8646; break; case 'Maybe.none': - var $8535 = Parser$Reply$error$($8531); - var $8532 = $8535; + var $8647 = Parser$Reply$error$($8643); + var $8644 = $8647; break; }; - var $8530 = $8532; + var $8642 = $8644; break; case 'Parser.Reply.value': - var $8536 = self.pst; - var $8537 = self.val; - var self = $8536; + var $8648 = self.pst; + var $8649 = self.val; + var self = $8648; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($8529, $8539), $8540, $8541, $8542, $8543); - var self = String$is_upper$(String$slice$(0n, 1n, $8537)); + var $8651 = self.err; + var $8652 = self.nam; + var $8653 = self.ini; + var $8654 = self.idx; + var $8655 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8641, $8651), $8652, $8653, $8654, $8655); + var self = String$is_upper$(String$slice$(0n, 1n, $8649)); if (self) { - var $8545 = (_pst$30 => { + var $8657 = (_pst$30 => { var self = _pst$30; switch (self._) { case 'Parser.State.new': - var $8547 = self.err; + var $8659 = self.err; var _reply$36 = Parser$text$(" {", _pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8549 = self.err; - var self = $8547; + var $8661 = self.err; + var self = $8659; switch (self._) { case 'Maybe.some': - var $8551 = self.value; - var $8552 = Parser$Reply$error$(Parser$Error$combine$($8551, $8549)); - var $8550 = $8552; + var $8663 = self.value; + var $8664 = Parser$Reply$error$(Parser$Error$combine$($8663, $8661)); + var $8662 = $8664; break; case 'Maybe.none': - var $8553 = Parser$Reply$error$($8549); - var $8550 = $8553; + var $8665 = Parser$Reply$error$($8661); + var $8662 = $8665; break; }; - var $8548 = $8550; + var $8660 = $8662; break; case 'Parser.Reply.value': - var $8554 = self.pst; - var self = $8554; + var $8666 = self.pst; + var self = $8666; switch (self._) { case 'Parser.State.new': - var $8556 = self.err; - var $8557 = self.nam; - var $8558 = self.ini; - var $8559 = self.idx; - var $8560 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8547, $8556), $8557, $8558, $8559, $8560); + var $8668 = self.err; + var $8669 = self.nam; + var $8670 = self.ini; + var $8671 = self.idx; + var $8672 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8659, $8668), $8669, $8670, $8671, $8672); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $8562 = self.err; - var _reply$50 = Kind$Parser$do$statements$($8537)(_reply$pst$44); + var $8674 = self.err; + var _reply$50 = Kind$Parser$do$statements$($8649)(_reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $8564 = self.err; - var self = $8562; + var $8676 = self.err; + var self = $8674; switch (self._) { case 'Maybe.some': - var $8566 = self.value; - var $8567 = Parser$Reply$error$(Parser$Error$combine$($8566, $8564)); - var $8565 = $8567; + var $8678 = self.value; + var $8679 = Parser$Reply$error$(Parser$Error$combine$($8678, $8676)); + var $8677 = $8679; break; case 'Maybe.none': - var $8568 = Parser$Reply$error$($8564); - var $8565 = $8568; + var $8680 = Parser$Reply$error$($8676); + var $8677 = $8680; break; }; - var $8563 = $8565; + var $8675 = $8677; break; case 'Parser.Reply.value': - var $8569 = self.pst; - var $8570 = self.val; - var self = $8569; + var $8681 = self.pst; + var $8682 = self.val; + var self = $8681; switch (self._) { case 'Parser.State.new': - var $8572 = self.err; - var $8573 = self.nam; - var $8574 = self.ini; - var $8575 = self.idx; - var $8576 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8562, $8572), $8573, $8574, $8575, $8576); + var $8684 = self.err; + var $8685 = self.nam; + var $8686 = self.ini; + var $8687 = self.idx; + var $8688 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8674, $8684), $8685, $8686, $8687, $8688); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $8578 = self.err; + var $8690 = self.err; var _reply$64 = Kind$Parser$text$("}", _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $8580 = self.err; - var self = $8578; + var $8692 = self.err; + var self = $8690; switch (self._) { case 'Maybe.some': - var $8582 = self.value; - var $8583 = Parser$Reply$error$(Parser$Error$combine$($8582, $8580)); - var $8581 = $8583; + var $8694 = self.value; + var $8695 = Parser$Reply$error$(Parser$Error$combine$($8694, $8692)); + var $8693 = $8695; break; case 'Maybe.none': - var $8584 = Parser$Reply$error$($8580); - var $8581 = $8584; + var $8696 = Parser$Reply$error$($8692); + var $8693 = $8696; break; }; - var $8579 = $8581; + var $8691 = $8693; break; case 'Parser.Reply.value': - var $8585 = self.pst; - var self = $8585; + var $8697 = self.pst; + var self = $8697; 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$72 = Parser$State$new$(Parser$Error$maybe_combine$($8578, $8587), $8588, $8589, $8590, $8591); - var $8592 = Parser$Reply$value$(_reply$pst$72, $8570); - var $8586 = $8592; + var $8699 = self.err; + var $8700 = self.nam; + var $8701 = self.ini; + var $8702 = self.idx; + var $8703 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8690, $8699), $8700, $8701, $8702, $8703); + var $8704 = Parser$Reply$value$(_reply$pst$72, $8682); + var $8698 = $8704; break; }; - var $8579 = $8586; + var $8691 = $8698; break; }; - var $8577 = $8579; + var $8689 = $8691; break; }; - var $8571 = $8577; + var $8683 = $8689; break; }; - var $8563 = $8571; + var $8675 = $8683; break; }; - var $8561 = $8563; + var $8673 = $8675; break; }; - var $8555 = $8561; + var $8667 = $8673; break; }; - var $8548 = $8555; + var $8660 = $8667; break; }; - var $8546 = $8548; + var $8658 = $8660; break; }; - return $8546; + return $8658; }); - var $8544 = $8545; + var $8656 = $8657; } else { - var $8593 = Parser$fail("Not a do-block."); - var $8544 = $8593; + var $8705 = Parser$fail("Not a do-block."); + var $8656 = $8705; }; - var $8544 = $8544(_reply$pst$29); - var $8538 = $8544; + var $8656 = $8656(_reply$pst$29); + var $8650 = $8656; break; }; - var $8530 = $8538; + var $8642 = $8650; break; }; - var $8528 = $8530; + var $8640 = $8642; break; }; - var $8522 = $8528; + var $8634 = $8640; break; }; - var $8515 = $8522; + var $8627 = $8634; break; }; - var $8513 = $8515; + var $8625 = $8627; break; }; - return $8513; + return $8625; })); function Kind$Term$extract_name$(_term$1) { @@ -27060,14 +27379,14 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Term.var': - var $8595 = self.name; - var $8596 = $8595; - var $8594 = $8596; + var $8707 = self.name; + var $8708 = $8707; + var $8706 = $8708; break; case 'Kind.Term.ref': - var $8597 = self.name; - var $8598 = $8597; - var $8594 = $8598; + var $8709 = self.name; + var $8710 = $8709; + var $8706 = $8710; break; case 'Kind.Term.typ': case 'Kind.Term.all': @@ -27090,534 +27409,534 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $8599 = "self"; - var $8594 = $8599; + var $8711 = "self"; + var $8706 = $8711; break; }; - return $8594; + return $8706; }; const Kind$Term$extract_name = x0 => Kind$Term$extract_name$(x0); function Kind$Ann$new$(_name$1, _term$2, _type$3) { - var $8600 = ({ + var $8712 = ({ _: 'Kind.Ann.new', 'name': _name$1, 'term': _term$2, 'type': _type$3 }); - return $8600; + return $8712; }; 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 $8602 = self.err; + var $8714 = self.err; var _reply$7 = Kind$Parser$text$("with ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8604 = self.err; - var self = $8602; + var $8716 = self.err; + var self = $8714; switch (self._) { case 'Maybe.some': - var $8606 = self.value; - var $8607 = Parser$Reply$error$(Parser$Error$combine$($8606, $8604)); - var $8605 = $8607; + var $8718 = self.value; + var $8719 = Parser$Reply$error$(Parser$Error$combine$($8718, $8716)); + var $8717 = $8719; break; case 'Maybe.none': - var $8608 = Parser$Reply$error$($8604); - var $8605 = $8608; + var $8720 = Parser$Reply$error$($8716); + var $8717 = $8720; break; }; - var $8603 = $8605; + var $8715 = $8717; break; case 'Parser.Reply.value': - var $8609 = self.pst; - var self = $8609; + var $8721 = self.pst; + var self = $8721; switch (self._) { case 'Parser.State.new': - var $8611 = self.err; - var $8612 = self.nam; - var $8613 = self.ini; - var $8614 = self.idx; - var $8615 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8602, $8611), $8612, $8613, $8614, $8615); - var $8616 = Parser$many$((_pst$16 => { + var $8723 = self.err; + var $8724 = self.nam; + var $8725 = self.ini; + var $8726 = self.idx; + var $8727 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8714, $8723), $8724, $8725, $8726, $8727); + var $8728 = Parser$many$((_pst$16 => { var self = _pst$16; switch (self._) { case 'Parser.State.new': - var $8618 = self.err; + var $8730 = self.err; var _reply$22 = Kind$Parser$name1$(_pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8620 = self.err; - var self = $8618; + var $8732 = self.err; + var self = $8730; switch (self._) { case 'Maybe.some': - var $8622 = self.value; - var $8623 = Parser$Reply$error$(Parser$Error$combine$($8622, $8620)); - var $8621 = $8623; + var $8734 = self.value; + var $8735 = Parser$Reply$error$(Parser$Error$combine$($8734, $8732)); + var $8733 = $8735; break; case 'Maybe.none': - var $8624 = Parser$Reply$error$($8620); - var $8621 = $8624; + var $8736 = Parser$Reply$error$($8732); + var $8733 = $8736; break; }; - var $8619 = $8621; + var $8731 = $8733; break; case 'Parser.Reply.value': - var $8625 = self.pst; - var $8626 = self.val; - var self = $8625; + var $8737 = self.pst; + var $8738 = self.val; + var self = $8737; switch (self._) { case 'Parser.State.new': - var $8628 = self.err; - var $8629 = self.nam; - var $8630 = self.ini; - var $8631 = self.idx; - var $8632 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8618, $8628), $8629, $8630, $8631, $8632); + var $8740 = self.err; + var $8741 = self.nam; + var $8742 = self.ini; + var $8743 = self.idx; + var $8744 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8730, $8740), $8741, $8742, $8743, $8744); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8634 = self.err; + var $8746 = self.err; var _reply$36 = Parser$maybe$((_pst$36 => { var self = _pst$36; switch (self._) { case 'Parser.State.new': - var $8637 = self.err; + var $8749 = self.err; var _reply$42 = Kind$Parser$text$(":", _pst$36); var self = _reply$42; switch (self._) { case 'Parser.Reply.error': - var $8639 = self.err; - var self = $8637; + var $8751 = self.err; + var self = $8749; switch (self._) { case 'Maybe.some': - var $8641 = self.value; - var $8642 = Parser$Reply$error$(Parser$Error$combine$($8641, $8639)); - var $8640 = $8642; + var $8753 = self.value; + var $8754 = Parser$Reply$error$(Parser$Error$combine$($8753, $8751)); + var $8752 = $8754; break; case 'Maybe.none': - var $8643 = Parser$Reply$error$($8639); - var $8640 = $8643; + var $8755 = Parser$Reply$error$($8751); + var $8752 = $8755; break; }; - var $8638 = $8640; + var $8750 = $8752; break; case 'Parser.Reply.value': - var $8644 = self.pst; - var self = $8644; + var $8756 = self.pst; + var self = $8756; switch (self._) { case 'Parser.State.new': - var $8646 = self.err; - var $8647 = self.nam; - var $8648 = self.ini; - var $8649 = self.idx; - var $8650 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8637, $8646), $8647, $8648, $8649, $8650); + var $8758 = self.err; + var $8759 = self.nam; + var $8760 = self.ini; + var $8761 = self.idx; + var $8762 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8749, $8758), $8759, $8760, $8761, $8762); var self = _reply$pst$50; switch (self._) { case 'Parser.State.new': - var $8652 = self.err; + var $8764 = self.err; var _reply$56 = Kind$Parser$term(_reply$pst$50); var self = _reply$56; switch (self._) { case 'Parser.Reply.error': - var $8654 = self.err; - var self = $8652; + var $8766 = self.err; + var self = $8764; switch (self._) { case 'Maybe.some': - var $8656 = self.value; - var $8657 = Parser$Reply$error$(Parser$Error$combine$($8656, $8654)); - var $8655 = $8657; + var $8768 = self.value; + var $8769 = Parser$Reply$error$(Parser$Error$combine$($8768, $8766)); + var $8767 = $8769; break; case 'Maybe.none': - var $8658 = Parser$Reply$error$($8654); - var $8655 = $8658; + var $8770 = Parser$Reply$error$($8766); + var $8767 = $8770; break; }; - var $8653 = $8655; + var $8765 = $8767; break; case 'Parser.Reply.value': - var $8659 = self.pst; - var $8660 = self.val; - var self = $8659; + var $8771 = self.pst; + var $8772 = self.val; + var self = $8771; switch (self._) { case 'Parser.State.new': - var $8662 = self.err; - var $8663 = self.nam; - var $8664 = self.ini; - var $8665 = self.idx; - var $8666 = self.str; - var _reply$pst$64 = Parser$State$new$(Parser$Error$maybe_combine$($8652, $8662), $8663, $8664, $8665, $8666); + var $8774 = self.err; + var $8775 = self.nam; + var $8776 = self.ini; + var $8777 = self.idx; + var $8778 = self.str; + var _reply$pst$64 = Parser$State$new$(Parser$Error$maybe_combine$($8764, $8774), $8775, $8776, $8777, $8778); var self = _reply$pst$64; switch (self._) { case 'Parser.State.new': - var $8668 = self.err; + var $8780 = self.err; var _reply$70 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$64); var self = _reply$70; switch (self._) { case 'Parser.Reply.error': - var $8670 = self.err; - var self = $8668; + var $8782 = self.err; + var self = $8780; switch (self._) { case 'Maybe.some': - var $8672 = self.value; - var $8673 = Parser$Reply$error$(Parser$Error$combine$($8672, $8670)); - var $8671 = $8673; + var $8784 = self.value; + var $8785 = Parser$Reply$error$(Parser$Error$combine$($8784, $8782)); + var $8783 = $8785; break; case 'Maybe.none': - var $8674 = Parser$Reply$error$($8670); - var $8671 = $8674; + var $8786 = Parser$Reply$error$($8782); + var $8783 = $8786; break; }; - var $8669 = $8671; + var $8781 = $8783; break; case 'Parser.Reply.value': - var $8675 = self.pst; - var self = $8675; + var $8787 = self.pst; + var self = $8787; switch (self._) { case 'Parser.State.new': - var $8677 = self.err; - var $8678 = self.nam; - var $8679 = self.ini; - var $8680 = self.idx; - var $8681 = self.str; - var _reply$pst$78 = Parser$State$new$(Parser$Error$maybe_combine$($8668, $8677), $8678, $8679, $8680, $8681); - var $8682 = Parser$Reply$value$(_reply$pst$78, $8660); - var $8676 = $8682; + var $8789 = self.err; + var $8790 = self.nam; + var $8791 = self.ini; + var $8792 = self.idx; + var $8793 = self.str; + var _reply$pst$78 = Parser$State$new$(Parser$Error$maybe_combine$($8780, $8789), $8790, $8791, $8792, $8793); + var $8794 = Parser$Reply$value$(_reply$pst$78, $8772); + var $8788 = $8794; break; }; - var $8669 = $8676; + var $8781 = $8788; break; }; - var $8667 = $8669; + var $8779 = $8781; break; }; - var $8661 = $8667; + var $8773 = $8779; break; }; - var $8653 = $8661; + var $8765 = $8773; break; }; - var $8651 = $8653; + var $8763 = $8765; break; }; - var $8645 = $8651; + var $8757 = $8763; break; }; - var $8638 = $8645; + var $8750 = $8757; break; }; - var $8636 = $8638; + var $8748 = $8750; break; }; - return $8636; + return $8748; }), _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8683 = self.err; - var self = $8634; + var $8795 = self.err; + var self = $8746; switch (self._) { case 'Maybe.some': - var $8685 = self.value; - var $8686 = Parser$Reply$error$(Parser$Error$combine$($8685, $8683)); - var $8684 = $8686; + var $8797 = self.value; + var $8798 = Parser$Reply$error$(Parser$Error$combine$($8797, $8795)); + var $8796 = $8798; break; case 'Maybe.none': - var $8687 = Parser$Reply$error$($8683); - var $8684 = $8687; + var $8799 = Parser$Reply$error$($8795); + var $8796 = $8799; break; }; - var $8635 = $8684; + var $8747 = $8796; break; case 'Parser.Reply.value': - var $8688 = self.pst; - var $8689 = self.val; - var self = $8688; + var $8800 = self.pst; + var $8801 = self.val; + var self = $8800; switch (self._) { case 'Parser.State.new': - var $8691 = self.err; - var $8692 = self.nam; - var $8693 = self.ini; - var $8694 = self.idx; - var $8695 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8634, $8691), $8692, $8693, $8694, $8695); - var $8696 = Parser$Reply$value$(_reply$pst$44, Kind$Ann$new$($8626, Kind$Term$ref$($8626), $8689)); - var $8690 = $8696; + var $8803 = self.err; + var $8804 = self.nam; + var $8805 = self.ini; + var $8806 = self.idx; + var $8807 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8746, $8803), $8804, $8805, $8806, $8807); + var $8808 = Parser$Reply$value$(_reply$pst$44, Kind$Ann$new$($8738, Kind$Term$ref$($8738), $8801)); + var $8802 = $8808; break; }; - var $8635 = $8690; + var $8747 = $8802; break; }; - var $8633 = $8635; + var $8745 = $8747; break; }; - var $8627 = $8633; + var $8739 = $8745; break; }; - var $8619 = $8627; + var $8731 = $8739; break; }; - var $8617 = $8619; + var $8729 = $8731; break; }; - return $8617; + return $8729; }))(_reply$pst$15); - var $8610 = $8616; + var $8722 = $8728; break; }; - var $8603 = $8610; + var $8715 = $8722; break; }; - var $8601 = $8603; + var $8713 = $8715; break; }; - return $8601; + return $8713; }), List$cons$((_pst$1 => { - var $8697 = Parser$Reply$value$(_pst$1, List$nil); - return $8697; + var $8809 = Parser$Reply$value$(_pst$1, List$nil); + return $8809; }), List$nil))); function Kind$Parser$case$case$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8699 = self.err; + var $8811 = self.err; var _reply$7 = Parser$try$(Kind$Parser$text(":"), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8701 = self.err; - var self = $8699; + var $8813 = self.err; + var self = $8811; switch (self._) { case 'Maybe.some': - var $8703 = self.value; - var $8704 = Parser$Reply$error$(Parser$Error$combine$($8703, $8701)); - var $8702 = $8704; + var $8815 = self.value; + var $8816 = Parser$Reply$error$(Parser$Error$combine$($8815, $8813)); + var $8814 = $8816; break; case 'Maybe.none': - var $8705 = Parser$Reply$error$($8701); - var $8702 = $8705; + var $8817 = Parser$Reply$error$($8813); + var $8814 = $8817; break; }; - var $8700 = $8702; + var $8812 = $8814; break; case 'Parser.Reply.value': - var $8706 = self.pst; - var $8707 = self.val; - var self = $8706; + var $8818 = self.pst; + var $8819 = self.val; + var self = $8818; switch (self._) { case 'Parser.State.new': - var $8709 = self.err; - var $8710 = self.nam; - var $8711 = self.ini; - var $8712 = self.idx; - var $8713 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8699, $8709), $8710, $8711, $8712, $8713); - var self = $8707; + var $8821 = self.err; + var $8822 = self.nam; + var $8823 = self.ini; + var $8824 = self.idx; + var $8825 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8811, $8821), $8822, $8823, $8824, $8825); + var self = $8819; if (self) { - var $8715 = (_pst$16 => { + var $8827 = (_pst$16 => { var self = _pst$16; switch (self._) { case 'Parser.State.new': - var $8717 = self.err; + var $8829 = self.err; var _reply$22 = Kind$Parser$spaces(_pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $8719 = self.err; - var self = $8717; + var $8831 = self.err; + var self = $8829; switch (self._) { case 'Maybe.some': - var $8721 = self.value; - var $8722 = Parser$Reply$error$(Parser$Error$combine$($8721, $8719)); - var $8720 = $8722; + var $8833 = self.value; + var $8834 = Parser$Reply$error$(Parser$Error$combine$($8833, $8831)); + var $8832 = $8834; break; case 'Maybe.none': - var $8723 = Parser$Reply$error$($8719); - var $8720 = $8723; + var $8835 = Parser$Reply$error$($8831); + var $8832 = $8835; break; }; - var $8718 = $8720; + var $8830 = $8832; break; case 'Parser.Reply.value': - var $8724 = self.pst; - var self = $8724; + var $8836 = self.pst; + var self = $8836; switch (self._) { case 'Parser.State.new': - var $8726 = self.err; - var $8727 = self.nam; - var $8728 = self.ini; - var $8729 = self.idx; - var $8730 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8717, $8726), $8727, $8728, $8729, $8730); - var $8731 = Parser$fail$("Expected constructor names.", _reply$pst$30); - var $8725 = $8731; + var $8838 = self.err; + var $8839 = self.nam; + var $8840 = self.ini; + var $8841 = self.idx; + var $8842 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8829, $8838), $8839, $8840, $8841, $8842); + var $8843 = Parser$fail$("Expected constructor names.", _reply$pst$30); + var $8837 = $8843; break; }; - var $8718 = $8725; + var $8830 = $8837; break; }; - var $8716 = $8718; + var $8828 = $8830; break; }; - return $8716; + return $8828; }); - var $8714 = $8715; + var $8826 = $8827; } else { - var $8732 = (_pst$16 => { + var $8844 = (_pst$16 => { var self = _pst$16; switch (self._) { case 'Parser.State.new': - var $8734 = self.err; + var $8846 = 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 $8736 = self.err; - var self = $8734; + var $8848 = self.err; + var self = $8846; switch (self._) { case 'Maybe.some': - var $8738 = self.value; - var $8739 = Parser$Reply$error$(Parser$Error$combine$($8738, $8736)); - var $8737 = $8739; + var $8850 = self.value; + var $8851 = Parser$Reply$error$(Parser$Error$combine$($8850, $8848)); + var $8849 = $8851; break; case 'Maybe.none': - var $8740 = Parser$Reply$error$($8736); - var $8737 = $8740; + var $8852 = Parser$Reply$error$($8848); + var $8849 = $8852; break; }; - var $8735 = $8737; + var $8847 = $8849; break; case 'Parser.Reply.value': - var $8741 = self.pst; - var $8742 = self.val; - var self = $8741; + var $8853 = self.pst; + var $8854 = self.val; + var self = $8853; switch (self._) { case 'Parser.State.new': - var $8744 = self.err; - var $8745 = self.nam; - var $8746 = self.ini; - var $8747 = self.idx; - var $8748 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8734, $8744), $8745, $8746, $8747, $8748); + var $8856 = self.err; + var $8857 = self.nam; + var $8858 = self.ini; + var $8859 = self.idx; + var $8860 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8846, $8856), $8857, $8858, $8859, $8860); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $8750 = self.err; + var $8862 = self.err; var _reply$36 = Kind$Parser$term(_reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $8752 = self.err; - var self = $8750; + var $8864 = self.err; + var self = $8862; switch (self._) { case 'Maybe.some': - var $8754 = self.value; - var $8755 = Parser$Reply$error$(Parser$Error$combine$($8754, $8752)); - var $8753 = $8755; + var $8866 = self.value; + var $8867 = Parser$Reply$error$(Parser$Error$combine$($8866, $8864)); + var $8865 = $8867; break; case 'Maybe.none': - var $8756 = Parser$Reply$error$($8752); - var $8753 = $8756; + var $8868 = Parser$Reply$error$($8864); + var $8865 = $8868; break; }; - var $8751 = $8753; + var $8863 = $8865; break; case 'Parser.Reply.value': - var $8757 = self.pst; - var $8758 = self.val; - var self = $8757; + var $8869 = self.pst; + var $8870 = self.val; + var self = $8869; switch (self._) { case 'Parser.State.new': - var $8760 = self.err; - var $8761 = self.nam; - var $8762 = self.ini; - var $8763 = self.idx; - var $8764 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8750, $8760), $8761, $8762, $8763, $8764); + var $8872 = self.err; + var $8873 = self.nam; + var $8874 = self.ini; + var $8875 = self.idx; + var $8876 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8862, $8872), $8873, $8874, $8875, $8876); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $8766 = self.err; + var $8878 = self.err; var _reply$50 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $8768 = self.err; - var self = $8766; + var $8880 = self.err; + var self = $8878; switch (self._) { case 'Maybe.some': - var $8770 = self.value; - var $8771 = Parser$Reply$error$(Parser$Error$combine$($8770, $8768)); - var $8769 = $8771; + var $8882 = self.value; + var $8883 = Parser$Reply$error$(Parser$Error$combine$($8882, $8880)); + var $8881 = $8883; break; case 'Maybe.none': - var $8772 = Parser$Reply$error$($8768); - var $8769 = $8772; + var $8884 = Parser$Reply$error$($8880); + var $8881 = $8884; break; }; - var $8767 = $8769; + var $8879 = $8881; break; case 'Parser.Reply.value': - var $8773 = self.pst; - var self = $8773; + var $8885 = self.pst; + var self = $8885; switch (self._) { case 'Parser.State.new': - var $8775 = self.err; - var $8776 = self.nam; - var $8777 = self.ini; - var $8778 = self.idx; - var $8779 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8766, $8775), $8776, $8777, $8778, $8779); - var $8780 = Parser$Reply$value$(_reply$pst$58, Pair$new$($8742, $8758)); - var $8774 = $8780; + var $8887 = self.err; + var $8888 = self.nam; + var $8889 = self.ini; + var $8890 = self.idx; + var $8891 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8878, $8887), $8888, $8889, $8890, $8891); + var $8892 = Parser$Reply$value$(_reply$pst$58, Pair$new$($8854, $8870)); + var $8886 = $8892; break; }; - var $8767 = $8774; + var $8879 = $8886; break; }; - var $8765 = $8767; + var $8877 = $8879; break; }; - var $8759 = $8765; + var $8871 = $8877; break; }; - var $8751 = $8759; + var $8863 = $8871; break; }; - var $8749 = $8751; + var $8861 = $8863; break; }; - var $8743 = $8749; + var $8855 = $8861; break; }; - var $8735 = $8743; + var $8847 = $8855; break; }; - var $8733 = $8735; + var $8845 = $8847; break; }; - return $8733; + return $8845; }); - var $8714 = $8732; + var $8826 = $8844; }; - var $8714 = $8714(_reply$pst$15); - var $8708 = $8714; + var $8826 = $8826(_reply$pst$15); + var $8820 = $8826; break; }; - var $8700 = $8708; + var $8812 = $8820; break; }; - var $8698 = $8700; + var $8810 = $8812; break; }; - return $8698; + return $8810; }; const Kind$Parser$case$case = x0 => Kind$Parser$case$case$(x0); @@ -27626,26 +27945,26 @@ module.exports = (function() { var self = _reply$5; switch (self._) { case 'Parser.Reply.error': - var $8782 = self.err; - var self = $8782; + var $8894 = self.err; + var self = $8894; switch (self._) { case 'Parser.Error.new': - var $8784 = self.nam; - var $8785 = self.ini; - var $8786 = self.idx; - var $8787 = self.msg; - var $8788 = Parser$Reply$fail$($8784, $8785, $8786, ($8787 + _msg$3)); - var $8783 = $8788; + var $8896 = self.nam; + var $8897 = self.ini; + var $8898 = self.idx; + var $8899 = self.msg; + var $8900 = Parser$Reply$fail$($8896, $8897, $8898, ($8899 + _msg$3)); + var $8895 = $8900; break; }; - var $8781 = $8783; + var $8893 = $8895; break; case 'Parser.Reply.value': - var $8789 = _reply$5; - var $8781 = $8789; + var $8901 = _reply$5; + var $8893 = $8901; break; }; - return $8781; + return $8893; }; const Parser$append_error = x0 => x1 => x2 => Parser$append_error$(x0, x1, x2); @@ -27653,50 +27972,50 @@ module.exports = (function() { var self = _cses$2; switch (self._) { case 'List.cons': - var $8791 = self.head; - var $8792 = self.tail; - var _map$5 = Kind$Parser$case$group$(_dflt$1, $8792); - var self = $8791; + var $8903 = self.head; + var $8904 = self.tail; + var _map$5 = Kind$Parser$case$group$(_dflt$1, $8904); + var self = $8903; switch (self._) { case 'Pair.new': - var $8794 = self.fst; - var $8795 = self.snd; - var self = $8794; + var $8906 = self.fst; + var $8907 = self.snd; + var self = $8906; switch (self._) { case 'List.cons': - var $8797 = self.head; - var $8798 = self.tail; - var _rest$10 = Maybe$default$(Kind$Map$get$($8797, _map$5), List$nil); - var $8799 = Kind$Map$set$($8797, List$cons$(Pair$new$($8798, $8795), _rest$10), _map$5); - var $8796 = $8799; + var $8909 = self.head; + var $8910 = self.tail; + var _rest$10 = Maybe$default$(Kind$Map$get$($8909, _map$5), List$nil); + var $8911 = Kind$Map$set$($8909, List$cons$(Pair$new$($8910, $8907), _rest$10), _map$5); + var $8908 = $8911; break; case 'List.nil': - var $8800 = _map$5; - var $8796 = $8800; + var $8912 = _map$5; + var $8908 = $8912; break; }; - var $8793 = $8796; + var $8905 = $8908; break; }; - var $8790 = $8793; + var $8902 = $8905; break; case 'List.nil': var self = _dflt$1; switch (self._) { case 'Maybe.some': - var $8802 = self.value; - var $8803 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $8802), List$nil), Kind$Map$new); - var $8801 = $8803; + var $8914 = self.value; + var $8915 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $8914), List$nil), Kind$Map$new); + var $8913 = $8915; break; case 'Maybe.none': - var $8804 = Kind$Map$new; - var $8801 = $8804; + var $8916 = Kind$Map$new; + var $8913 = $8916; break; }; - var $8790 = $8801; + var $8902 = $8913; break; }; - return $8790; + return $8902; }; const Kind$Parser$case$group = x0 => x1 => Kind$Parser$case$group$(x0, x1); @@ -27704,38 +28023,38 @@ module.exports = (function() { var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $8806 = self.val; - var $8807 = self.lft; - var $8808 = self.rgt; - var self = $8806; + var $8918 = self.val; + var $8919 = self.lft; + var $8920 = self.rgt; + var self = $8918; switch (self._) { case 'Maybe.some': - var $8810 = self.value; - var $8811 = Maybe$some$(_fn$3($8810)); - var _val$8 = $8811; + var $8922 = self.value; + var $8923 = Maybe$some$(_fn$3($8922)); + var _val$8 = $8923; break; case 'Maybe.none': - var $8812 = Maybe$none; - var _val$8 = $8812; + var $8924 = Maybe$none; + var _val$8 = $8924; break; }; - var _lft$9 = BitsMap$map$(_fn$3, $8807); - var _rgt$10 = BitsMap$map$(_fn$3, $8808); - var $8809 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); - var $8805 = $8809; + var _lft$9 = BitsMap$map$(_fn$3, $8919); + var _rgt$10 = BitsMap$map$(_fn$3, $8920); + var $8921 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); + var $8917 = $8921; break; case 'BitsMap.new': - var $8813 = BitsMap$new; - var $8805 = $8813; + var $8925 = BitsMap$new; + var $8917 = $8925; break; }; - return $8805; + return $8917; }; const BitsMap$map = x0 => x1 => BitsMap$map$(x0, x1); function Kind$Map$map$(_fn$3, _map$4) { - var $8814 = BitsMap$map$(_fn$3, _map$4); - return $8814; + var $8926 = BitsMap$map$(_fn$3, _map$4); + return $8926; }; const Kind$Map$map = x0 => x1 => Kind$Map$map$(x0, x1); @@ -27743,1361 +28062,1361 @@ module.exports = (function() { var self = _vals$1; switch (self._) { case 'List.cons': - var $8816 = self.head; - var $8817 = self.tail; + var $8928 = self.head; + var $8929 = self.tail; var _group$8 = Kind$Parser$case$group$(_dflt$4, _cses$3); - var _name$9 = Pair$fst$($8816); - var _expr$10 = Pair$snd$($8816); + var _name$9 = Pair$fst$($8928); + var _expr$10 = Pair$snd$($8928); var _cses$11 = Kind$Map$map$((_cses$11 => { - var $8819 = Kind$Parser$case$build$($8817, _wyth$2, _cses$11, _dflt$4, _moti$5); - return $8819; + var $8931 = Kind$Parser$case$build$($8929, _wyth$2, _cses$11, _dflt$4, _moti$5); + return $8931; }), _group$8); - var $8818 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); - var $8815 = $8818; + var $8930 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); + var $8927 = $8930; break; case 'List.nil': var self = _cses$3; switch (self._) { case 'List.cons': - var $8821 = self.head; - var $8822 = Pair$snd$($8821); - var $8820 = $8822; + var $8933 = self.head; + var $8934 = Pair$snd$($8933); + var $8932 = $8934; break; case 'List.nil': - var $8823 = Kind$Term$ref$("missing_case"); - var $8820 = $8823; + var $8935 = Kind$Term$ref$("missing_case"); + var $8932 = $8935; break; }; - var $8815 = $8820; + var $8927 = $8932; break; }; - return $8815; + return $8927; }; 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 $8825 = self.err; + var $8937 = self.err; var _reply$7 = Kind$Parser$text$("case ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8827 = self.err; - var self = $8825; + var $8939 = self.err; + var self = $8937; switch (self._) { case 'Maybe.some': - var $8829 = self.value; - var $8830 = Parser$Reply$error$(Parser$Error$combine$($8829, $8827)); - var $8828 = $8830; + var $8941 = self.value; + var $8942 = Parser$Reply$error$(Parser$Error$combine$($8941, $8939)); + var $8940 = $8942; break; case 'Maybe.none': - var $8831 = Parser$Reply$error$($8827); - var $8828 = $8831; + var $8943 = Parser$Reply$error$($8939); + var $8940 = $8943; break; }; - var $8826 = $8828; + var $8938 = $8940; break; case 'Parser.Reply.value': - var $8832 = self.pst; - var self = $8832; + var $8944 = self.pst; + var self = $8944; switch (self._) { case 'Parser.State.new': - var $8834 = self.err; - var $8835 = self.nam; - var $8836 = self.ini; - var $8837 = self.idx; - var $8838 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8825, $8834), $8835, $8836, $8837, $8838); + var $8946 = self.err; + var $8947 = self.nam; + var $8948 = self.ini; + var $8949 = self.idx; + var $8950 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8937, $8946), $8947, $8948, $8949, $8950); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $8840 = self.err; + var $8952 = self.err; var _reply$21 = Parser$many1$((_pst$21 => { var self = _pst$21; switch (self._) { case 'Parser.State.new': - var $8843 = self.err; + var $8955 = 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 $8845 = self.err; - var self = $8843; + var $8957 = self.err; + var self = $8955; switch (self._) { case 'Maybe.some': - var $8847 = self.value; - var $8848 = Parser$Reply$error$(Parser$Error$combine$($8847, $8845)); - var $8846 = $8848; + var $8959 = self.value; + var $8960 = Parser$Reply$error$(Parser$Error$combine$($8959, $8957)); + var $8958 = $8960; break; case 'Maybe.none': - var $8849 = Parser$Reply$error$($8845); - var $8846 = $8849; + var $8961 = Parser$Reply$error$($8957); + var $8958 = $8961; break; }; - var $8844 = $8846; + var $8956 = $8958; break; case 'Parser.Reply.value': - var $8850 = self.pst; - var $8851 = self.val; - var self = $8850; + var $8962 = self.pst; + var $8963 = self.val; + var self = $8962; switch (self._) { case 'Parser.State.new': - var $8853 = self.err; - var $8854 = self.nam; - var $8855 = self.ini; - var $8856 = self.idx; - var $8857 = self.str; - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($8843, $8853), $8854, $8855, $8856, $8857); + var $8965 = self.err; + var $8966 = self.nam; + var $8967 = self.ini; + var $8968 = self.idx; + var $8969 = self.str; + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($8955, $8965), $8966, $8967, $8968, $8969); var self = _reply$pst$35; switch (self._) { case 'Parser.State.new': - var $8859 = self.err; + var $8971 = self.err; var _reply$41 = Parser$maybe$((_pst$41 => { var self = _pst$41; switch (self._) { case 'Parser.State.new': - var $8862 = self.err; + var $8974 = self.err; var _reply$47 = Kind$Parser$text$("as", _pst$41); var self = _reply$47; switch (self._) { case 'Parser.Reply.error': - var $8864 = self.err; - var self = $8862; + var $8976 = self.err; + var self = $8974; switch (self._) { case 'Maybe.some': - var $8866 = self.value; - var $8867 = Parser$Reply$error$(Parser$Error$combine$($8866, $8864)); - var $8865 = $8867; + var $8978 = self.value; + var $8979 = Parser$Reply$error$(Parser$Error$combine$($8978, $8976)); + var $8977 = $8979; break; case 'Maybe.none': - var $8868 = Parser$Reply$error$($8864); - var $8865 = $8868; + var $8980 = Parser$Reply$error$($8976); + var $8977 = $8980; break; }; - var $8863 = $8865; + var $8975 = $8977; break; case 'Parser.Reply.value': - var $8869 = self.pst; - var self = $8869; + var $8981 = self.pst; + var self = $8981; switch (self._) { case 'Parser.State.new': - var $8871 = self.err; - var $8872 = self.nam; - var $8873 = self.ini; - var $8874 = self.idx; - var $8875 = self.str; - var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($8862, $8871), $8872, $8873, $8874, $8875); + var $8983 = self.err; + var $8984 = self.nam; + var $8985 = self.ini; + var $8986 = self.idx; + var $8987 = self.str; + var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($8974, $8983), $8984, $8985, $8986, $8987); var self = _reply$pst$55; switch (self._) { case 'Parser.State.new': - var $8877 = self.err; + var $8989 = self.err; var _reply$61 = Kind$Parser$name1$(_reply$pst$55); var self = _reply$61; switch (self._) { case 'Parser.Reply.error': - var $8879 = self.err; - var self = $8877; + var $8991 = self.err; + var self = $8989; switch (self._) { case 'Maybe.some': - var $8881 = self.value; - var $8882 = Parser$Reply$error$(Parser$Error$combine$($8881, $8879)); - var $8880 = $8882; + var $8993 = self.value; + var $8994 = Parser$Reply$error$(Parser$Error$combine$($8993, $8991)); + var $8992 = $8994; break; case 'Maybe.none': - var $8883 = Parser$Reply$error$($8879); - var $8880 = $8883; + var $8995 = Parser$Reply$error$($8991); + var $8992 = $8995; break; }; - var $8878 = $8880; + var $8990 = $8992; break; case 'Parser.Reply.value': - var $8884 = self.pst; - var $8885 = self.val; - var self = $8884; + var $8996 = self.pst; + var $8997 = self.val; + var self = $8996; switch (self._) { case 'Parser.State.new': - var $8887 = self.err; - var $8888 = self.nam; - var $8889 = self.ini; - var $8890 = self.idx; - var $8891 = self.str; - var _reply$pst$69 = Parser$State$new$(Parser$Error$maybe_combine$($8877, $8887), $8888, $8889, $8890, $8891); + var $8999 = self.err; + var $9000 = self.nam; + var $9001 = self.ini; + var $9002 = self.idx; + var $9003 = self.str; + var _reply$pst$69 = Parser$State$new$(Parser$Error$maybe_combine$($8989, $8999), $9000, $9001, $9002, $9003); var self = _reply$pst$69; switch (self._) { case 'Parser.State.new': - var $8893 = self.err; + var $9005 = self.err; var _reply$75 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$69); var self = _reply$75; switch (self._) { case 'Parser.Reply.error': - var $8895 = self.err; - var self = $8893; + var $9007 = self.err; + var self = $9005; switch (self._) { case 'Maybe.some': - var $8897 = self.value; - var $8898 = Parser$Reply$error$(Parser$Error$combine$($8897, $8895)); - var $8896 = $8898; + var $9009 = self.value; + var $9010 = Parser$Reply$error$(Parser$Error$combine$($9009, $9007)); + var $9008 = $9010; break; case 'Maybe.none': - var $8899 = Parser$Reply$error$($8895); - var $8896 = $8899; + var $9011 = Parser$Reply$error$($9007); + var $9008 = $9011; break; }; - var $8894 = $8896; + var $9006 = $9008; break; case 'Parser.Reply.value': - var $8900 = self.pst; - var self = $8900; + var $9012 = self.pst; + var self = $9012; switch (self._) { case 'Parser.State.new': - var $8902 = self.err; - var $8903 = self.nam; - var $8904 = self.ini; - var $8905 = self.idx; - var $8906 = self.str; - var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($8893, $8902), $8903, $8904, $8905, $8906); - var $8907 = Parser$Reply$value$(_reply$pst$83, $8885); - var $8901 = $8907; + var $9014 = self.err; + var $9015 = self.nam; + var $9016 = self.ini; + var $9017 = self.idx; + var $9018 = self.str; + var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($9005, $9014), $9015, $9016, $9017, $9018); + var $9019 = Parser$Reply$value$(_reply$pst$83, $8997); + var $9013 = $9019; break; }; - var $8894 = $8901; + var $9006 = $9013; break; }; - var $8892 = $8894; + var $9004 = $9006; break; }; - var $8886 = $8892; + var $8998 = $9004; break; }; - var $8878 = $8886; + var $8990 = $8998; break; }; - var $8876 = $8878; + var $8988 = $8990; break; }; - var $8870 = $8876; + var $8982 = $8988; break; }; - var $8863 = $8870; + var $8975 = $8982; break; }; - var $8861 = $8863; + var $8973 = $8975; break; }; - return $8861; + return $8973; }), _reply$pst$35); var self = _reply$41; switch (self._) { case 'Parser.Reply.error': - var $8908 = self.err; - var self = $8859; + var $9020 = self.err; + var self = $8971; switch (self._) { case 'Maybe.some': - var $8910 = self.value; - var $8911 = Parser$Reply$error$(Parser$Error$combine$($8910, $8908)); - var $8909 = $8911; + var $9022 = self.value; + var $9023 = Parser$Reply$error$(Parser$Error$combine$($9022, $9020)); + var $9021 = $9023; break; case 'Maybe.none': - var $8912 = Parser$Reply$error$($8908); - var $8909 = $8912; + var $9024 = Parser$Reply$error$($9020); + var $9021 = $9024; break; }; - var $8860 = $8909; + var $8972 = $9021; break; case 'Parser.Reply.value': - var $8913 = self.pst; - var $8914 = self.val; - var self = $8913; + var $9025 = self.pst; + var $9026 = self.val; + var self = $9025; 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$49 = Parser$State$new$(Parser$Error$maybe_combine$($8859, $8916), $8917, $8918, $8919, $8920); - var _name$50 = Maybe$default$($8914, Kind$Term$extract_name$($8851)); - var $8921 = Parser$Reply$value$(_reply$pst$49, Pair$new$(_name$50, $8851)); - var $8915 = $8921; + var $9028 = self.err; + var $9029 = self.nam; + var $9030 = self.ini; + var $9031 = self.idx; + var $9032 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($8971, $9028), $9029, $9030, $9031, $9032); + var _name$50 = Maybe$default$($9026, Kind$Term$extract_name$($8963)); + var $9033 = Parser$Reply$value$(_reply$pst$49, Pair$new$(_name$50, $8963)); + var $9027 = $9033; break; }; - var $8860 = $8915; + var $8972 = $9027; break; }; - var $8858 = $8860; + var $8970 = $8972; break; }; - var $8852 = $8858; + var $8964 = $8970; break; }; - var $8844 = $8852; + var $8956 = $8964; break; }; - var $8842 = $8844; + var $8954 = $8956; break; }; - return $8842; + return $8954; }), _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $8922 = self.err; - var self = $8840; + var $9034 = self.err; + var self = $8952; switch (self._) { case 'Maybe.some': - var $8924 = self.value; - var $8925 = Parser$Reply$error$(Parser$Error$combine$($8924, $8922)); - var $8923 = $8925; + var $9036 = self.value; + var $9037 = Parser$Reply$error$(Parser$Error$combine$($9036, $9034)); + var $9035 = $9037; break; case 'Maybe.none': - var $8926 = Parser$Reply$error$($8922); - var $8923 = $8926; + var $9038 = Parser$Reply$error$($9034); + var $9035 = $9038; break; }; - var $8841 = $8923; + var $8953 = $9035; break; case 'Parser.Reply.value': - var $8927 = self.pst; - var $8928 = self.val; - var self = $8927; + var $9039 = self.pst; + var $9040 = self.val; + var self = $9039; switch (self._) { case 'Parser.State.new': - var $8930 = self.err; - var $8931 = self.nam; - var $8932 = self.ini; - var $8933 = self.idx; - var $8934 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8840, $8930), $8931, $8932, $8933, $8934); + var $9042 = self.err; + var $9043 = self.nam; + var $9044 = self.ini; + var $9045 = self.idx; + var $9046 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8952, $9042), $9043, $9044, $9045, $9046); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $8936 = self.err; + var $9048 = self.err; var _reply$35 = Kind$Parser$case$with(_reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $8938 = self.err; - var self = $8936; + var $9050 = self.err; + var self = $9048; switch (self._) { case 'Maybe.some': - var $8940 = self.value; - var $8941 = Parser$Reply$error$(Parser$Error$combine$($8940, $8938)); - var $8939 = $8941; + var $9052 = self.value; + var $9053 = Parser$Reply$error$(Parser$Error$combine$($9052, $9050)); + var $9051 = $9053; break; case 'Maybe.none': - var $8942 = Parser$Reply$error$($8938); - var $8939 = $8942; + var $9054 = Parser$Reply$error$($9050); + var $9051 = $9054; break; }; - var $8937 = $8939; + var $9049 = $9051; break; case 'Parser.Reply.value': - var $8943 = self.pst; - var $8944 = self.val; - var self = $8943; + var $9055 = self.pst; + var $9056 = self.val; + var self = $9055; switch (self._) { case 'Parser.State.new': - var $8946 = self.err; - var $8947 = self.nam; - var $8948 = self.ini; - var $8949 = self.idx; - var $8950 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8936, $8946), $8947, $8948, $8949, $8950); + var $9058 = self.err; + var $9059 = self.nam; + var $9060 = self.ini; + var $9061 = self.idx; + var $9062 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9048, $9058), $9059, $9060, $9061, $9062); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $8952 = self.err; + var $9064 = 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 $8954 = self.err; - var self = $8952; + var $9066 = self.err; + var self = $9064; switch (self._) { case 'Maybe.some': - var $8956 = self.value; - var $8957 = Parser$Reply$error$(Parser$Error$combine$($8956, $8954)); - var $8955 = $8957; + var $9068 = self.value; + var $9069 = Parser$Reply$error$(Parser$Error$combine$($9068, $9066)); + var $9067 = $9069; break; case 'Maybe.none': - var $8958 = Parser$Reply$error$($8954); - var $8955 = $8958; + var $9070 = Parser$Reply$error$($9066); + var $9067 = $9070; break; }; - var $8953 = $8955; + var $9065 = $9067; break; case 'Parser.Reply.value': - var $8959 = self.pst; - var $8960 = self.val; - var self = $8959; + var $9071 = self.pst; + var $9072 = self.val; + var self = $9071; switch (self._) { case 'Parser.State.new': - var $8962 = self.err; - var $8963 = self.nam; - var $8964 = self.ini; - var $8965 = self.idx; - var $8966 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8952, $8962), $8963, $8964, $8965, $8966); + var $9074 = self.err; + var $9075 = self.nam; + var $9076 = self.ini; + var $9077 = self.idx; + var $9078 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($9064, $9074), $9075, $9076, $9077, $9078); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $8968 = self.err; + var $9080 = self.err; var _reply$63 = Parser$maybe$(Kind$Parser$text("!"), _reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $8970 = self.err; - var self = $8968; + var $9082 = self.err; + var self = $9080; switch (self._) { case 'Maybe.some': - var $8972 = self.value; - var $8973 = Parser$Reply$error$(Parser$Error$combine$($8972, $8970)); - var $8971 = $8973; + var $9084 = self.value; + var $9085 = Parser$Reply$error$(Parser$Error$combine$($9084, $9082)); + var $9083 = $9085; break; case 'Maybe.none': - var $8974 = Parser$Reply$error$($8970); - var $8971 = $8974; + var $9086 = Parser$Reply$error$($9082); + var $9083 = $9086; break; }; - var $8969 = $8971; + var $9081 = $9083; break; case 'Parser.Reply.value': - var $8975 = self.pst; - var $8976 = self.val; - var self = $8975; + var $9087 = self.pst; + var $9088 = self.val; + var self = $9087; switch (self._) { case 'Parser.State.new': - var $8978 = self.err; - var $8979 = self.nam; - var $8980 = self.ini; - var $8981 = self.idx; - var $8982 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8968, $8978), $8979, $8980, $8981, $8982); + var $9090 = self.err; + var $9091 = self.nam; + var $9092 = self.ini; + var $9093 = self.idx; + var $9094 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($9080, $9090), $9091, $9092, $9093, $9094); var self = _reply$pst$71; switch (self._) { case 'Parser.State.new': - var $8984 = self.err; + var $9096 = self.err; var _reply$77 = Parser$maybe$((_pst$77 => { var self = _pst$77; switch (self._) { case 'Parser.State.new': - var $8987 = self.err; + var $9099 = self.err; var _reply$83 = Kind$Parser$text$("default", _pst$77); var self = _reply$83; switch (self._) { case 'Parser.Reply.error': - var $8989 = self.err; - var self = $8987; + var $9101 = self.err; + var self = $9099; switch (self._) { case 'Maybe.some': - var $8991 = self.value; - var $8992 = Parser$Reply$error$(Parser$Error$combine$($8991, $8989)); - var $8990 = $8992; + var $9103 = self.value; + var $9104 = Parser$Reply$error$(Parser$Error$combine$($9103, $9101)); + var $9102 = $9104; break; case 'Maybe.none': - var $8993 = Parser$Reply$error$($8989); - var $8990 = $8993; + var $9105 = Parser$Reply$error$($9101); + var $9102 = $9105; break; }; - var $8988 = $8990; + var $9100 = $9102; break; case 'Parser.Reply.value': - var $8994 = self.pst; - var self = $8994; + var $9106 = self.pst; + var self = $9106; switch (self._) { case 'Parser.State.new': - var $8996 = self.err; - var $8997 = self.nam; - var $8998 = self.ini; - var $8999 = self.idx; - var $9000 = self.str; - var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($8987, $8996), $8997, $8998, $8999, $9000); + var $9108 = self.err; + var $9109 = self.nam; + var $9110 = self.ini; + var $9111 = self.idx; + var $9112 = self.str; + var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($9099, $9108), $9109, $9110, $9111, $9112); var self = _reply$pst$91; switch (self._) { case 'Parser.State.new': - var $9002 = self.err; + var $9114 = self.err; var _reply$97 = Kind$Parser$term(_reply$pst$91); var self = _reply$97; switch (self._) { case 'Parser.Reply.error': - var $9004 = self.err; - var self = $9002; + var $9116 = self.err; + var self = $9114; switch (self._) { case 'Maybe.some': - var $9006 = self.value; - var $9007 = Parser$Reply$error$(Parser$Error$combine$($9006, $9004)); - var $9005 = $9007; + var $9118 = self.value; + var $9119 = Parser$Reply$error$(Parser$Error$combine$($9118, $9116)); + var $9117 = $9119; break; case 'Maybe.none': - var $9008 = Parser$Reply$error$($9004); - var $9005 = $9008; + var $9120 = Parser$Reply$error$($9116); + var $9117 = $9120; break; }; - var $9003 = $9005; + var $9115 = $9117; break; case 'Parser.Reply.value': - var $9009 = self.pst; - var $9010 = self.val; - var self = $9009; + var $9121 = self.pst; + var $9122 = self.val; + var self = $9121; switch (self._) { case 'Parser.State.new': - var $9012 = self.err; - var $9013 = self.nam; - var $9014 = self.ini; - var $9015 = self.idx; - var $9016 = self.str; - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($9002, $9012), $9013, $9014, $9015, $9016); - var $9017 = Parser$Reply$value$(_reply$pst$105, $9010); - var $9011 = $9017; + var $9124 = self.err; + var $9125 = self.nam; + var $9126 = self.ini; + var $9127 = self.idx; + var $9128 = self.str; + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($9114, $9124), $9125, $9126, $9127, $9128); + var $9129 = Parser$Reply$value$(_reply$pst$105, $9122); + var $9123 = $9129; break; }; - var $9003 = $9011; + var $9115 = $9123; break; }; - var $9001 = $9003; + var $9113 = $9115; break; }; - var $8995 = $9001; + var $9107 = $9113; break; }; - var $8988 = $8995; + var $9100 = $9107; break; }; - var $8986 = $8988; + var $9098 = $9100; break; }; - return $8986; + return $9098; }), _reply$pst$71); var self = _reply$77; switch (self._) { case 'Parser.Reply.error': - var $9018 = self.err; - var self = $8984; + var $9130 = self.err; + var self = $9096; switch (self._) { case 'Maybe.some': - var $9020 = self.value; - var $9021 = Parser$Reply$error$(Parser$Error$combine$($9020, $9018)); - var $9019 = $9021; + var $9132 = self.value; + var $9133 = Parser$Reply$error$(Parser$Error$combine$($9132, $9130)); + var $9131 = $9133; break; case 'Maybe.none': - var $9022 = Parser$Reply$error$($9018); - var $9019 = $9022; + var $9134 = Parser$Reply$error$($9130); + var $9131 = $9134; break; }; - var $8985 = $9019; + var $9097 = $9131; break; case 'Parser.Reply.value': - var $9023 = self.pst; - var $9024 = self.val; - var self = $9023; + var $9135 = self.pst; + var $9136 = self.val; + var self = $9135; switch (self._) { case 'Parser.State.new': - var $9026 = self.err; - var $9027 = self.nam; - var $9028 = self.ini; - var $9029 = self.idx; - var $9030 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($8984, $9026), $9027, $9028, $9029, $9030); + var $9138 = self.err; + var $9139 = self.nam; + var $9140 = self.ini; + var $9141 = self.idx; + var $9142 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($9096, $9138), $9139, $9140, $9141, $9142); var self = _reply$pst$85; switch (self._) { case 'Parser.State.new': - var $9032 = self.err; + var $9144 = self.err; var _reply$91 = Parser$maybe$((_pst$91 => { var self = _pst$91; switch (self._) { case 'Parser.State.new': - var $9035 = self.err; + var $9147 = self.err; var _reply$97 = Kind$Parser$text$(":", _pst$91); var self = _reply$97; switch (self._) { case 'Parser.Reply.error': - var $9037 = self.err; - var self = $9035; + var $9149 = self.err; + var self = $9147; switch (self._) { case 'Maybe.some': - var $9039 = self.value; - var $9040 = Parser$Reply$error$(Parser$Error$combine$($9039, $9037)); - var $9038 = $9040; + var $9151 = self.value; + var $9152 = Parser$Reply$error$(Parser$Error$combine$($9151, $9149)); + var $9150 = $9152; break; case 'Maybe.none': - var $9041 = Parser$Reply$error$($9037); - var $9038 = $9041; + var $9153 = Parser$Reply$error$($9149); + var $9150 = $9153; break; }; - var $9036 = $9038; + var $9148 = $9150; break; case 'Parser.Reply.value': - var $9042 = self.pst; - var self = $9042; + var $9154 = self.pst; + var self = $9154; switch (self._) { case 'Parser.State.new': - var $9044 = self.err; - var $9045 = self.nam; - var $9046 = self.ini; - var $9047 = self.idx; - var $9048 = self.str; - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($9035, $9044), $9045, $9046, $9047, $9048); - var $9049 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$105); - var $9043 = $9049; + var $9156 = self.err; + var $9157 = self.nam; + var $9158 = self.ini; + var $9159 = self.idx; + var $9160 = self.str; + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($9147, $9156), $9157, $9158, $9159, $9160); + var $9161 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$105); + var $9155 = $9161; break; }; - var $9036 = $9043; + var $9148 = $9155; break; }; - var $9034 = $9036; + var $9146 = $9148; break; }; - return $9034; + return $9146; }), _reply$pst$85); var self = _reply$91; switch (self._) { case 'Parser.Reply.error': - var $9050 = self.err; - var self = $9032; + var $9162 = self.err; + var self = $9144; switch (self._) { case 'Maybe.some': - var $9052 = self.value; - var $9053 = Parser$Reply$error$(Parser$Error$combine$($9052, $9050)); - var $9051 = $9053; + var $9164 = self.value; + var $9165 = Parser$Reply$error$(Parser$Error$combine$($9164, $9162)); + var $9163 = $9165; break; case 'Maybe.none': - var $9054 = Parser$Reply$error$($9050); - var $9051 = $9054; + var $9166 = Parser$Reply$error$($9162); + var $9163 = $9166; break; }; - var $9033 = $9051; + var $9145 = $9163; break; case 'Parser.Reply.value': - var $9055 = self.pst; - var $9056 = self.val; - var self = $9055; + var $9167 = self.pst; + var $9168 = self.val; + var self = $9167; switch (self._) { case 'Parser.State.new': - var $9058 = self.err; - var $9059 = self.nam; - var $9060 = self.ini; - var $9061 = self.idx; - var $9062 = self.str; - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($9032, $9058), $9059, $9060, $9061, $9062); - var self = $9056; + var $9170 = self.err; + var $9171 = self.nam; + var $9172 = self.ini; + var $9173 = self.idx; + var $9174 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($9144, $9170), $9171, $9172, $9173, $9174); + var self = $9168; switch (self._) { case 'Maybe.some': - var $9064 = self.value; - var $9065 = Maybe$some$($9064); - var _moti$100 = $9065; + var $9176 = self.value; + var $9177 = Maybe$some$($9176); + var _moti$100 = $9177; break; case 'Maybe.none': - var self = $8976; + var self = $9088; switch (self._) { case 'Maybe.none': - var $9067 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $9066 = $9067; + var $9179 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var $9178 = $9179; break; case 'Maybe.some': - var $9068 = Maybe$none; - var $9066 = $9068; + var $9180 = Maybe$none; + var $9178 = $9180; break; }; - var _moti$100 = $9066; + var _moti$100 = $9178; break; }; - var $9063 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$case$build$($8928, $8944, $8960, $9024, _moti$100)); - var $9057 = $9063; + var $9175 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$case$build$($9040, $9056, $9072, $9136, _moti$100)); + var $9169 = $9175; break; }; - var $9033 = $9057; + var $9145 = $9169; break; }; - var $9031 = $9033; + var $9143 = $9145; break; }; - var $9025 = $9031; + var $9137 = $9143; break; }; - var $8985 = $9025; + var $9097 = $9137; break; }; - var $8983 = $8985; + var $9095 = $9097; break; }; - var $8977 = $8983; + var $9089 = $9095; break; }; - var $8969 = $8977; + var $9081 = $9089; break; }; - var $8967 = $8969; + var $9079 = $9081; break; }; - var $8961 = $8967; + var $9073 = $9079; break; }; - var $8953 = $8961; + var $9065 = $9073; break; }; - var $8951 = $8953; + var $9063 = $9065; break; }; - var $8945 = $8951; + var $9057 = $9063; break; }; - var $8937 = $8945; + var $9049 = $9057; break; }; - var $8935 = $8937; + var $9047 = $9049; break; }; - var $8929 = $8935; + var $9041 = $9047; break; }; - var $8841 = $8929; + var $8953 = $9041; break; }; - var $8839 = $8841; + var $8951 = $8953; break; }; - var $8833 = $8839; + var $8945 = $8951; break; }; - var $8826 = $8833; + var $8938 = $8945; break; }; - var $8824 = $8826; + var $8936 = $8938; break; }; - return $8824; + return $8936; })); const Kind$Parser$without = Kind$Parser$block("without")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9070 = self.err; + var $9182 = self.err; var _reply$7 = Kind$Parser$text$("without ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9072 = self.err; - var self = $9070; + var $9184 = self.err; + var self = $9182; switch (self._) { case 'Maybe.some': - var $9074 = self.value; - var $9075 = Parser$Reply$error$(Parser$Error$combine$($9074, $9072)); - var $9073 = $9075; + var $9186 = self.value; + var $9187 = Parser$Reply$error$(Parser$Error$combine$($9186, $9184)); + var $9185 = $9187; break; case 'Maybe.none': - var $9076 = Parser$Reply$error$($9072); - var $9073 = $9076; + var $9188 = Parser$Reply$error$($9184); + var $9185 = $9188; break; }; - var $9071 = $9073; + var $9183 = $9185; break; case 'Parser.Reply.value': - var $9077 = self.pst; - var self = $9077; + var $9189 = self.pst; + var self = $9189; 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 $9191 = self.err; + var $9192 = self.nam; + var $9193 = self.ini; + var $9194 = self.idx; + var $9195 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9182, $9191), $9192, $9193, $9194, $9195); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9085 = self.err; + var $9197 = self.err; var _reply$21 = Kind$Parser$name1$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9087 = self.err; - var self = $9085; + var $9199 = self.err; + var self = $9197; switch (self._) { case 'Maybe.some': - var $9089 = self.value; - var $9090 = Parser$Reply$error$(Parser$Error$combine$($9089, $9087)); - var $9088 = $9090; + var $9201 = self.value; + var $9202 = Parser$Reply$error$(Parser$Error$combine$($9201, $9199)); + var $9200 = $9202; break; case 'Maybe.none': - var $9091 = Parser$Reply$error$($9087); - var $9088 = $9091; + var $9203 = Parser$Reply$error$($9199); + var $9200 = $9203; break; }; - var $9086 = $9088; + var $9198 = $9200; break; case 'Parser.Reply.value': - var $9092 = self.pst; - var $9093 = self.val; - var self = $9092; + var $9204 = self.pst; + var $9205 = self.val; + var self = $9204; 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 $9207 = self.err; + var $9208 = self.nam; + var $9209 = self.ini; + var $9210 = self.idx; + var $9211 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9197, $9207), $9208, $9209, $9210, $9211); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $9101 = self.err; + var $9213 = self.err; var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $9103 = self.err; - var self = $9101; + var $9215 = self.err; + var self = $9213; switch (self._) { case 'Maybe.some': - var $9105 = self.value; - var $9106 = Parser$Reply$error$(Parser$Error$combine$($9105, $9103)); - var $9104 = $9106; + var $9217 = self.value; + var $9218 = Parser$Reply$error$(Parser$Error$combine$($9217, $9215)); + var $9216 = $9218; break; case 'Maybe.none': - var $9107 = Parser$Reply$error$($9103); - var $9104 = $9107; + var $9219 = Parser$Reply$error$($9215); + var $9216 = $9219; break; }; - var $9102 = $9104; + var $9214 = $9216; break; case 'Parser.Reply.value': - var $9108 = self.pst; - var self = $9108; + var $9220 = self.pst; + var self = $9220; 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 $9222 = self.err; + var $9223 = self.nam; + var $9224 = self.ini; + var $9225 = self.idx; + var $9226 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9213, $9222), $9223, $9224, $9225, $9226); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $9116 = self.err; + var $9228 = self.err; var _reply$49 = Kind$Parser$term(_reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $9118 = self.err; - var self = $9116; + var $9230 = self.err; + var self = $9228; switch (self._) { case 'Maybe.some': - var $9120 = self.value; - var $9121 = Parser$Reply$error$(Parser$Error$combine$($9120, $9118)); - var $9119 = $9121; + var $9232 = self.value; + var $9233 = Parser$Reply$error$(Parser$Error$combine$($9232, $9230)); + var $9231 = $9233; break; case 'Maybe.none': - var $9122 = Parser$Reply$error$($9118); - var $9119 = $9122; + var $9234 = Parser$Reply$error$($9230); + var $9231 = $9234; break; }; - var $9117 = $9119; + var $9229 = $9231; break; case 'Parser.Reply.value': - var $9123 = self.pst; - var $9124 = self.val; - var self = $9123; + var $9235 = self.pst; + var $9236 = self.val; + var self = $9235; 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$57 = Parser$State$new$(Parser$Error$maybe_combine$($9116, $9126), $9127, $9128, $9129, $9130); + var $9238 = self.err; + var $9239 = self.nam; + var $9240 = self.ini; + var $9241 = self.idx; + var $9242 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($9228, $9238), $9239, $9240, $9241, $9242); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $9132 = self.err; + var $9244 = self.err; var _reply$63 = Kind$Parser$term(_reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $9134 = self.err; - var self = $9132; + var $9246 = self.err; + var self = $9244; switch (self._) { case 'Maybe.some': - var $9136 = self.value; - var $9137 = Parser$Reply$error$(Parser$Error$combine$($9136, $9134)); - var $9135 = $9137; + var $9248 = self.value; + var $9249 = Parser$Reply$error$(Parser$Error$combine$($9248, $9246)); + var $9247 = $9249; break; case 'Maybe.none': - var $9138 = Parser$Reply$error$($9134); - var $9135 = $9138; + var $9250 = Parser$Reply$error$($9246); + var $9247 = $9250; break; }; - var $9133 = $9135; + var $9245 = $9247; break; case 'Parser.Reply.value': - var $9139 = self.pst; - var $9140 = self.val; - var self = $9139; + var $9251 = self.pst; + var $9252 = self.val; + var self = $9251; 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$71 = Parser$State$new$(Parser$Error$maybe_combine$($9132, $9142), $9143, $9144, $9145, $9146); - var _term$72 = Kind$Term$ref$($9093); + var $9254 = self.err; + var $9255 = self.nam; + var $9256 = self.ini; + var $9257 = self.idx; + var $9258 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($9244, $9254), $9255, $9256, $9257, $9258); + var _term$72 = Kind$Term$ref$($9205); var _term$73 = Kind$Term$app$(_term$72, Kind$Term$lam$("", (_x$73 => { - var $9148 = Kind$Term$hol$(Bits$e); - return $9148; + var $9260 = Kind$Term$hol$(Bits$e); + return $9260; }))); - var _term$74 = Kind$Term$app$(_term$73, $9124); - var _term$75 = Kind$Term$app$(_term$74, Kind$Term$lam$($9093, (_x$75 => { - var $9149 = $9140; - return $9149; + var _term$74 = Kind$Term$app$(_term$73, $9236); + var _term$75 = Kind$Term$app$(_term$74, Kind$Term$lam$($9205, (_x$75 => { + var $9261 = $9252; + return $9261; }))); - var $9147 = Parser$Reply$value$(_reply$pst$71, _term$75); - var $9141 = $9147; + var $9259 = Parser$Reply$value$(_reply$pst$71, _term$75); + var $9253 = $9259; break; }; - var $9133 = $9141; + var $9245 = $9253; break; }; - var $9131 = $9133; + var $9243 = $9245; break; }; - var $9125 = $9131; + var $9237 = $9243; break; }; - var $9117 = $9125; + var $9229 = $9237; break; }; - var $9115 = $9117; + var $9227 = $9229; break; }; - var $9109 = $9115; + var $9221 = $9227; break; }; - var $9102 = $9109; + var $9214 = $9221; break; }; - var $9100 = $9102; + var $9212 = $9214; break; }; - var $9094 = $9100; + var $9206 = $9212; break; }; - var $9086 = $9094; + var $9198 = $9206; break; }; - var $9084 = $9086; + var $9196 = $9198; break; }; - var $9078 = $9084; + var $9190 = $9196; break; }; - var $9071 = $9078; + var $9183 = $9190; break; }; - var $9069 = $9071; + var $9181 = $9183; break; }; - return $9069; + return $9181; })); function Kind$Parser$switch$case$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9151 = self.err; + var $9263 = self.err; var _reply$7 = Kind$Parser$term(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9153 = self.err; - var self = $9151; + var $9265 = self.err; + var self = $9263; switch (self._) { case 'Maybe.some': - var $9155 = self.value; - var $9156 = Parser$Reply$error$(Parser$Error$combine$($9155, $9153)); - var $9154 = $9156; + var $9267 = self.value; + var $9268 = Parser$Reply$error$(Parser$Error$combine$($9267, $9265)); + var $9266 = $9268; break; case 'Maybe.none': - var $9157 = Parser$Reply$error$($9153); - var $9154 = $9157; + var $9269 = Parser$Reply$error$($9265); + var $9266 = $9269; break; }; - var $9152 = $9154; + var $9264 = $9266; break; case 'Parser.Reply.value': - var $9158 = self.pst; - var $9159 = self.val; - var self = $9158; + var $9270 = self.pst; + var $9271 = self.val; + var self = $9270; switch (self._) { case 'Parser.State.new': - var $9161 = self.err; - var $9162 = self.nam; - var $9163 = self.ini; - var $9164 = self.idx; - var $9165 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9151, $9161), $9162, $9163, $9164, $9165); + var $9273 = self.err; + var $9274 = self.nam; + var $9275 = self.ini; + var $9276 = self.idx; + var $9277 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9263, $9273), $9274, $9275, $9276, $9277); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9167 = self.err; + var $9279 = self.err; var _reply$21 = Kind$Parser$text$(":", _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9169 = self.err; - var self = $9167; + var $9281 = self.err; + var self = $9279; switch (self._) { case 'Maybe.some': - var $9171 = self.value; - var $9172 = Parser$Reply$error$(Parser$Error$combine$($9171, $9169)); - var $9170 = $9172; + var $9283 = self.value; + var $9284 = Parser$Reply$error$(Parser$Error$combine$($9283, $9281)); + var $9282 = $9284; break; case 'Maybe.none': - var $9173 = Parser$Reply$error$($9169); - var $9170 = $9173; + var $9285 = Parser$Reply$error$($9281); + var $9282 = $9285; break; }; - var $9168 = $9170; + var $9280 = $9282; break; case 'Parser.Reply.value': - var $9174 = self.pst; - var self = $9174; + var $9286 = self.pst; + var self = $9286; switch (self._) { case 'Parser.State.new': - var $9176 = self.err; - var $9177 = self.nam; - var $9178 = self.ini; - var $9179 = self.idx; - var $9180 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9167, $9176), $9177, $9178, $9179, $9180); + var $9288 = self.err; + var $9289 = self.nam; + var $9290 = self.ini; + var $9291 = self.idx; + var $9292 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9279, $9288), $9289, $9290, $9291, $9292); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $9182 = self.err; + var $9294 = self.err; var _reply$35 = Kind$Parser$term(_reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $9184 = self.err; - var self = $9182; + var $9296 = self.err; + var self = $9294; switch (self._) { case 'Maybe.some': - var $9186 = self.value; - var $9187 = Parser$Reply$error$(Parser$Error$combine$($9186, $9184)); - var $9185 = $9187; + var $9298 = self.value; + var $9299 = Parser$Reply$error$(Parser$Error$combine$($9298, $9296)); + var $9297 = $9299; break; case 'Maybe.none': - var $9188 = Parser$Reply$error$($9184); - var $9185 = $9188; + var $9300 = Parser$Reply$error$($9296); + var $9297 = $9300; break; }; - var $9183 = $9185; + var $9295 = $9297; break; case 'Parser.Reply.value': - var $9189 = self.pst; - var $9190 = self.val; - var self = $9189; + var $9301 = self.pst; + var $9302 = self.val; + var self = $9301; switch (self._) { case 'Parser.State.new': - var $9192 = self.err; - var $9193 = self.nam; - var $9194 = self.ini; - var $9195 = self.idx; - var $9196 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9182, $9192), $9193, $9194, $9195, $9196); - var $9197 = Parser$Reply$value$(_reply$pst$43, Pair$new$($9159, $9190)); - var $9191 = $9197; + var $9304 = self.err; + var $9305 = self.nam; + var $9306 = self.ini; + var $9307 = self.idx; + var $9308 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9294, $9304), $9305, $9306, $9307, $9308); + var $9309 = Parser$Reply$value$(_reply$pst$43, Pair$new$($9271, $9302)); + var $9303 = $9309; break; }; - var $9183 = $9191; + var $9295 = $9303; break; }; - var $9181 = $9183; + var $9293 = $9295; break; }; - var $9175 = $9181; + var $9287 = $9293; break; }; - var $9168 = $9175; + var $9280 = $9287; break; }; - var $9166 = $9168; + var $9278 = $9280; break; }; - var $9160 = $9166; + var $9272 = $9278; break; }; - var $9152 = $9160; + var $9264 = $9272; break; }; - var $9150 = $9152; + var $9262 = $9264; break; }; - return $9150; + return $9262; }; 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 $9199 = self.err; + var $9311 = self.err; var _reply$7 = Kind$Parser$text$("switch", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9201 = self.err; - var self = $9199; + var $9313 = self.err; + var self = $9311; switch (self._) { case 'Maybe.some': - var $9203 = self.value; - var $9204 = Parser$Reply$error$(Parser$Error$combine$($9203, $9201)); - var $9202 = $9204; + var $9315 = self.value; + var $9316 = Parser$Reply$error$(Parser$Error$combine$($9315, $9313)); + var $9314 = $9316; break; case 'Maybe.none': - var $9205 = Parser$Reply$error$($9201); - var $9202 = $9205; + var $9317 = Parser$Reply$error$($9313); + var $9314 = $9317; break; }; - var $9200 = $9202; + var $9312 = $9314; break; case 'Parser.Reply.value': - var $9206 = self.pst; - var self = $9206; + var $9318 = self.pst; + var self = $9318; switch (self._) { case 'Parser.State.new': - var $9208 = self.err; - var $9209 = self.nam; - var $9210 = self.ini; - var $9211 = self.idx; - var $9212 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9199, $9208), $9209, $9210, $9211, $9212); + var $9320 = self.err; + var $9321 = self.nam; + var $9322 = self.ini; + var $9323 = self.idx; + var $9324 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9311, $9320), $9321, $9322, $9323, $9324); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9214 = self.err; + var $9326 = self.err; var _reply$21 = Kind$Parser$term(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9216 = self.err; - var self = $9214; + var $9328 = self.err; + var self = $9326; switch (self._) { case 'Maybe.some': - var $9218 = self.value; - var $9219 = Parser$Reply$error$(Parser$Error$combine$($9218, $9216)); - var $9217 = $9219; + var $9330 = self.value; + var $9331 = Parser$Reply$error$(Parser$Error$combine$($9330, $9328)); + var $9329 = $9331; break; case 'Maybe.none': - var $9220 = Parser$Reply$error$($9216); - var $9217 = $9220; + var $9332 = Parser$Reply$error$($9328); + var $9329 = $9332; break; }; - var $9215 = $9217; + var $9327 = $9329; break; case 'Parser.Reply.value': - var $9221 = self.pst; - var $9222 = self.val; - var self = $9221; + var $9333 = self.pst; + var $9334 = self.val; + var self = $9333; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($9214, $9224), $9225, $9226, $9227, $9228); + var $9336 = self.err; + var $9337 = self.nam; + var $9338 = self.ini; + var $9339 = self.idx; + var $9340 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9326, $9336), $9337, $9338, $9339, $9340); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $9230 = self.err; + var $9342 = 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 $9232 = self.err; - var self = $9230; + var $9344 = self.err; + var self = $9342; switch (self._) { case 'Maybe.some': - var $9234 = self.value; - var $9235 = Parser$Reply$error$(Parser$Error$combine$($9234, $9232)); - var $9233 = $9235; + var $9346 = self.value; + var $9347 = Parser$Reply$error$(Parser$Error$combine$($9346, $9344)); + var $9345 = $9347; break; case 'Maybe.none': - var $9236 = Parser$Reply$error$($9232); - var $9233 = $9236; + var $9348 = Parser$Reply$error$($9344); + var $9345 = $9348; break; }; - var $9231 = $9233; + var $9343 = $9345; break; case 'Parser.Reply.value': - var $9237 = self.pst; - var $9238 = self.val; - var self = $9237; + var $9349 = self.pst; + var $9350 = self.val; + var self = $9349; 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$43 = Parser$State$new$(Parser$Error$maybe_combine$($9230, $9240), $9241, $9242, $9243, $9244); + var $9352 = self.err; + var $9353 = self.nam; + var $9354 = self.ini; + var $9355 = self.idx; + var $9356 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9342, $9352), $9353, $9354, $9355, $9356); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $9246 = self.err; + var $9358 = self.err; var _reply$49 = Kind$Parser$text$("default", _reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $9248 = self.err; - var self = $9246; + var $9360 = self.err; + var self = $9358; switch (self._) { case 'Maybe.some': - var $9250 = self.value; - var $9251 = Parser$Reply$error$(Parser$Error$combine$($9250, $9248)); - var $9249 = $9251; + var $9362 = self.value; + var $9363 = Parser$Reply$error$(Parser$Error$combine$($9362, $9360)); + var $9361 = $9363; break; case 'Maybe.none': - var $9252 = Parser$Reply$error$($9248); - var $9249 = $9252; + var $9364 = Parser$Reply$error$($9360); + var $9361 = $9364; break; }; - var $9247 = $9249; + var $9359 = $9361; break; case 'Parser.Reply.value': - var $9253 = self.pst; - var self = $9253; + var $9365 = self.pst; + var self = $9365; 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$57 = Parser$State$new$(Parser$Error$maybe_combine$($9246, $9255), $9256, $9257, $9258, $9259); + var $9367 = self.err; + var $9368 = self.nam; + var $9369 = self.ini; + var $9370 = self.idx; + var $9371 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($9358, $9367), $9368, $9369, $9370, $9371); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $9261 = self.err; + var $9373 = self.err; var _reply$63 = Kind$Parser$term(_reply$pst$57); var self = _reply$63; switch (self._) { case 'Parser.Reply.error': - var $9263 = self.err; - var self = $9261; + var $9375 = self.err; + var self = $9373; switch (self._) { case 'Maybe.some': - var $9265 = self.value; - var $9266 = Parser$Reply$error$(Parser$Error$combine$($9265, $9263)); - var $9264 = $9266; + var $9377 = self.value; + var $9378 = Parser$Reply$error$(Parser$Error$combine$($9377, $9375)); + var $9376 = $9378; break; case 'Maybe.none': - var $9267 = Parser$Reply$error$($9263); - var $9264 = $9267; + var $9379 = Parser$Reply$error$($9375); + var $9376 = $9379; break; }; - var $9262 = $9264; + var $9374 = $9376; break; case 'Parser.Reply.value': - var $9268 = self.pst; - var $9269 = self.val; - var self = $9268; + var $9380 = self.pst; + var $9381 = self.val; + var self = $9380; 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$71 = Parser$State$new$(Parser$Error$maybe_combine$($9261, $9271), $9272, $9273, $9274, $9275); - var _term$72 = List$fold$($9238, $9269, (_cse$72 => _rest$73 => { + var $9383 = self.err; + var $9384 = self.nam; + var $9385 = self.ini; + var $9386 = self.idx; + var $9387 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($9373, $9383), $9384, $9385, $9386, $9387); + var _term$72 = List$fold$($9350, $9381, (_cse$72 => _rest$73 => { var self = _cse$72; switch (self._) { case 'Pair.new': - var $9278 = self.fst; - var $9279 = self.snd; - var _term$76 = Kind$Term$app$($9222, $9278); + var $9390 = self.fst; + var $9391 = self.snd; + var _term$76 = Kind$Term$app$($9334, $9390); var _term$77 = Kind$Term$app$(_term$76, Kind$Term$lam$("", (_x$77 => { - var $9281 = Kind$Term$hol$(Bits$e); - return $9281; + var $9393 = Kind$Term$hol$(Bits$e); + return $9393; }))); - var _term$78 = Kind$Term$app$(_term$77, $9279); + var _term$78 = Kind$Term$app$(_term$77, $9391); var _term$79 = Kind$Term$app$(_term$78, _rest$73); - var $9280 = _term$79; - var $9277 = $9280; + var $9392 = _term$79; + var $9389 = $9392; break; }; - return $9277; + return $9389; })); - var $9276 = Parser$Reply$value$(_reply$pst$71, _term$72); - var $9270 = $9276; + var $9388 = Parser$Reply$value$(_reply$pst$71, _term$72); + var $9382 = $9388; break; }; - var $9262 = $9270; + var $9374 = $9382; break; }; - var $9260 = $9262; + var $9372 = $9374; break; }; - var $9254 = $9260; + var $9366 = $9372; break; }; - var $9247 = $9254; + var $9359 = $9366; break; }; - var $9245 = $9247; + var $9357 = $9359; break; }; - var $9239 = $9245; + var $9351 = $9357; break; }; - var $9231 = $9239; + var $9343 = $9351; break; }; - var $9229 = $9231; + var $9341 = $9343; break; }; - var $9223 = $9229; + var $9335 = $9341; break; }; - var $9215 = $9223; + var $9327 = $9335; break; }; - var $9213 = $9215; + var $9325 = $9327; break; }; - var $9207 = $9213; + var $9319 = $9325; break; }; - var $9200 = $9207; + var $9312 = $9319; break; }; - var $9198 = $9200; + var $9310 = $9312; break; }; - return $9198; + return $9310; })); function Bits$tail$(_a$1) { var self = _a$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $9283 = self.slice(0, -1); - var $9284 = $9283; - var $9282 = $9284; + var $9395 = self.slice(0, -1); + var $9396 = $9395; + var $9394 = $9396; break; case 'i': - var $9285 = self.slice(0, -1); - var $9286 = $9285; - var $9282 = $9286; + var $9397 = self.slice(0, -1); + var $9398 = $9397; + var $9394 = $9398; break; case 'e': - var $9287 = Bits$e; - var $9282 = $9287; + var $9399 = Bits$e; + var $9394 = $9399; break; }; - return $9282; + return $9394; }; const Bits$tail = x0 => Bits$tail$(x0); @@ -29105,21 +29424,21 @@ module.exports = (function() { var self = _a$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $9289 = self.slice(0, -1); - var $9290 = ($9289 + '1'); - var $9288 = $9290; + var $9401 = self.slice(0, -1); + var $9402 = ($9401 + '1'); + var $9400 = $9402; break; case 'i': - var $9291 = self.slice(0, -1); - var $9292 = (Bits$inc$($9291) + '0'); - var $9288 = $9292; + var $9403 = self.slice(0, -1); + var $9404 = (Bits$inc$($9403) + '0'); + var $9400 = $9404; break; case 'e': - var $9293 = (Bits$e + '1'); - var $9288 = $9293; + var $9405 = (Bits$e + '1'); + var $9400 = $9405; break; }; - return $9288; + return $9400; }; const Bits$inc = x0 => Bits$inc$(x0); const Nat$to_bits = a0 => (nat_to_bits(a0)); @@ -29128,348 +29447,34 @@ module.exports = (function() { var self = _m$2; switch (self._) { case 'Maybe.none': - var $9295 = Bool$false; - var $9294 = $9295; + var $9407 = Bool$false; + var $9406 = $9407; break; case 'Maybe.some': - var $9296 = Bool$true; - var $9294 = $9296; + var $9408 = Bool$true; + var $9406 = $9408; break; }; - return $9294; + return $9406; }; const Maybe$is_some = x0 => Maybe$is_some$(x0); function Kind$Term$gol$(_name$1, _dref$2, _verb$3) { - var $9297 = ({ + var $9409 = ({ _: 'Kind.Term.gol', 'name': _name$1, 'dref': _dref$2, 'verb': _verb$3 }); - return $9297; + return $9409; }; 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 $9299 = self.err; - var _reply$7 = Kind$Parser$text$("?", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9301 = self.err; - var self = $9299; - switch (self._) { - case 'Maybe.some': - var $9303 = self.value; - var $9304 = Parser$Reply$error$(Parser$Error$combine$($9303, $9301)); - var $9302 = $9304; - break; - case 'Maybe.none': - var $9305 = Parser$Reply$error$($9301); - var $9302 = $9305; - break; - }; - var $9300 = $9302; - break; - case 'Parser.Reply.value': - var $9306 = self.pst; - var self = $9306; - switch (self._) { - case 'Parser.State.new': - var $9308 = self.err; - var $9309 = self.nam; - var $9310 = self.ini; - var $9311 = self.idx; - var $9312 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9299, $9308), $9309, $9310, $9311, $9312); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9314 = self.err; - var _reply$21 = Kind$Parser$name$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $9316 = self.err; - var self = $9314; - switch (self._) { - case 'Maybe.some': - var $9318 = self.value; - var $9319 = Parser$Reply$error$(Parser$Error$combine$($9318, $9316)); - var $9317 = $9319; - break; - case 'Maybe.none': - var $9320 = Parser$Reply$error$($9316); - var $9317 = $9320; - break; - }; - var $9315 = $9317; - break; - case 'Parser.Reply.value': - var $9321 = self.pst; - var $9322 = self.val; - var self = $9321; - switch (self._) { - case 'Parser.State.new': - var $9324 = self.err; - var $9325 = self.nam; - var $9326 = self.ini; - var $9327 = self.idx; - var $9328 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9314, $9324), $9325, $9326, $9327, $9328); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $9330 = self.err; - var _reply$35 = Parser$many$((_pst$35 => { - var self = _pst$35; - switch (self._) { - case 'Parser.State.new': - var $9333 = self.err; - var _reply$41 = Kind$Parser$text$("-", _pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $9335 = self.err; - var self = $9333; - switch (self._) { - case 'Maybe.some': - var $9337 = self.value; - var $9338 = Parser$Reply$error$(Parser$Error$combine$($9337, $9335)); - var $9336 = $9338; - break; - case 'Maybe.none': - var $9339 = Parser$Reply$error$($9335); - var $9336 = $9339; - break; - }; - var $9334 = $9336; - break; - case 'Parser.Reply.value': - var $9340 = self.pst; - var self = $9340; - switch (self._) { - case 'Parser.State.new': - var $9342 = self.err; - var $9343 = self.nam; - var $9344 = self.ini; - var $9345 = self.idx; - var $9346 = self.str; - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9333, $9342), $9343, $9344, $9345, $9346); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9348 = self.err; - var _reply$55 = Parser$nat$(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $9350 = self.err; - var self = $9348; - switch (self._) { - case 'Maybe.some': - var $9352 = self.value; - var $9353 = Parser$Reply$error$(Parser$Error$combine$($9352, $9350)); - var $9351 = $9353; - break; - case 'Maybe.none': - var $9354 = Parser$Reply$error$($9350); - var $9351 = $9354; - break; - }; - var $9349 = $9351; - break; - case 'Parser.Reply.value': - var $9355 = self.pst; - var $9356 = self.val; - var self = $9355; - switch (self._) { - case 'Parser.State.new': - var $9358 = self.err; - var $9359 = self.nam; - var $9360 = self.ini; - var $9361 = self.idx; - var $9362 = self.str; - var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($9348, $9358), $9359, $9360, $9361, $9362); - var _bits$64 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($9356))))); - var $9363 = Parser$Reply$value$(_reply$pst$63, _bits$64); - var $9357 = $9363; - break; - }; - var $9349 = $9357; - break; - }; - var $9347 = $9349; - break; - }; - var $9341 = $9347; - break; - }; - var $9334 = $9341; - break; - }; - var $9332 = $9334; - break; - }; - return $9332; - }))(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9364 = self.err; - var self = $9330; - switch (self._) { - case 'Maybe.some': - var $9366 = self.value; - var $9367 = Parser$Reply$error$(Parser$Error$combine$($9366, $9364)); - var $9365 = $9367; - break; - case 'Maybe.none': - var $9368 = Parser$Reply$error$($9364); - var $9365 = $9368; - break; - }; - var $9331 = $9365; - break; - case 'Parser.Reply.value': - var $9369 = self.pst; - var $9370 = self.val; - var self = $9369; - switch (self._) { - case 'Parser.State.new': - var $9372 = self.err; - var $9373 = self.nam; - var $9374 = self.ini; - var $9375 = self.idx; - var $9376 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9330, $9372), $9373, $9374, $9375, $9376); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $9378 = self.err; - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $9380 = self.err; - var _reply$54 = Parser$maybe$(Parser$text("-"), _reply$pst$43); - var self = _reply$54; - switch (self._) { - case 'Parser.Reply.error': - var $9382 = self.err; - var self = $9380; - switch (self._) { - case 'Maybe.some': - var $9384 = self.value; - var $9385 = Parser$Reply$error$(Parser$Error$combine$($9384, $9382)); - var $9383 = $9385; - break; - case 'Maybe.none': - var $9386 = Parser$Reply$error$($9382); - var $9383 = $9386; - break; - }; - var $9381 = $9383; - break; - case 'Parser.Reply.value': - var $9387 = self.pst; - var $9388 = self.val; - var self = $9387; - switch (self._) { - case 'Parser.State.new': - var $9390 = self.err; - var $9391 = self.nam; - var $9392 = self.ini; - var $9393 = self.idx; - var $9394 = self.str; - var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($9380, $9390), $9391, $9392, $9393, $9394); - var $9395 = Parser$Reply$value$(_reply$pst$62, Maybe$is_some$($9388)); - var $9389 = $9395; - break; - }; - var $9381 = $9389; - break; - }; - var _reply$49 = $9381; - break; - }; - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $9396 = self.err; - var self = $9378; - switch (self._) { - case 'Maybe.some': - var $9398 = self.value; - var $9399 = Parser$Reply$error$(Parser$Error$combine$($9398, $9396)); - var $9397 = $9399; - break; - case 'Maybe.none': - var $9400 = Parser$Reply$error$($9396); - var $9397 = $9400; - break; - }; - var $9379 = $9397; - break; - case 'Parser.Reply.value': - var $9401 = self.pst; - var $9402 = self.val; - var self = $9401; - switch (self._) { - case 'Parser.State.new': - var $9404 = self.err; - var $9405 = self.nam; - var $9406 = self.ini; - var $9407 = self.idx; - var $9408 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($9378, $9404), $9405, $9406, $9407, $9408); - var $9409 = Parser$Reply$value$(_reply$pst$57, Kind$Term$gol$($9322, $9370, $9402)); - var $9403 = $9409; - break; - }; - var $9379 = $9403; - break; - }; - var $9377 = $9379; - break; - }; - var $9371 = $9377; - break; - }; - var $9331 = $9371; - break; - }; - var $9329 = $9331; - break; - }; - var $9323 = $9329; - break; - }; - var $9315 = $9323; - break; - }; - var $9313 = $9315; - break; - }; - var $9307 = $9313; - break; - }; - var $9300 = $9307; - break; - }; - var $9298 = $9300; - break; - }; - return $9298; - })); - const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': var $9411 = self.err; - var _reply$7 = Kind$Parser$text$("_", _pst$1); + var _reply$7 = Kind$Parser$text$("?", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': @@ -29499,7 +29504,274 @@ module.exports = (function() { var $9423 = self.idx; var $9424 = self.str; var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9411, $9420), $9421, $9422, $9423, $9424); - var $9425 = Parser$Reply$value$(_reply$pst$15, Kind$Term$hol$(Bits$e)); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9426 = self.err; + var _reply$21 = Kind$Parser$name$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $9428 = self.err; + var self = $9426; + switch (self._) { + case 'Maybe.some': + var $9430 = self.value; + var $9431 = Parser$Reply$error$(Parser$Error$combine$($9430, $9428)); + var $9429 = $9431; + break; + case 'Maybe.none': + var $9432 = Parser$Reply$error$($9428); + var $9429 = $9432; + break; + }; + var $9427 = $9429; + break; + case 'Parser.Reply.value': + var $9433 = self.pst; + var $9434 = self.val; + var self = $9433; + switch (self._) { + case 'Parser.State.new': + var $9436 = self.err; + var $9437 = self.nam; + var $9438 = self.ini; + var $9439 = self.idx; + var $9440 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9426, $9436), $9437, $9438, $9439, $9440); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9442 = self.err; + var _reply$35 = Parser$many$((_pst$35 => { + var self = _pst$35; + switch (self._) { + case 'Parser.State.new': + var $9445 = self.err; + var _reply$41 = Kind$Parser$text$("-", _pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $9447 = self.err; + var self = $9445; + switch (self._) { + case 'Maybe.some': + var $9449 = self.value; + var $9450 = Parser$Reply$error$(Parser$Error$combine$($9449, $9447)); + var $9448 = $9450; + break; + case 'Maybe.none': + var $9451 = Parser$Reply$error$($9447); + var $9448 = $9451; + break; + }; + var $9446 = $9448; + break; + case 'Parser.Reply.value': + var $9452 = self.pst; + var self = $9452; + switch (self._) { + case 'Parser.State.new': + var $9454 = self.err; + var $9455 = self.nam; + var $9456 = self.ini; + var $9457 = self.idx; + var $9458 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9445, $9454), $9455, $9456, $9457, $9458); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9460 = self.err; + var _reply$55 = Parser$nat$(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $9462 = self.err; + var self = $9460; + switch (self._) { + case 'Maybe.some': + var $9464 = self.value; + var $9465 = Parser$Reply$error$(Parser$Error$combine$($9464, $9462)); + var $9463 = $9465; + break; + case 'Maybe.none': + var $9466 = Parser$Reply$error$($9462); + var $9463 = $9466; + break; + }; + var $9461 = $9463; + break; + case 'Parser.Reply.value': + var $9467 = self.pst; + var $9468 = self.val; + var self = $9467; + switch (self._) { + case 'Parser.State.new': + var $9470 = self.err; + var $9471 = self.nam; + var $9472 = self.ini; + var $9473 = self.idx; + var $9474 = self.str; + var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($9460, $9470), $9471, $9472, $9473, $9474); + var _bits$64 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($9468))))); + var $9475 = Parser$Reply$value$(_reply$pst$63, _bits$64); + var $9469 = $9475; + break; + }; + var $9461 = $9469; + break; + }; + var $9459 = $9461; + break; + }; + var $9453 = $9459; + break; + }; + var $9446 = $9453; + break; + }; + var $9444 = $9446; + break; + }; + return $9444; + }))(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9476 = self.err; + var self = $9442; + switch (self._) { + case 'Maybe.some': + var $9478 = self.value; + var $9479 = Parser$Reply$error$(Parser$Error$combine$($9478, $9476)); + var $9477 = $9479; + break; + case 'Maybe.none': + var $9480 = Parser$Reply$error$($9476); + var $9477 = $9480; + break; + }; + var $9443 = $9477; + break; + case 'Parser.Reply.value': + var $9481 = self.pst; + var $9482 = self.val; + var self = $9481; + switch (self._) { + case 'Parser.State.new': + var $9484 = self.err; + var $9485 = self.nam; + var $9486 = self.ini; + var $9487 = self.idx; + var $9488 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9442, $9484), $9485, $9486, $9487, $9488); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $9490 = self.err; + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $9492 = self.err; + var _reply$54 = Parser$maybe$(Parser$text("-"), _reply$pst$43); + var self = _reply$54; + switch (self._) { + case 'Parser.Reply.error': + var $9494 = self.err; + var self = $9492; + switch (self._) { + case 'Maybe.some': + var $9496 = self.value; + var $9497 = Parser$Reply$error$(Parser$Error$combine$($9496, $9494)); + var $9495 = $9497; + break; + case 'Maybe.none': + var $9498 = Parser$Reply$error$($9494); + var $9495 = $9498; + break; + }; + var $9493 = $9495; + break; + case 'Parser.Reply.value': + var $9499 = self.pst; + var $9500 = self.val; + var self = $9499; + switch (self._) { + case 'Parser.State.new': + var $9502 = self.err; + var $9503 = self.nam; + var $9504 = self.ini; + var $9505 = self.idx; + var $9506 = self.str; + var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($9492, $9502), $9503, $9504, $9505, $9506); + var $9507 = Parser$Reply$value$(_reply$pst$62, Maybe$is_some$($9500)); + var $9501 = $9507; + break; + }; + var $9493 = $9501; + break; + }; + var _reply$49 = $9493; + break; + }; + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $9508 = self.err; + var self = $9490; + switch (self._) { + case 'Maybe.some': + var $9510 = self.value; + var $9511 = Parser$Reply$error$(Parser$Error$combine$($9510, $9508)); + var $9509 = $9511; + break; + case 'Maybe.none': + var $9512 = Parser$Reply$error$($9508); + var $9509 = $9512; + break; + }; + var $9491 = $9509; + break; + case 'Parser.Reply.value': + var $9513 = self.pst; + var $9514 = self.val; + var self = $9513; + 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 _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($9490, $9516), $9517, $9518, $9519, $9520); + var $9521 = Parser$Reply$value$(_reply$pst$57, Kind$Term$gol$($9434, $9482, $9514)); + var $9515 = $9521; + break; + }; + var $9491 = $9515; + break; + }; + var $9489 = $9491; + break; + }; + var $9483 = $9489; + break; + }; + var $9443 = $9483; + break; + }; + var $9441 = $9443; + break; + }; + var $9435 = $9441; + break; + }; + var $9427 = $9435; + break; + }; + var $9425 = $9427; + break; + }; var $9419 = $9425; break; }; @@ -29511,36 +29783,83 @@ module.exports = (function() { }; return $9410; })); + const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9523 = self.err; + var _reply$7 = Kind$Parser$text$("_", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9525 = self.err; + var self = $9523; + switch (self._) { + case 'Maybe.some': + var $9527 = self.value; + var $9528 = Parser$Reply$error$(Parser$Error$combine$($9527, $9525)); + var $9526 = $9528; + break; + case 'Maybe.none': + var $9529 = Parser$Reply$error$($9525); + var $9526 = $9529; + break; + }; + var $9524 = $9526; + break; + case 'Parser.Reply.value': + var $9530 = self.pst; + var self = $9530; + switch (self._) { + case 'Parser.State.new': + var $9532 = self.err; + var $9533 = self.nam; + var $9534 = self.ini; + var $9535 = self.idx; + var $9536 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9523, $9532), $9533, $9534, $9535, $9536); + var $9537 = Parser$Reply$value$(_reply$pst$15, Kind$Term$hol$(Bits$e)); + var $9531 = $9537; + break; + }; + var $9524 = $9531; + break; + }; + var $9522 = $9524; + break; + }; + return $9522; + })); function Kind$Parser$float$sign$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9427 = self.nam; - var $9428 = self.ini; - var $9429 = self.idx; - var $9430 = self.str; - var self = $9430; + var $9539 = self.nam; + var $9540 = self.ini; + var $9541 = self.idx; + var $9542 = self.str; + var self = $9542; if (self.length === 0) { - var $9432 = Parser$Reply$fail$($9427, $9428, $9429, "Expected \'+\' or \'-\'."); - var $9431 = $9432; + var $9544 = Parser$Reply$fail$($9539, $9540, $9541, "Expected \'+\' or \'-\'."); + var $9543 = $9544; } else { - var $9433 = self.charCodeAt(0); - var $9434 = self.slice(1); - var self = (($9433 === 43) || ($9433 === 45)); + var $9545 = self.charCodeAt(0); + var $9546 = self.slice(1); + var self = (($9545 === 43) || ($9545 === 45)); if (self) { - var $9436 = Parser$Reply$value$(_pst$1, $9433); - var $9435 = $9436; + var $9548 = Parser$Reply$value$(_pst$1, $9545); + var $9547 = $9548; } else { - var $9437 = Parser$Reply$fail$($9427, $9428, $9429, "Expected \'+\' ou \'-\'."); - var $9435 = $9437; + var $9549 = Parser$Reply$fail$($9539, $9540, $9541, "Expected \'+\' ou \'-\'."); + var $9547 = $9549; }; - var $9431 = $9435; + var $9543 = $9547; }; - var $9426 = $9431; + var $9538 = $9543; break; }; - return $9426; + return $9538; }; const Kind$Parser$float$sign = x0 => Kind$Parser$float$sign$(x0); @@ -29557,20 +29876,20 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $9438 = self.head; - var $9439 = self.tail; - var self = _cond$2($9438); + var $9550 = self.head; + var $9551 = self.tail; + var self = _cond$2($9550); if (self) { - var $9441 = Bool$true; - var $9440 = $9441; + var $9553 = Bool$true; + var $9552 = $9553; } else { - var $9442 = List$any$(_cond$2, $9439); - var $9440 = $9442; + var $9554 = List$any$(_cond$2, $9551); + var $9552 = $9554; }; - return $9440; + return $9552; case 'List.nil': - var $9443 = Bool$false; - return $9443; + var $9555 = Bool$false; + return $9555; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -29583,34 +29902,34 @@ module.exports = (function() { var self = _pst$1; 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 self = $9449; + var $9557 = self.err; + var $9558 = self.nam; + var $9559 = self.ini; + var $9560 = self.idx; + var $9561 = self.str; + var self = $9561; if (self.length === 0) { - var $9451 = Parser$Reply$fail$($9446, $9447, $9448, "Not a digit."); - var $9450 = $9451; + var $9563 = Parser$Reply$fail$($9558, $9559, $9560, "Not a digit."); + var $9562 = $9563; } else { - var $9452 = self.charCodeAt(0); - var $9453 = self.slice(1); + var $9564 = self.charCodeAt(0); + var $9565 = 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$($9445, $9446, $9447, Nat$succ$($9448), $9453); - var self = List$any$(a1 => ($9452 === a1), _digits$9); + var _pst$10 = Parser$State$new$($9557, $9558, $9559, Nat$succ$($9560), $9565); + var self = List$any$(a1 => ($9564 === a1), _digits$9); if (self) { - var $9455 = Parser$Reply$value$(_pst$10, $9452); - var $9454 = $9455; + var $9567 = Parser$Reply$value$(_pst$10, $9564); + var $9566 = $9567; } else { - var $9456 = Parser$Reply$fail$($9446, $9447, $9448, "Not a digit."); - var $9454 = $9456; + var $9568 = Parser$Reply$fail$($9558, $9559, $9560, "Not a digit."); + var $9566 = $9568; }; - var $9450 = $9454; + var $9562 = $9566; }; - var $9444 = $9450; + var $9556 = $9562; break; }; - return $9444; + return $9556; }; const Kind$Parser$float$str_digit = x0 => Kind$Parser$float$str_digit$(x0); @@ -29618,470 +29937,470 @@ module.exports = (function() { var self = _xs$1; switch (self._) { case 'List.cons': - var $9458 = self.head; - var $9459 = self.tail; - var $9460 = String$cons$($9458, String$from_list$($9459)); - var $9457 = $9460; + var $9570 = self.head; + var $9571 = self.tail; + var $9572 = String$cons$($9570, String$from_list$($9571)); + var $9569 = $9572; break; case 'List.nil': - var $9461 = String$nil; - var $9457 = $9461; + var $9573 = String$nil; + var $9569 = $9573; break; }; - return $9457; + return $9569; }; 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 $9463 = self.err; + var $9575 = self.err; var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9465 = self.err; - var self = $9463; + var $9577 = self.err; + var self = $9575; switch (self._) { case 'Maybe.some': - var $9467 = self.value; - var $9468 = Parser$Reply$error$(Parser$Error$combine$($9467, $9465)); - var $9466 = $9468; + var $9579 = self.value; + var $9580 = Parser$Reply$error$(Parser$Error$combine$($9579, $9577)); + var $9578 = $9580; break; case 'Maybe.none': - var $9469 = Parser$Reply$error$($9465); - var $9466 = $9469; + var $9581 = Parser$Reply$error$($9577); + var $9578 = $9581; break; }; - var $9464 = $9466; + var $9576 = $9578; break; case 'Parser.Reply.value': - var $9470 = self.pst; - var $9471 = self.val; - var self = $9470; + var $9582 = self.pst; + var $9583 = self.val; + var self = $9582; switch (self._) { case 'Parser.State.new': - var $9473 = self.err; - var $9474 = self.nam; - var $9475 = self.ini; - var $9476 = self.idx; - var $9477 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9463, $9473), $9474, $9475, $9476, $9477); - var _sign$16 = Maybe$default$($9471, 43); + var $9585 = self.err; + var $9586 = self.nam; + var $9587 = self.ini; + var $9588 = self.idx; + var $9589 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9575, $9585), $9586, $9587, $9588, $9589); + var _sign$16 = Maybe$default$($9583, 43); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9479 = self.err; + var $9591 = 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 $9481 = self.err; - var self = $9479; + var $9593 = self.err; + var self = $9591; switch (self._) { case 'Maybe.some': - var $9483 = self.value; - var $9484 = Parser$Reply$error$(Parser$Error$combine$($9483, $9481)); - var $9482 = $9484; + var $9595 = self.value; + var $9596 = Parser$Reply$error$(Parser$Error$combine$($9595, $9593)); + var $9594 = $9596; break; case 'Maybe.none': - var $9485 = Parser$Reply$error$($9481); - var $9482 = $9485; + var $9597 = Parser$Reply$error$($9593); + var $9594 = $9597; break; }; - var $9480 = $9482; + var $9592 = $9594; break; case 'Parser.Reply.value': - var $9486 = self.pst; - var $9487 = self.val; - var self = $9486; + var $9598 = self.pst; + var $9599 = self.val; + var self = $9598; switch (self._) { case 'Parser.State.new': - var $9489 = self.err; - var $9490 = self.nam; - var $9491 = self.ini; - var $9492 = self.idx; - var $9493 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9479, $9489), $9490, $9491, $9492, $9493); + var $9601 = self.err; + var $9602 = self.nam; + var $9603 = self.ini; + var $9604 = self.idx; + var $9605 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9591, $9601), $9602, $9603, $9604, $9605); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $9495 = self.err; + var $9607 = self.err; var _reply$36 = Parser$text$(".", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $9497 = self.err; - var self = $9495; + var $9609 = self.err; + var self = $9607; switch (self._) { case 'Maybe.some': - var $9499 = self.value; - var $9500 = Parser$Reply$error$(Parser$Error$combine$($9499, $9497)); - var $9498 = $9500; + var $9611 = self.value; + var $9612 = Parser$Reply$error$(Parser$Error$combine$($9611, $9609)); + var $9610 = $9612; break; case 'Maybe.none': - var $9501 = Parser$Reply$error$($9497); - var $9498 = $9501; + var $9613 = Parser$Reply$error$($9609); + var $9610 = $9613; break; }; - var $9496 = $9498; + var $9608 = $9610; break; case 'Parser.Reply.value': - var $9502 = self.pst; - var self = $9502; + var $9614 = self.pst; + var self = $9614; switch (self._) { case 'Parser.State.new': - var $9504 = self.err; - var $9505 = self.nam; - var $9506 = self.ini; - var $9507 = self.idx; - var $9508 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9495, $9504), $9505, $9506, $9507, $9508); + var $9616 = self.err; + var $9617 = self.nam; + var $9618 = self.ini; + var $9619 = self.idx; + var $9620 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9607, $9616), $9617, $9618, $9619, $9620); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $9510 = self.err; + var $9622 = 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 $9512 = self.err; - var self = $9510; + var $9624 = self.err; + var self = $9622; switch (self._) { case 'Maybe.some': - var $9514 = self.value; - var $9515 = Parser$Reply$error$(Parser$Error$combine$($9514, $9512)); - var $9513 = $9515; + var $9626 = self.value; + var $9627 = Parser$Reply$error$(Parser$Error$combine$($9626, $9624)); + var $9625 = $9627; break; case 'Maybe.none': - var $9516 = Parser$Reply$error$($9512); - var $9513 = $9516; + var $9628 = Parser$Reply$error$($9624); + var $9625 = $9628; break; }; - var $9511 = $9513; + var $9623 = $9625; break; case 'Parser.Reply.value': - var $9517 = self.pst; - var $9518 = self.val; - var self = $9517; + var $9629 = self.pst; + var $9630 = self.val; + var self = $9629; switch (self._) { case 'Parser.State.new': - var $9520 = self.err; - var $9521 = self.nam; - var $9522 = self.ini; - var $9523 = self.idx; - var $9524 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9510, $9520), $9521, $9522, $9523, $9524); + var $9632 = self.err; + var $9633 = self.nam; + var $9634 = self.ini; + var $9635 = self.idx; + var $9636 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9622, $9632), $9633, $9634, $9635, $9636); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $9526 = self.err; + var $9638 = self.err; var _reply$64 = Parser$text$("#64", _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $9528 = self.err; - var self = $9526; + var $9640 = self.err; + var self = $9638; switch (self._) { case 'Maybe.some': - var $9530 = self.value; - var $9531 = Parser$Reply$error$(Parser$Error$combine$($9530, $9528)); - var $9529 = $9531; + var $9642 = self.value; + var $9643 = Parser$Reply$error$(Parser$Error$combine$($9642, $9640)); + var $9641 = $9643; break; case 'Maybe.none': - var $9532 = Parser$Reply$error$($9528); - var $9529 = $9532; + var $9644 = Parser$Reply$error$($9640); + var $9641 = $9644; break; }; - var $9527 = $9529; + var $9639 = $9641; break; case 'Parser.Reply.value': - var $9533 = self.pst; - var self = $9533; + var $9645 = self.pst; + var self = $9645; switch (self._) { case 'Parser.State.new': - var $9535 = self.err; - var $9536 = self.nam; - var $9537 = self.ini; - var $9538 = self.idx; - var $9539 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9526, $9535), $9536, $9537, $9538, $9539); - var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($9487)) + ("." + String$from_list$($9518)))); + var $9647 = self.err; + var $9648 = self.nam; + var $9649 = self.ini; + var $9650 = self.idx; + var $9651 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9638, $9647), $9648, $9649, $9650, $9651); + var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($9599)) + ("." + String$from_list$($9630)))); var _conv$74 = Kind$Term$ref$("F64.parse"); var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); - var $9540 = Parser$Reply$value$(_reply$pst$72, _term$75); - var $9534 = $9540; + var $9652 = Parser$Reply$value$(_reply$pst$72, _term$75); + var $9646 = $9652; break; }; - var $9527 = $9534; + var $9639 = $9646; break; }; - var $9525 = $9527; + var $9637 = $9639; break; }; - var $9519 = $9525; + var $9631 = $9637; break; }; - var $9511 = $9519; + var $9623 = $9631; break; }; - var $9509 = $9511; + var $9621 = $9623; break; }; - var $9503 = $9509; + var $9615 = $9621; break; }; - var $9496 = $9503; + var $9608 = $9615; break; }; - var $9494 = $9496; + var $9606 = $9608; break; }; - var $9488 = $9494; + var $9600 = $9606; break; }; - var $9480 = $9488; + var $9592 = $9600; break; }; - var $9478 = $9480; + var $9590 = $9592; break; }; - var $9472 = $9478; + var $9584 = $9590; break; }; - var $9464 = $9472; + var $9576 = $9584; break; }; - var $9462 = $9464; + var $9574 = $9576; break; }; - return $9462; + return $9574; })); const Kind$Parser$float$32 = Kind$Parser$block("float")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9542 = self.err; + var $9654 = self.err; var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9544 = self.err; - var self = $9542; + var $9656 = self.err; + var self = $9654; switch (self._) { case 'Maybe.some': - var $9546 = self.value; - var $9547 = Parser$Reply$error$(Parser$Error$combine$($9546, $9544)); - var $9545 = $9547; + var $9658 = self.value; + var $9659 = Parser$Reply$error$(Parser$Error$combine$($9658, $9656)); + var $9657 = $9659; break; case 'Maybe.none': - var $9548 = Parser$Reply$error$($9544); - var $9545 = $9548; + var $9660 = Parser$Reply$error$($9656); + var $9657 = $9660; break; }; - var $9543 = $9545; + var $9655 = $9657; break; case 'Parser.Reply.value': - var $9549 = self.pst; - var $9550 = self.val; - var self = $9549; + var $9661 = self.pst; + var $9662 = self.val; + var self = $9661; switch (self._) { case 'Parser.State.new': - var $9552 = self.err; - var $9553 = self.nam; - var $9554 = self.ini; - var $9555 = self.idx; - var $9556 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9542, $9552), $9553, $9554, $9555, $9556); - var _sign$16 = Maybe$default$($9550, 43); + var $9664 = self.err; + var $9665 = self.nam; + var $9666 = self.ini; + var $9667 = self.idx; + var $9668 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9654, $9664), $9665, $9666, $9667, $9668); + var _sign$16 = Maybe$default$($9662, 43); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9558 = self.err; + var $9670 = 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 $9560 = self.err; - var self = $9558; + var $9672 = self.err; + var self = $9670; switch (self._) { case 'Maybe.some': - var $9562 = self.value; - var $9563 = Parser$Reply$error$(Parser$Error$combine$($9562, $9560)); - var $9561 = $9563; + var $9674 = self.value; + var $9675 = Parser$Reply$error$(Parser$Error$combine$($9674, $9672)); + var $9673 = $9675; break; case 'Maybe.none': - var $9564 = Parser$Reply$error$($9560); - var $9561 = $9564; + var $9676 = Parser$Reply$error$($9672); + var $9673 = $9676; break; }; - var $9559 = $9561; + var $9671 = $9673; break; case 'Parser.Reply.value': - var $9565 = self.pst; - var $9566 = self.val; - var self = $9565; + var $9677 = self.pst; + var $9678 = self.val; + var self = $9677; switch (self._) { case 'Parser.State.new': - var $9568 = self.err; - var $9569 = self.nam; - var $9570 = self.ini; - var $9571 = self.idx; - var $9572 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9558, $9568), $9569, $9570, $9571, $9572); + var $9680 = self.err; + var $9681 = self.nam; + var $9682 = self.ini; + var $9683 = self.idx; + var $9684 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9670, $9680), $9681, $9682, $9683, $9684); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $9574 = self.err; + var $9686 = self.err; var _reply$36 = Parser$text$(".", _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $9576 = self.err; - var self = $9574; + var $9688 = self.err; + var self = $9686; switch (self._) { case 'Maybe.some': - var $9578 = self.value; - var $9579 = Parser$Reply$error$(Parser$Error$combine$($9578, $9576)); - var $9577 = $9579; + var $9690 = self.value; + var $9691 = Parser$Reply$error$(Parser$Error$combine$($9690, $9688)); + var $9689 = $9691; break; case 'Maybe.none': - var $9580 = Parser$Reply$error$($9576); - var $9577 = $9580; + var $9692 = Parser$Reply$error$($9688); + var $9689 = $9692; break; }; - var $9575 = $9577; + var $9687 = $9689; break; case 'Parser.Reply.value': - var $9581 = self.pst; - var self = $9581; + var $9693 = self.pst; + var self = $9693; switch (self._) { case 'Parser.State.new': - var $9583 = self.err; - var $9584 = self.nam; - var $9585 = self.ini; - var $9586 = self.idx; - var $9587 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9574, $9583), $9584, $9585, $9586, $9587); + var $9695 = self.err; + var $9696 = self.nam; + var $9697 = self.ini; + var $9698 = self.idx; + var $9699 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9686, $9695), $9696, $9697, $9698, $9699); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $9589 = self.err; + var $9701 = 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 $9591 = self.err; - var self = $9589; + var $9703 = self.err; + var self = $9701; switch (self._) { case 'Maybe.some': - var $9593 = self.value; - var $9594 = Parser$Reply$error$(Parser$Error$combine$($9593, $9591)); - var $9592 = $9594; + var $9705 = self.value; + var $9706 = Parser$Reply$error$(Parser$Error$combine$($9705, $9703)); + var $9704 = $9706; break; case 'Maybe.none': - var $9595 = Parser$Reply$error$($9591); - var $9592 = $9595; + var $9707 = Parser$Reply$error$($9703); + var $9704 = $9707; break; }; - var $9590 = $9592; + var $9702 = $9704; break; case 'Parser.Reply.value': - var $9596 = self.pst; - var $9597 = self.val; - var self = $9596; + var $9708 = self.pst; + var $9709 = self.val; + var self = $9708; switch (self._) { case 'Parser.State.new': - var $9599 = self.err; - var $9600 = self.nam; - var $9601 = self.ini; - var $9602 = self.idx; - var $9603 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9589, $9599), $9600, $9601, $9602, $9603); + var $9711 = self.err; + var $9712 = self.nam; + var $9713 = self.ini; + var $9714 = self.idx; + var $9715 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9701, $9711), $9712, $9713, $9714, $9715); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $9605 = self.err; + var $9717 = self.err; var _reply$64 = Parser$text$("#32", _reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $9607 = self.err; - var self = $9605; + var $9719 = self.err; + var self = $9717; switch (self._) { case 'Maybe.some': - var $9609 = self.value; - var $9610 = Parser$Reply$error$(Parser$Error$combine$($9609, $9607)); - var $9608 = $9610; + var $9721 = self.value; + var $9722 = Parser$Reply$error$(Parser$Error$combine$($9721, $9719)); + var $9720 = $9722; break; case 'Maybe.none': - var $9611 = Parser$Reply$error$($9607); - var $9608 = $9611; + var $9723 = Parser$Reply$error$($9719); + var $9720 = $9723; break; }; - var $9606 = $9608; + var $9718 = $9720; break; case 'Parser.Reply.value': - var $9612 = self.pst; - var self = $9612; + var $9724 = self.pst; + var self = $9724; switch (self._) { case 'Parser.State.new': - var $9614 = self.err; - var $9615 = self.nam; - var $9616 = self.ini; - var $9617 = self.idx; - var $9618 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9605, $9614), $9615, $9616, $9617, $9618); - var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($9566)) + ("." + String$from_list$($9597)))); + var $9726 = self.err; + var $9727 = self.nam; + var $9728 = self.ini; + var $9729 = self.idx; + var $9730 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9717, $9726), $9727, $9728, $9729, $9730); + var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($9678)) + ("." + String$from_list$($9709)))); var _conv$74 = Kind$Term$ref$("F32.parse"); var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); - var $9619 = Parser$Reply$value$(_reply$pst$72, _term$75); - var $9613 = $9619; + var $9731 = Parser$Reply$value$(_reply$pst$72, _term$75); + var $9725 = $9731; break; }; - var $9606 = $9613; + var $9718 = $9725; break; }; - var $9604 = $9606; + var $9716 = $9718; break; }; - var $9598 = $9604; + var $9710 = $9716; break; }; - var $9590 = $9598; + var $9702 = $9710; break; }; - var $9588 = $9590; + var $9700 = $9702; break; }; - var $9582 = $9588; + var $9694 = $9700; break; }; - var $9575 = $9582; + var $9687 = $9694; break; }; - var $9573 = $9575; + var $9685 = $9687; break; }; - var $9567 = $9573; + var $9679 = $9685; break; }; - var $9559 = $9567; + var $9671 = $9679; break; }; - var $9557 = $9559; + var $9669 = $9671; break; }; - var $9551 = $9557; + var $9663 = $9669; break; }; - var $9543 = $9551; + var $9655 = $9663; break; }; - var $9541 = $9543; + var $9653 = $9655; break; }; - return $9541; + return $9653; })); const Nat$lte = a0 => a1 => (a0 <= a1); @@ -30097,11 +30416,11 @@ module.exports = (function() { var R = (() => { var self = (_n$1 <= _r$3); if (self) { - var $9620 = Nat$div_mod$go$(_n$1, Nat$succ$(_d$2), (_r$3 - _n$1 <= 0n ? 0n : _r$3 - _n$1)); - return $9620; + var $9732 = Nat$div_mod$go$(_n$1, Nat$succ$(_d$2), (_r$3 - _n$1 <= 0n ? 0n : _r$3 - _n$1)); + return $9732; } else { - var $9621 = Pair$new$(_d$2, _r$3); - return $9621; + var $9733 = Pair$new$(_d$2, _r$3); + return $9733; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -30132,18 +30451,18 @@ module.exports = (function() { })); switch (self._) { case 'Pair.new': - var $9622 = self.fst; - var $9623 = self.snd; - var self = $9622; + var $9734 = self.fst; + var $9735 = self.snd; + var self = $9734; if (self === 0n) { - var $9625 = List$cons$($9623, _res$3); - var $9624 = $9625; + var $9737 = List$cons$($9735, _res$3); + var $9736 = $9737; } else { - var $9626 = (self - 1n); - var $9627 = Nat$to_base$go$(_base$1, $9622, List$cons$($9623, _res$3)); - var $9624 = $9627; + var $9738 = (self - 1n); + var $9739 = Nat$to_base$go$(_base$1, $9734, List$cons$($9735, _res$3)); + var $9736 = $9739; }; - return $9624; + return $9736; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -30153,8 +30472,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 $9628 = Nat$to_base$go$(_base$1, _nat$2, List$nil); - return $9628; + var $9740 = Nat$to_base$go$(_base$1, _nat$2, List$nil); + return $9740; }; const Nat$to_base = x0 => x1 => Nat$to_base$(x0, x1); const Nat$mod = a0 => a1 => (a0 % a1); @@ -30172,21 +30491,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $9629 = self.head; - var $9630 = self.tail; + var $9741 = self.head; + var $9742 = self.tail; var self = _index$2; if (self === 0n) { - var $9632 = Maybe$some$($9629); - var $9631 = $9632; + var $9744 = Maybe$some$($9741); + var $9743 = $9744; } else { - var $9633 = (self - 1n); - var $9634 = List$at$($9633, $9630); - var $9631 = $9634; + var $9745 = (self - 1n); + var $9746 = List$at$($9745, $9742); + var $9743 = $9746; }; - return $9631; + return $9743; case 'List.nil': - var $9635 = Maybe$none; - return $9635; + var $9747 = Maybe$none; + return $9747; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -30203,36 +30522,36 @@ module.exports = (function() { var self = List$at$(_m$3, _base64$4); switch (self._) { case 'Maybe.some': - var $9638 = self.value; - var $9639 = $9638; - var $9637 = $9639; + var $9750 = self.value; + var $9751 = $9750; + var $9749 = $9751; break; case 'Maybe.none': - var $9640 = 35; - var $9637 = $9640; + var $9752 = 35; + var $9749 = $9752; break; }; - var $9636 = $9637; + var $9748 = $9749; } else { - var $9641 = 35; - var $9636 = $9641; + var $9753 = 35; + var $9748 = $9753; }; - return $9636; + return $9748; }; const Nat$show_digit = x0 => x1 => Nat$show_digit$(x0, x1); function Nat$to_string_base$(_base$1, _nat$2) { - var $9642 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { - var $9643 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); - return $9643; + var $9754 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { + var $9755 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); + return $9755; })); - return $9642; + return $9754; }; const Nat$to_string_base = x0 => x1 => Nat$to_string_base$(x0, x1); function Nat$show$(_n$1) { - var $9644 = Nat$to_string_base$(10n, _n$1); - return $9644; + var $9756 = Nat$to_string_base$(10n, _n$1); + return $9756; }; const Nat$show = x0 => Nat$show$(x0); @@ -30240,92 +30559,92 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9646 = self.err; + var $9758 = self.err; var _reply$7 = Parser$text$("+", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9648 = self.err; - var self = $9646; + var $9760 = self.err; + var self = $9758; switch (self._) { case 'Maybe.some': - var $9650 = self.value; - var $9651 = Parser$Reply$error$(Parser$Error$combine$($9650, $9648)); - var $9649 = $9651; + var $9762 = self.value; + var $9763 = Parser$Reply$error$(Parser$Error$combine$($9762, $9760)); + var $9761 = $9763; break; case 'Maybe.none': - var $9652 = Parser$Reply$error$($9648); - var $9649 = $9652; + var $9764 = Parser$Reply$error$($9760); + var $9761 = $9764; break; }; - var $9647 = $9649; + var $9759 = $9761; break; case 'Parser.Reply.value': - var $9653 = self.pst; - var self = $9653; + var $9765 = self.pst; + var self = $9765; 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$15 = Parser$State$new$(Parser$Error$maybe_combine$($9646, $9655), $9656, $9657, $9658, $9659); + var $9767 = self.err; + var $9768 = self.nam; + var $9769 = self.ini; + var $9770 = self.idx; + var $9771 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9758, $9767), $9768, $9769, $9770, $9771); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9661 = self.err; + var $9773 = self.err; var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9663 = self.err; - var self = $9661; + var $9775 = self.err; + var self = $9773; switch (self._) { case 'Maybe.some': - var $9665 = self.value; - var $9666 = Parser$Reply$error$(Parser$Error$combine$($9665, $9663)); - var $9664 = $9666; + var $9777 = self.value; + var $9778 = Parser$Reply$error$(Parser$Error$combine$($9777, $9775)); + var $9776 = $9778; break; case 'Maybe.none': - var $9667 = Parser$Reply$error$($9663); - var $9664 = $9667; + var $9779 = Parser$Reply$error$($9775); + var $9776 = $9779; break; }; - var $9662 = $9664; + var $9774 = $9776; break; case 'Parser.Reply.value': - var $9668 = self.pst; - var $9669 = self.val; - var self = $9668; + var $9780 = self.pst; + var $9781 = self.val; + var self = $9780; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($9661, $9671), $9672, $9673, $9674, $9675); - var $9676 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$true, Nat$from_base$(10n, $9669))); - var $9670 = $9676; + var $9783 = self.err; + var $9784 = self.nam; + var $9785 = self.ini; + var $9786 = self.idx; + var $9787 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9773, $9783), $9784, $9785, $9786, $9787); + var $9788 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$true, Nat$from_base$(10n, $9781))); + var $9782 = $9788; break; }; - var $9662 = $9670; + var $9774 = $9782; break; }; - var $9660 = $9662; + var $9772 = $9774; break; }; - var $9654 = $9660; + var $9766 = $9772; break; }; - var $9647 = $9654; + var $9759 = $9766; break; }; - var $9645 = $9647; + var $9757 = $9759; break; }; - return $9645; + return $9757; }; const Kind$Parser$int_pos = x0 => Kind$Parser$int_pos$(x0); @@ -30333,254 +30652,254 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9678 = self.err; + var $9790 = self.err; var _reply$7 = Parser$text$("-", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9680 = self.err; - var self = $9678; + var $9792 = self.err; + var self = $9790; switch (self._) { case 'Maybe.some': - var $9682 = self.value; - var $9683 = Parser$Reply$error$(Parser$Error$combine$($9682, $9680)); - var $9681 = $9683; + var $9794 = self.value; + var $9795 = Parser$Reply$error$(Parser$Error$combine$($9794, $9792)); + var $9793 = $9795; break; case 'Maybe.none': - var $9684 = Parser$Reply$error$($9680); - var $9681 = $9684; + var $9796 = Parser$Reply$error$($9792); + var $9793 = $9796; break; }; - var $9679 = $9681; + var $9791 = $9793; break; case 'Parser.Reply.value': - var $9685 = self.pst; - var self = $9685; + var $9797 = self.pst; + var self = $9797; 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$15 = Parser$State$new$(Parser$Error$maybe_combine$($9678, $9687), $9688, $9689, $9690, $9691); + var $9799 = self.err; + var $9800 = self.nam; + var $9801 = self.ini; + var $9802 = self.idx; + var $9803 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9790, $9799), $9800, $9801, $9802, $9803); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9693 = self.err; + var $9805 = self.err; var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9695 = self.err; - var self = $9693; + var $9807 = self.err; + var self = $9805; switch (self._) { case 'Maybe.some': - var $9697 = self.value; - var $9698 = Parser$Reply$error$(Parser$Error$combine$($9697, $9695)); - var $9696 = $9698; + var $9809 = self.value; + var $9810 = Parser$Reply$error$(Parser$Error$combine$($9809, $9807)); + var $9808 = $9810; break; case 'Maybe.none': - var $9699 = Parser$Reply$error$($9695); - var $9696 = $9699; + var $9811 = Parser$Reply$error$($9807); + var $9808 = $9811; break; }; - var $9694 = $9696; + var $9806 = $9808; break; case 'Parser.Reply.value': - var $9700 = self.pst; - var $9701 = self.val; - var self = $9700; + var $9812 = self.pst; + var $9813 = self.val; + var self = $9812; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($9693, $9703), $9704, $9705, $9706, $9707); - var $9708 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$false, Nat$from_base$(10n, $9701))); - var $9702 = $9708; + var $9815 = self.err; + var $9816 = self.nam; + var $9817 = self.ini; + var $9818 = self.idx; + var $9819 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9805, $9815), $9816, $9817, $9818, $9819); + var $9820 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$false, Nat$from_base$(10n, $9813))); + var $9814 = $9820; break; }; - var $9694 = $9702; + var $9806 = $9814; break; }; - var $9692 = $9694; + var $9804 = $9806; break; }; - var $9686 = $9692; + var $9798 = $9804; break; }; - var $9679 = $9686; + var $9791 = $9798; break; }; - var $9677 = $9679; + var $9789 = $9791; break; }; - return $9677; + return $9789; }; const Kind$Parser$int_neg = x0 => Kind$Parser$int_neg$(x0); function Kind$Parser$machine_integer$signed$(_size$1) { - var $9709 = Kind$Parser$block("int")((() => { + var $9821 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $9710 = (_pst$3 => { + var $9822 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $9712 = self.err; + var $9824 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $9714 = self.err; - var self = $9712; + var $9826 = self.err; + var self = $9824; switch (self._) { case 'Maybe.some': - var $9716 = self.value; - var $9717 = Parser$Reply$error$(Parser$Error$combine$($9716, $9714)); - var $9715 = $9717; + var $9828 = self.value; + var $9829 = Parser$Reply$error$(Parser$Error$combine$($9828, $9826)); + var $9827 = $9829; break; case 'Maybe.none': - var $9718 = Parser$Reply$error$($9714); - var $9715 = $9718; + var $9830 = Parser$Reply$error$($9826); + var $9827 = $9830; break; }; - var $9713 = $9715; + var $9825 = $9827; break; case 'Parser.Reply.value': - var $9719 = self.pst; - var self = $9719; + var $9831 = self.pst; + var self = $9831; 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$17 = Parser$State$new$(Parser$Error$maybe_combine$($9712, $9721), $9722, $9723, $9724, $9725); + var $9833 = self.err; + var $9834 = self.nam; + var $9835 = self.ini; + var $9836 = self.idx; + var $9837 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9824, $9833), $9834, $9835, $9836, $9837); var self = _reply$pst$17; switch (self._) { case 'Parser.State.new': - var $9727 = self.err; + var $9839 = 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.Reply.error': - var $9729 = self.err; - var self = $9727; + var $9841 = self.err; + var self = $9839; switch (self._) { case 'Maybe.some': - var $9731 = self.value; - var $9732 = Parser$Reply$error$(Parser$Error$combine$($9731, $9729)); - var $9730 = $9732; + var $9843 = self.value; + var $9844 = Parser$Reply$error$(Parser$Error$combine$($9843, $9841)); + var $9842 = $9844; break; case 'Maybe.none': - var $9733 = Parser$Reply$error$($9729); - var $9730 = $9733; + var $9845 = Parser$Reply$error$($9841); + var $9842 = $9845; break; }; - var $9728 = $9730; + var $9840 = $9842; break; case 'Parser.Reply.value': - var $9734 = self.pst; - var $9735 = self.val; - var self = $9734; + var $9846 = self.pst; + var $9847 = self.val; + var self = $9846; switch (self._) { case 'Parser.State.new': - var $9737 = self.err; - var $9738 = self.nam; - var $9739 = self.ini; - var $9740 = self.idx; - var $9741 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($9727, $9737), $9738, $9739, $9740, $9741); + var $9849 = self.err; + var $9850 = self.nam; + var $9851 = self.ini; + var $9852 = self.idx; + var $9853 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($9839, $9849), $9850, $9851, $9852, $9853); var self = _reply$pst$31; switch (self._) { case 'Parser.State.new': - var $9743 = self.err; + var $9855 = self.err; var _reply$37 = Parser$text$(("#" + _size_str$2), _reply$pst$31); var self = _reply$37; switch (self._) { case 'Parser.Reply.error': - var $9745 = self.err; - var self = $9743; + var $9857 = self.err; + var self = $9855; switch (self._) { case 'Maybe.some': - var $9747 = self.value; - var $9748 = Parser$Reply$error$(Parser$Error$combine$($9747, $9745)); - var $9746 = $9748; + var $9859 = self.value; + var $9860 = Parser$Reply$error$(Parser$Error$combine$($9859, $9857)); + var $9858 = $9860; break; case 'Maybe.none': - var $9749 = Parser$Reply$error$($9745); - var $9746 = $9749; + var $9861 = Parser$Reply$error$($9857); + var $9858 = $9861; break; }; - var $9744 = $9746; + var $9856 = $9858; break; case 'Parser.Reply.value': - var $9750 = self.pst; - var self = $9750; + var $9862 = self.pst; + var self = $9862; switch (self._) { case 'Parser.State.new': - var $9752 = self.err; - var $9753 = self.nam; - var $9754 = self.ini; - var $9755 = self.idx; - var $9756 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($9743, $9752), $9753, $9754, $9755, $9756); - var $9757 = Parser$Reply$value$(_reply$pst$45, (() => { - var self = $9735; + var $9864 = self.err; + var $9865 = self.nam; + var $9866 = self.ini; + var $9867 = self.idx; + var $9868 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($9855, $9864), $9865, $9866, $9867, $9868); + var $9869 = Parser$Reply$value$(_reply$pst$45, (() => { + var self = $9847; switch (self._) { case 'Pair.new': - var $9758 = self.fst; - var $9759 = self.snd; + var $9870 = self.fst; + var $9871 = 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$($9759)); - var self = $9758; + var _term$49 = Kind$Term$app$(_term$48, Kind$Term$nat$($9871)); + var self = $9870; if (self) { - var $9761 = _term$49; - var _term$50 = $9761; + var $9873 = _term$49; + var _term$50 = $9873; } else { - var $9762 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$49); - var _term$50 = $9762; + var $9874 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$49); + var _term$50 = $9874; }; - var $9760 = _term$50; - return $9760; + var $9872 = _term$50; + return $9872; }; })()); - var $9751 = $9757; + var $9863 = $9869; break; }; - var $9744 = $9751; + var $9856 = $9863; break; }; - var $9742 = $9744; + var $9854 = $9856; break; }; - var $9736 = $9742; + var $9848 = $9854; break; }; - var $9728 = $9736; + var $9840 = $9848; break; }; - var $9726 = $9728; + var $9838 = $9840; break; }; - var $9720 = $9726; + var $9832 = $9838; break; }; - var $9713 = $9720; + var $9825 = $9832; break; }; - var $9711 = $9713; + var $9823 = $9825; break; }; - return $9711; + return $9823; }); - return $9710; + return $9822; })()); - return $9709; + return $9821; }; const Kind$Parser$machine_integer$signed = x0 => Kind$Parser$machine_integer$signed$(x0); @@ -30588,180 +30907,180 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9764 = self.err; - var $9765 = self.nam; - var $9766 = self.ini; - var $9767 = self.idx; - var $9768 = self.str; - var self = $9768; + var $9876 = self.err; + var $9877 = self.nam; + var $9878 = self.ini; + var $9879 = self.idx; + var $9880 = self.str; + var self = $9880; if (self.length === 0) { - var $9770 = Parser$Reply$fail$($9765, $9766, $9767, "Not a digit."); - var $9769 = $9770; + var $9882 = Parser$Reply$fail$($9877, $9878, $9879, "Not a digit."); + var $9881 = $9882; } else { - var $9771 = self.charCodeAt(0); - var $9772 = self.slice(1); - var _pst$9 = Parser$State$new$($9764, $9765, $9766, Nat$succ$($9767), $9772); - var self = ($9771 === 48); + var $9883 = self.charCodeAt(0); + var $9884 = self.slice(1); + var _pst$9 = Parser$State$new$($9876, $9877, $9878, Nat$succ$($9879), $9884); + var self = ($9883 === 48); if (self) { - var $9774 = Parser$Reply$value$(_pst$9, 0n); - var $9773 = $9774; + var $9886 = Parser$Reply$value$(_pst$9, 0n); + var $9885 = $9886; } else { - var self = ($9771 === 49); + var self = ($9883 === 49); if (self) { - var $9776 = Parser$Reply$value$(_pst$9, 1n); - var $9775 = $9776; + var $9888 = Parser$Reply$value$(_pst$9, 1n); + var $9887 = $9888; } else { - var self = ($9771 === 50); + var self = ($9883 === 50); if (self) { - var $9778 = Parser$Reply$value$(_pst$9, 2n); - var $9777 = $9778; + var $9890 = Parser$Reply$value$(_pst$9, 2n); + var $9889 = $9890; } else { - var self = ($9771 === 51); + var self = ($9883 === 51); if (self) { - var $9780 = Parser$Reply$value$(_pst$9, 3n); - var $9779 = $9780; + var $9892 = Parser$Reply$value$(_pst$9, 3n); + var $9891 = $9892; } else { - var self = ($9771 === 52); + var self = ($9883 === 52); if (self) { - var $9782 = Parser$Reply$value$(_pst$9, 4n); - var $9781 = $9782; + var $9894 = Parser$Reply$value$(_pst$9, 4n); + var $9893 = $9894; } else { - var self = ($9771 === 53); + var self = ($9883 === 53); if (self) { - var $9784 = Parser$Reply$value$(_pst$9, 5n); - var $9783 = $9784; + var $9896 = Parser$Reply$value$(_pst$9, 5n); + var $9895 = $9896; } else { - var self = ($9771 === 54); + var self = ($9883 === 54); if (self) { - var $9786 = Parser$Reply$value$(_pst$9, 6n); - var $9785 = $9786; + var $9898 = Parser$Reply$value$(_pst$9, 6n); + var $9897 = $9898; } else { - var self = ($9771 === 55); + var self = ($9883 === 55); if (self) { - var $9788 = Parser$Reply$value$(_pst$9, 7n); - var $9787 = $9788; + var $9900 = Parser$Reply$value$(_pst$9, 7n); + var $9899 = $9900; } else { - var self = ($9771 === 56); + var self = ($9883 === 56); if (self) { - var $9790 = Parser$Reply$value$(_pst$9, 8n); - var $9789 = $9790; + var $9902 = Parser$Reply$value$(_pst$9, 8n); + var $9901 = $9902; } else { - var self = ($9771 === 57); + var self = ($9883 === 57); if (self) { - var $9792 = Parser$Reply$value$(_pst$9, 9n); - var $9791 = $9792; + var $9904 = Parser$Reply$value$(_pst$9, 9n); + var $9903 = $9904; } else { - var self = ($9771 === 97); + var self = ($9883 === 97); if (self) { - var $9794 = Parser$Reply$value$(_pst$9, 10n); - var $9793 = $9794; + var $9906 = Parser$Reply$value$(_pst$9, 10n); + var $9905 = $9906; } else { - var self = ($9771 === 98); + var self = ($9883 === 98); if (self) { - var $9796 = Parser$Reply$value$(_pst$9, 11n); - var $9795 = $9796; + var $9908 = Parser$Reply$value$(_pst$9, 11n); + var $9907 = $9908; } else { - var self = ($9771 === 99); + var self = ($9883 === 99); if (self) { - var $9798 = Parser$Reply$value$(_pst$9, 12n); - var $9797 = $9798; + var $9910 = Parser$Reply$value$(_pst$9, 12n); + var $9909 = $9910; } else { - var self = ($9771 === 100); + var self = ($9883 === 100); if (self) { - var $9800 = Parser$Reply$value$(_pst$9, 13n); - var $9799 = $9800; + var $9912 = Parser$Reply$value$(_pst$9, 13n); + var $9911 = $9912; } else { - var self = ($9771 === 101); + var self = ($9883 === 101); if (self) { - var $9802 = Parser$Reply$value$(_pst$9, 14n); - var $9801 = $9802; + var $9914 = Parser$Reply$value$(_pst$9, 14n); + var $9913 = $9914; } else { - var self = ($9771 === 102); + var self = ($9883 === 102); if (self) { - var $9804 = Parser$Reply$value$(_pst$9, 15n); - var $9803 = $9804; + var $9916 = Parser$Reply$value$(_pst$9, 15n); + var $9915 = $9916; } else { - var self = ($9771 === 65); + var self = ($9883 === 65); if (self) { - var $9806 = Parser$Reply$value$(_pst$9, 10n); - var $9805 = $9806; + var $9918 = Parser$Reply$value$(_pst$9, 10n); + var $9917 = $9918; } else { - var self = ($9771 === 66); + var self = ($9883 === 66); if (self) { - var $9808 = Parser$Reply$value$(_pst$9, 11n); - var $9807 = $9808; + var $9920 = Parser$Reply$value$(_pst$9, 11n); + var $9919 = $9920; } else { - var self = ($9771 === 67); + var self = ($9883 === 67); if (self) { - var $9810 = Parser$Reply$value$(_pst$9, 12n); - var $9809 = $9810; + var $9922 = Parser$Reply$value$(_pst$9, 12n); + var $9921 = $9922; } else { - var self = ($9771 === 68); + var self = ($9883 === 68); if (self) { - var $9812 = Parser$Reply$value$(_pst$9, 13n); - var $9811 = $9812; + var $9924 = Parser$Reply$value$(_pst$9, 13n); + var $9923 = $9924; } else { - var self = ($9771 === 69); + var self = ($9883 === 69); if (self) { - var $9814 = Parser$Reply$value$(_pst$9, 14n); - var $9813 = $9814; + var $9926 = Parser$Reply$value$(_pst$9, 14n); + var $9925 = $9926; } else { - var self = ($9771 === 70); + var self = ($9883 === 70); if (self) { - var $9816 = Parser$Reply$value$(_pst$9, 15n); - var $9815 = $9816; + var $9928 = Parser$Reply$value$(_pst$9, 15n); + var $9927 = $9928; } else { - var $9817 = Parser$Reply$fail$($9765, $9766, $9767, "Not a digit."); - var $9815 = $9817; + var $9929 = Parser$Reply$fail$($9877, $9878, $9879, "Not a digit."); + var $9927 = $9929; }; - var $9813 = $9815; + var $9925 = $9927; }; - var $9811 = $9813; + var $9923 = $9925; }; - var $9809 = $9811; + var $9921 = $9923; }; - var $9807 = $9809; + var $9919 = $9921; }; - var $9805 = $9807; + var $9917 = $9919; }; - var $9803 = $9805; + var $9915 = $9917; }; - var $9801 = $9803; + var $9913 = $9915; }; - var $9799 = $9801; + var $9911 = $9913; }; - var $9797 = $9799; + var $9909 = $9911; }; - var $9795 = $9797; + var $9907 = $9909; }; - var $9793 = $9795; + var $9905 = $9907; }; - var $9791 = $9793; + var $9903 = $9905; }; - var $9789 = $9791; + var $9901 = $9903; }; - var $9787 = $9789; + var $9899 = $9901; }; - var $9785 = $9787; + var $9897 = $9899; }; - var $9783 = $9785; + var $9895 = $9897; }; - var $9781 = $9783; + var $9893 = $9895; }; - var $9779 = $9781; + var $9891 = $9893; }; - var $9777 = $9779; + var $9889 = $9891; }; - var $9775 = $9777; + var $9887 = $9889; }; - var $9773 = $9775; + var $9885 = $9887; }; - var $9769 = $9773; + var $9881 = $9885; }; - var $9763 = $9769; + var $9875 = $9881; break; }; - return $9763; + return $9875; }; const Parser$hex_digit = x0 => Parser$hex_digit$(x0); @@ -30769,883 +31088,883 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9819 = self.err; + var $9931 = self.err; var _reply$7 = Parser$text$("0x", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9821 = self.err; - var self = $9819; + var $9933 = self.err; + var self = $9931; switch (self._) { case 'Maybe.some': - var $9823 = self.value; - var $9824 = Parser$Reply$error$(Parser$Error$combine$($9823, $9821)); - var $9822 = $9824; + var $9935 = self.value; + var $9936 = Parser$Reply$error$(Parser$Error$combine$($9935, $9933)); + var $9934 = $9936; break; case 'Maybe.none': - var $9825 = Parser$Reply$error$($9821); - var $9822 = $9825; + var $9937 = Parser$Reply$error$($9933); + var $9934 = $9937; break; }; - var $9820 = $9822; + var $9932 = $9934; break; case 'Parser.Reply.value': - var $9826 = self.pst; - var self = $9826; + var $9938 = self.pst; + var self = $9938; 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$15 = Parser$State$new$(Parser$Error$maybe_combine$($9819, $9828), $9829, $9830, $9831, $9832); + var $9940 = self.err; + var $9941 = self.nam; + var $9942 = self.ini; + var $9943 = self.idx; + var $9944 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9931, $9940), $9941, $9942, $9943, $9944); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9834 = self.err; + var $9946 = self.err; var _reply$21 = Parser$many1$(Parser$hex_digit, _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9836 = self.err; - var self = $9834; + var $9948 = self.err; + var self = $9946; switch (self._) { case 'Maybe.some': - var $9838 = self.value; - var $9839 = Parser$Reply$error$(Parser$Error$combine$($9838, $9836)); - var $9837 = $9839; + var $9950 = self.value; + var $9951 = Parser$Reply$error$(Parser$Error$combine$($9950, $9948)); + var $9949 = $9951; break; case 'Maybe.none': - var $9840 = Parser$Reply$error$($9836); - var $9837 = $9840; + var $9952 = Parser$Reply$error$($9948); + var $9949 = $9952; break; }; - var $9835 = $9837; + var $9947 = $9949; break; case 'Parser.Reply.value': - var $9841 = self.pst; - var $9842 = self.val; - var self = $9841; + var $9953 = self.pst; + var $9954 = self.val; + var self = $9953; switch (self._) { case 'Parser.State.new': - var $9844 = self.err; - var $9845 = self.nam; - var $9846 = self.ini; - var $9847 = self.idx; - var $9848 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9834, $9844), $9845, $9846, $9847, $9848); - var $9849 = Parser$Reply$value$(_reply$pst$29, Nat$from_base$(16n, $9842)); - var $9843 = $9849; + var $9956 = self.err; + var $9957 = self.nam; + var $9958 = self.ini; + var $9959 = self.idx; + var $9960 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9946, $9956), $9957, $9958, $9959, $9960); + var $9961 = Parser$Reply$value$(_reply$pst$29, Nat$from_base$(16n, $9954)); + var $9955 = $9961; break; }; - var $9835 = $9843; + var $9947 = $9955; break; }; - var $9833 = $9835; + var $9945 = $9947; break; }; - var $9827 = $9833; + var $9939 = $9945; break; }; - var $9820 = $9827; + var $9932 = $9939; break; }; - var $9818 = $9820; + var $9930 = $9932; break; }; - return $9818; + return $9930; }; 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 $9851 = self.err; + var $9963 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9853 = self.err; - var self = $9851; + var $9965 = self.err; + var self = $9963; switch (self._) { case 'Maybe.some': - var $9855 = self.value; - var $9856 = Parser$Reply$error$(Parser$Error$combine$($9855, $9853)); - var $9854 = $9856; + var $9967 = self.value; + var $9968 = Parser$Reply$error$(Parser$Error$combine$($9967, $9965)); + var $9966 = $9968; break; case 'Maybe.none': - var $9857 = Parser$Reply$error$($9853); - var $9854 = $9857; + var $9969 = Parser$Reply$error$($9965); + var $9966 = $9969; break; }; - var $9852 = $9854; + var $9964 = $9966; break; case 'Parser.Reply.value': - var $9858 = self.pst; - var self = $9858; + var $9970 = self.pst; + var self = $9970; 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$15 = Parser$State$new$(Parser$Error$maybe_combine$($9851, $9860), $9861, $9862, $9863, $9864); + var $9972 = self.err; + var $9973 = self.nam; + var $9974 = self.ini; + var $9975 = self.idx; + var $9976 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9963, $9972), $9973, $9974, $9975, $9976); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9866 = self.err; + var $9978 = 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 $9868 = self.err; - var self = $9866; + var $9980 = self.err; + var self = $9978; switch (self._) { case 'Maybe.some': - var $9870 = self.value; - var $9871 = Parser$Reply$error$(Parser$Error$combine$($9870, $9868)); - var $9869 = $9871; + var $9982 = self.value; + var $9983 = Parser$Reply$error$(Parser$Error$combine$($9982, $9980)); + var $9981 = $9983; break; case 'Maybe.none': - var $9872 = Parser$Reply$error$($9868); - var $9869 = $9872; + var $9984 = Parser$Reply$error$($9980); + var $9981 = $9984; break; }; - var $9867 = $9869; + var $9979 = $9981; break; case 'Parser.Reply.value': - var $9873 = self.pst; - var $9874 = self.val; - var self = $9873; + var $9985 = self.pst; + var $9986 = self.val; + var self = $9985; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($9866, $9876), $9877, $9878, $9879, $9880); - var $9881 = Parser$Reply$value$(_reply$pst$29, Kind$Term$nat$($9874)); - var $9875 = $9881; + var $9988 = self.err; + var $9989 = self.nam; + var $9990 = self.ini; + var $9991 = self.idx; + var $9992 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9978, $9988), $9989, $9990, $9991, $9992); + var $9993 = Parser$Reply$value$(_reply$pst$29, Kind$Term$nat$($9986)); + var $9987 = $9993; break; }; - var $9867 = $9875; + var $9979 = $9987; break; }; - var $9865 = $9867; + var $9977 = $9979; break; }; - var $9859 = $9865; + var $9971 = $9977; break; }; - var $9852 = $9859; + var $9964 = $9971; break; }; - var $9850 = $9852; + var $9962 = $9964; break; }; - return $9850; + return $9962; })); function Kind$Parser$machine_integer$unsigned$(_size$1) { - var $9882 = Kind$Parser$block("int")((() => { + var $9994 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $9883 = (_pst$3 => { + var $9995 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $9885 = self.err; + var $9997 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $9887 = self.err; - var self = $9885; + var $9999 = self.err; + var self = $9997; switch (self._) { case 'Maybe.some': - var $9889 = self.value; - var $9890 = Parser$Reply$error$(Parser$Error$combine$($9889, $9887)); - var $9888 = $9890; + var $10001 = self.value; + var $10002 = Parser$Reply$error$(Parser$Error$combine$($10001, $9999)); + var $10000 = $10002; break; case 'Maybe.none': - var $9891 = Parser$Reply$error$($9887); - var $9888 = $9891; + var $10003 = Parser$Reply$error$($9999); + var $10000 = $10003; break; }; - var $9886 = $9888; + var $9998 = $10000; break; case 'Parser.Reply.value': - var $9892 = self.pst; - var self = $9892; + var $10004 = self.pst; + var self = $10004; switch (self._) { case 'Parser.State.new': - var $9894 = self.err; - var $9895 = self.nam; - var $9896 = self.ini; - var $9897 = self.idx; - var $9898 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9885, $9894), $9895, $9896, $9897, $9898); + var $10006 = self.err; + var $10007 = self.nam; + var $10008 = self.ini; + var $10009 = self.idx; + var $10010 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9997, $10006), $10007, $10008, $10009, $10010); var self = _reply$pst$17; switch (self._) { case 'Parser.State.new': - var $9900 = self.err; + var $10012 = self.err; var _reply$23 = Kind$Parser$nat(_reply$pst$17); var self = _reply$23; switch (self._) { case 'Parser.Reply.error': - var $9902 = self.err; - var self = $9900; + var $10014 = self.err; + var self = $10012; switch (self._) { case 'Maybe.some': - var $9904 = self.value; - var $9905 = Parser$Reply$error$(Parser$Error$combine$($9904, $9902)); - var $9903 = $9905; + var $10016 = self.value; + var $10017 = Parser$Reply$error$(Parser$Error$combine$($10016, $10014)); + var $10015 = $10017; break; case 'Maybe.none': - var $9906 = Parser$Reply$error$($9902); - var $9903 = $9906; + var $10018 = Parser$Reply$error$($10014); + var $10015 = $10018; break; }; - var $9901 = $9903; + var $10013 = $10015; break; case 'Parser.Reply.value': - var $9907 = self.pst; - var $9908 = self.val; - var self = $9907; + var $10019 = self.pst; + var $10020 = self.val; + var self = $10019; switch (self._) { case 'Parser.State.new': - var $9910 = self.err; - var $9911 = self.nam; - var $9912 = self.ini; - var $9913 = self.idx; - var $9914 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($9900, $9910), $9911, $9912, $9913, $9914); + var $10022 = self.err; + var $10023 = self.nam; + var $10024 = self.ini; + var $10025 = self.idx; + var $10026 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($10012, $10022), $10023, $10024, $10025, $10026); var self = _reply$pst$31; switch (self._) { case 'Parser.State.new': - var $9916 = self.err; + var $10028 = 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 $9918 = self.err; - var self = $9916; + var $10030 = self.err; + var self = $10028; switch (self._) { case 'Maybe.some': - var $9920 = self.value; - var $9921 = Parser$Reply$error$(Parser$Error$combine$($9920, $9918)); - var $9919 = $9921; + var $10032 = self.value; + var $10033 = Parser$Reply$error$(Parser$Error$combine$($10032, $10030)); + var $10031 = $10033; break; case 'Maybe.none': - var $9922 = Parser$Reply$error$($9918); - var $9919 = $9922; + var $10034 = Parser$Reply$error$($10030); + var $10031 = $10034; break; }; - var $9917 = $9919; + var $10029 = $10031; break; case 'Parser.Reply.value': - var $9923 = self.pst; - var self = $9923; + var $10035 = self.pst; + var self = $10035; switch (self._) { case 'Parser.State.new': - var $9925 = self.err; - var $9926 = self.nam; - var $9927 = self.ini; - var $9928 = self.idx; - var $9929 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($9916, $9925), $9926, $9927, $9928, $9929); + var $10037 = self.err; + var $10038 = self.nam; + var $10039 = self.ini; + var $10040 = self.idx; + var $10041 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($10028, $10037), $10038, $10039, $10040, $10041); var _term$46 = Kind$Term$ref$(("Nat.to_u" + Nat$show$(_size$1))); - var _term$47 = Kind$Term$app$(_term$46, $9908); - var $9930 = Parser$Reply$value$(_reply$pst$45, _term$47); - var $9924 = $9930; + var _term$47 = Kind$Term$app$(_term$46, $10020); + var $10042 = Parser$Reply$value$(_reply$pst$45, _term$47); + var $10036 = $10042; break; }; - var $9917 = $9924; + var $10029 = $10036; break; }; - var $9915 = $9917; + var $10027 = $10029; break; }; - var $9909 = $9915; + var $10021 = $10027; break; }; - var $9901 = $9909; + var $10013 = $10021; break; }; - var $9899 = $9901; + var $10011 = $10013; break; }; - var $9893 = $9899; + var $10005 = $10011; break; }; - var $9886 = $9893; + var $9998 = $10005; break; }; - var $9884 = $9886; + var $9996 = $9998; break; }; - return $9884; + return $9996; }); - return $9883; + return $9995; })()); - return $9882; + return $9994; }; 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 $9932 = self.err; + var $10044 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9934 = self.err; - var self = $9932; + var $10046 = self.err; + var self = $10044; switch (self._) { case 'Maybe.some': - var $9936 = self.value; - var $9937 = Parser$Reply$error$(Parser$Error$combine$($9936, $9934)); - var $9935 = $9937; + var $10048 = self.value; + var $10049 = Parser$Reply$error$(Parser$Error$combine$($10048, $10046)); + var $10047 = $10049; break; case 'Maybe.none': - var $9938 = Parser$Reply$error$($9934); - var $9935 = $9938; + var $10050 = Parser$Reply$error$($10046); + var $10047 = $10050; break; }; - var $9933 = $9935; + var $10045 = $10047; break; case 'Parser.Reply.value': - var $9939 = self.pst; - var self = $9939; + var $10051 = self.pst; + var self = $10051; switch (self._) { case 'Parser.State.new': - var $9941 = self.err; - var $9942 = self.nam; - var $9943 = self.ini; - var $9944 = self.idx; - var $9945 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9932, $9941), $9942, $9943, $9944, $9945); + var $10053 = self.err; + var $10054 = self.nam; + var $10055 = self.ini; + var $10056 = self.idx; + var $10057 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10044, $10053), $10054, $10055, $10056, $10057); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9947 = self.err; + var $10059 = self.err; var _reply$21 = Parser$nat$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9949 = self.err; - var self = $9947; + var $10061 = self.err; + var self = $10059; switch (self._) { case 'Maybe.some': - var $9951 = self.value; - var $9952 = Parser$Reply$error$(Parser$Error$combine$($9951, $9949)); - var $9950 = $9952; + var $10063 = self.value; + var $10064 = Parser$Reply$error$(Parser$Error$combine$($10063, $10061)); + var $10062 = $10064; break; case 'Maybe.none': - var $9953 = Parser$Reply$error$($9949); - var $9950 = $9953; + var $10065 = Parser$Reply$error$($10061); + var $10062 = $10065; break; }; - var $9948 = $9950; + var $10060 = $10062; break; case 'Parser.Reply.value': - var $9954 = self.pst; - var $9955 = self.val; - var self = $9954; + var $10066 = self.pst; + var $10067 = self.val; + var self = $10066; switch (self._) { case 'Parser.State.new': - var $9957 = self.err; - var $9958 = self.nam; - var $9959 = self.ini; - var $9960 = self.idx; - var $9961 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9947, $9957), $9958, $9959, $9960, $9961); + var $10069 = self.err; + var $10070 = self.nam; + var $10071 = self.ini; + var $10072 = self.idx; + var $10073 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10059, $10069), $10070, $10071, $10072, $10073); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $9963 = self.err; + var $10075 = self.err; var _reply$35 = Parser$text$("l", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $9965 = self.err; - var self = $9963; + var $10077 = self.err; + var self = $10075; switch (self._) { case 'Maybe.some': - var $9967 = self.value; - var $9968 = Parser$Reply$error$(Parser$Error$combine$($9967, $9965)); - var $9966 = $9968; + var $10079 = self.value; + var $10080 = Parser$Reply$error$(Parser$Error$combine$($10079, $10077)); + var $10078 = $10080; break; case 'Maybe.none': - var $9969 = Parser$Reply$error$($9965); - var $9966 = $9969; + var $10081 = Parser$Reply$error$($10077); + var $10078 = $10081; break; }; - var $9964 = $9966; + var $10076 = $10078; break; case 'Parser.Reply.value': - var $9970 = self.pst; - var self = $9970; + var $10082 = self.pst; + var self = $10082; 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$43 = Parser$State$new$(Parser$Error$maybe_combine$($9963, $9972), $9973, $9974, $9975, $9976); + var $10084 = self.err; + var $10085 = self.nam; + var $10086 = self.ini; + var $10087 = self.idx; + var $10088 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10075, $10084), $10085, $10086, $10087, $10088); var _term$44 = Kind$Term$ref$("U64.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9955)); - var $9977 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $9971 = $9977; + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10067)); + var $10089 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $10083 = $10089; break; }; - var $9964 = $9971; + var $10076 = $10083; break; }; - var $9962 = $9964; + var $10074 = $10076; break; }; - var $9956 = $9962; + var $10068 = $10074; break; }; - var $9948 = $9956; + var $10060 = $10068; break; }; - var $9946 = $9948; + var $10058 = $10060; break; }; - var $9940 = $9946; + var $10052 = $10058; break; }; - var $9933 = $9940; + var $10045 = $10052; break; }; - var $9931 = $9933; + var $10043 = $10045; break; }; - return $9931; + return $10043; })); const Kind$Parser$u32 = Kind$Parser$block("u32")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9979 = self.err; + var $10091 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9981 = self.err; - var self = $9979; + var $10093 = self.err; + var self = $10091; switch (self._) { case 'Maybe.some': - var $9983 = self.value; - var $9984 = Parser$Reply$error$(Parser$Error$combine$($9983, $9981)); - var $9982 = $9984; + var $10095 = self.value; + var $10096 = Parser$Reply$error$(Parser$Error$combine$($10095, $10093)); + var $10094 = $10096; break; case 'Maybe.none': - var $9985 = Parser$Reply$error$($9981); - var $9982 = $9985; + var $10097 = Parser$Reply$error$($10093); + var $10094 = $10097; break; }; - var $9980 = $9982; + var $10092 = $10094; break; case 'Parser.Reply.value': - var $9986 = self.pst; - var self = $9986; + var $10098 = self.pst; + var self = $10098; switch (self._) { case 'Parser.State.new': - var $9988 = self.err; - var $9989 = self.nam; - var $9990 = self.ini; - var $9991 = self.idx; - var $9992 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9979, $9988), $9989, $9990, $9991, $9992); + var $10100 = self.err; + var $10101 = self.nam; + var $10102 = self.ini; + var $10103 = self.idx; + var $10104 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10091, $10100), $10101, $10102, $10103, $10104); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $9994 = self.err; + var $10106 = self.err; var _reply$21 = Parser$nat$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $9996 = self.err; - var self = $9994; + var $10108 = self.err; + var self = $10106; switch (self._) { case 'Maybe.some': - var $9998 = self.value; - var $9999 = Parser$Reply$error$(Parser$Error$combine$($9998, $9996)); - var $9997 = $9999; + var $10110 = self.value; + var $10111 = Parser$Reply$error$(Parser$Error$combine$($10110, $10108)); + var $10109 = $10111; break; case 'Maybe.none': - var $10000 = Parser$Reply$error$($9996); - var $9997 = $10000; + var $10112 = Parser$Reply$error$($10108); + var $10109 = $10112; break; }; - var $9995 = $9997; + var $10107 = $10109; break; case 'Parser.Reply.value': - var $10001 = self.pst; - var $10002 = self.val; - var self = $10001; + var $10113 = self.pst; + var $10114 = self.val; + var self = $10113; 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$29 = Parser$State$new$(Parser$Error$maybe_combine$($9994, $10004), $10005, $10006, $10007, $10008); + var $10116 = self.err; + var $10117 = self.nam; + var $10118 = self.ini; + var $10119 = self.idx; + var $10120 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10106, $10116), $10117, $10118, $10119, $10120); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $10010 = self.err; + var $10122 = self.err; var _reply$35 = Parser$text$("u", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $10012 = self.err; - var self = $10010; + var $10124 = self.err; + var self = $10122; switch (self._) { case 'Maybe.some': - var $10014 = self.value; - var $10015 = Parser$Reply$error$(Parser$Error$combine$($10014, $10012)); - var $10013 = $10015; + var $10126 = self.value; + var $10127 = Parser$Reply$error$(Parser$Error$combine$($10126, $10124)); + var $10125 = $10127; break; case 'Maybe.none': - var $10016 = Parser$Reply$error$($10012); - var $10013 = $10016; + var $10128 = Parser$Reply$error$($10124); + var $10125 = $10128; break; }; - var $10011 = $10013; + var $10123 = $10125; break; case 'Parser.Reply.value': - var $10017 = self.pst; - var self = $10017; + var $10129 = self.pst; + var self = $10129; switch (self._) { case 'Parser.State.new': - var $10019 = self.err; - var $10020 = self.nam; - var $10021 = self.ini; - var $10022 = self.idx; - var $10023 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10010, $10019), $10020, $10021, $10022, $10023); + var $10131 = self.err; + var $10132 = self.nam; + var $10133 = self.ini; + var $10134 = self.idx; + var $10135 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10122, $10131), $10132, $10133, $10134, $10135); var _term$44 = Kind$Term$ref$("U32.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10002)); - var $10024 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $10018 = $10024; + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10114)); + var $10136 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $10130 = $10136; break; }; - var $10011 = $10018; + var $10123 = $10130; break; }; - var $10009 = $10011; + var $10121 = $10123; break; }; - var $10003 = $10009; + var $10115 = $10121; break; }; - var $9995 = $10003; + var $10107 = $10115; break; }; - var $9993 = $9995; + var $10105 = $10107; break; }; - var $9987 = $9993; + var $10099 = $10105; break; }; - var $9980 = $9987; + var $10092 = $10099; break; }; - var $9978 = $9980; + var $10090 = $10092; break; }; - return $9978; + return $10090; })); const Kind$Parser$u16 = Kind$Parser$block("u16")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10026 = self.err; + var $10138 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10028 = self.err; - var self = $10026; + var $10140 = self.err; + var self = $10138; switch (self._) { case 'Maybe.some': - var $10030 = self.value; - var $10031 = Parser$Reply$error$(Parser$Error$combine$($10030, $10028)); - var $10029 = $10031; + var $10142 = self.value; + var $10143 = Parser$Reply$error$(Parser$Error$combine$($10142, $10140)); + var $10141 = $10143; break; case 'Maybe.none': - var $10032 = Parser$Reply$error$($10028); - var $10029 = $10032; + var $10144 = Parser$Reply$error$($10140); + var $10141 = $10144; break; }; - var $10027 = $10029; + var $10139 = $10141; break; case 'Parser.Reply.value': - var $10033 = self.pst; - var self = $10033; + var $10145 = self.pst; + var self = $10145; switch (self._) { case 'Parser.State.new': - var $10035 = self.err; - var $10036 = self.nam; - var $10037 = self.ini; - var $10038 = self.idx; - var $10039 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10026, $10035), $10036, $10037, $10038, $10039); + var $10147 = self.err; + var $10148 = self.nam; + var $10149 = self.ini; + var $10150 = self.idx; + var $10151 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10138, $10147), $10148, $10149, $10150, $10151); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $10041 = self.err; + var $10153 = self.err; var _reply$21 = Parser$nat$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $10043 = self.err; - var self = $10041; + var $10155 = self.err; + var self = $10153; switch (self._) { case 'Maybe.some': - var $10045 = self.value; - var $10046 = Parser$Reply$error$(Parser$Error$combine$($10045, $10043)); - var $10044 = $10046; + var $10157 = self.value; + var $10158 = Parser$Reply$error$(Parser$Error$combine$($10157, $10155)); + var $10156 = $10158; break; case 'Maybe.none': - var $10047 = Parser$Reply$error$($10043); - var $10044 = $10047; + var $10159 = Parser$Reply$error$($10155); + var $10156 = $10159; break; }; - var $10042 = $10044; + var $10154 = $10156; break; case 'Parser.Reply.value': - var $10048 = self.pst; - var $10049 = self.val; - var self = $10048; + var $10160 = self.pst; + var $10161 = self.val; + var self = $10160; switch (self._) { case 'Parser.State.new': - var $10051 = self.err; - var $10052 = self.nam; - var $10053 = self.ini; - var $10054 = self.idx; - var $10055 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10041, $10051), $10052, $10053, $10054, $10055); + var $10163 = self.err; + var $10164 = self.nam; + var $10165 = self.ini; + var $10166 = self.idx; + var $10167 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10153, $10163), $10164, $10165, $10166, $10167); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $10057 = self.err; + var $10169 = self.err; var _reply$35 = Parser$text$("s", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $10059 = self.err; - var self = $10057; + var $10171 = self.err; + var self = $10169; switch (self._) { case 'Maybe.some': - var $10061 = self.value; - var $10062 = Parser$Reply$error$(Parser$Error$combine$($10061, $10059)); - var $10060 = $10062; + var $10173 = self.value; + var $10174 = Parser$Reply$error$(Parser$Error$combine$($10173, $10171)); + var $10172 = $10174; break; case 'Maybe.none': - var $10063 = Parser$Reply$error$($10059); - var $10060 = $10063; + var $10175 = Parser$Reply$error$($10171); + var $10172 = $10175; break; }; - var $10058 = $10060; + var $10170 = $10172; break; case 'Parser.Reply.value': - var $10064 = self.pst; - var self = $10064; + var $10176 = self.pst; + var self = $10176; switch (self._) { case 'Parser.State.new': - var $10066 = self.err; - var $10067 = self.nam; - var $10068 = self.ini; - var $10069 = self.idx; - var $10070 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10057, $10066), $10067, $10068, $10069, $10070); + var $10178 = self.err; + var $10179 = self.nam; + var $10180 = self.ini; + var $10181 = self.idx; + var $10182 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10169, $10178), $10179, $10180, $10181, $10182); var _term$44 = Kind$Term$ref$("U16.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10049)); - var $10071 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $10065 = $10071; + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10161)); + var $10183 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $10177 = $10183; break; }; - var $10058 = $10065; + var $10170 = $10177; break; }; - var $10056 = $10058; + var $10168 = $10170; break; }; - var $10050 = $10056; + var $10162 = $10168; break; }; - var $10042 = $10050; + var $10154 = $10162; break; }; - var $10040 = $10042; + var $10152 = $10154; break; }; - var $10034 = $10040; + var $10146 = $10152; break; }; - var $10027 = $10034; + var $10139 = $10146; break; }; - var $10025 = $10027; + var $10137 = $10139; break; }; - return $10025; + return $10137; })); const Kind$Parser$u8 = Kind$Parser$block("u8")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10073 = self.err; + var $10185 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10075 = self.err; - var self = $10073; + var $10187 = self.err; + var self = $10185; switch (self._) { case 'Maybe.some': - var $10077 = self.value; - var $10078 = Parser$Reply$error$(Parser$Error$combine$($10077, $10075)); - var $10076 = $10078; + var $10189 = self.value; + var $10190 = Parser$Reply$error$(Parser$Error$combine$($10189, $10187)); + var $10188 = $10190; break; case 'Maybe.none': - var $10079 = Parser$Reply$error$($10075); - var $10076 = $10079; + var $10191 = Parser$Reply$error$($10187); + var $10188 = $10191; break; }; - var $10074 = $10076; + var $10186 = $10188; break; case 'Parser.Reply.value': - var $10080 = self.pst; - var self = $10080; + var $10192 = self.pst; + var self = $10192; switch (self._) { case 'Parser.State.new': - var $10082 = self.err; - var $10083 = self.nam; - var $10084 = self.ini; - var $10085 = self.idx; - var $10086 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10073, $10082), $10083, $10084, $10085, $10086); + var $10194 = self.err; + var $10195 = self.nam; + var $10196 = self.ini; + var $10197 = self.idx; + var $10198 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10185, $10194), $10195, $10196, $10197, $10198); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $10088 = self.err; + var $10200 = self.err; var _reply$21 = Parser$nat$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $10090 = self.err; - var self = $10088; + var $10202 = self.err; + var self = $10200; switch (self._) { case 'Maybe.some': - var $10092 = self.value; - var $10093 = Parser$Reply$error$(Parser$Error$combine$($10092, $10090)); - var $10091 = $10093; + var $10204 = self.value; + var $10205 = Parser$Reply$error$(Parser$Error$combine$($10204, $10202)); + var $10203 = $10205; break; case 'Maybe.none': - var $10094 = Parser$Reply$error$($10090); - var $10091 = $10094; + var $10206 = Parser$Reply$error$($10202); + var $10203 = $10206; break; }; - var $10089 = $10091; + var $10201 = $10203; break; case 'Parser.Reply.value': - var $10095 = self.pst; - var $10096 = self.val; - var self = $10095; + var $10207 = self.pst; + var $10208 = self.val; + var self = $10207; switch (self._) { case 'Parser.State.new': - var $10098 = self.err; - var $10099 = self.nam; - var $10100 = self.ini; - var $10101 = self.idx; - var $10102 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10088, $10098), $10099, $10100, $10101, $10102); + var $10210 = self.err; + var $10211 = self.nam; + var $10212 = self.ini; + var $10213 = self.idx; + var $10214 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10200, $10210), $10211, $10212, $10213, $10214); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $10104 = self.err; + var $10216 = self.err; var _reply$35 = Parser$text$("b", _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $10106 = self.err; - var self = $10104; + var $10218 = self.err; + var self = $10216; switch (self._) { case 'Maybe.some': - var $10108 = self.value; - var $10109 = Parser$Reply$error$(Parser$Error$combine$($10108, $10106)); - var $10107 = $10109; + var $10220 = self.value; + var $10221 = Parser$Reply$error$(Parser$Error$combine$($10220, $10218)); + var $10219 = $10221; break; case 'Maybe.none': - var $10110 = Parser$Reply$error$($10106); - var $10107 = $10110; + var $10222 = Parser$Reply$error$($10218); + var $10219 = $10222; break; }; - var $10105 = $10107; + var $10217 = $10219; break; case 'Parser.Reply.value': - var $10111 = self.pst; - var self = $10111; + var $10223 = self.pst; + var self = $10223; switch (self._) { case 'Parser.State.new': - var $10113 = self.err; - var $10114 = self.nam; - var $10115 = self.ini; - var $10116 = self.idx; - var $10117 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10104, $10113), $10114, $10115, $10116, $10117); + var $10225 = self.err; + var $10226 = self.nam; + var $10227 = self.ini; + var $10228 = self.idx; + var $10229 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10216, $10225), $10226, $10227, $10228, $10229); var _term$44 = Kind$Term$ref$("U8.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10096)); - var $10118 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $10112 = $10118; + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($10208)); + var $10230 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $10224 = $10230; break; }; - var $10105 = $10112; + var $10217 = $10224; break; }; - var $10103 = $10105; + var $10215 = $10217; break; }; - var $10097 = $10103; + var $10209 = $10215; break; }; - var $10089 = $10097; + var $10201 = $10209; break; }; - var $10087 = $10089; + var $10199 = $10201; break; }; - var $10081 = $10087; + var $10193 = $10199; break; }; - var $10074 = $10081; + var $10186 = $10193; break; }; - var $10072 = $10074; + var $10184 = $10186; break; }; - return $10072; + return $10184; })); function Parser$Number$new$(_sign$1, _numb$2, _frac$3) { - var $10119 = ({ + var $10231 = ({ _: 'Parser.Number.new', 'sign': _sign$1, 'numb': _numb$2, 'frac': _frac$3 }); - return $10119; + return $10231; }; const Parser$Number$new = x0 => x1 => x2 => Parser$Number$new$(x0, x1, x2); @@ -31653,330 +31972,330 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10121 = self.err; + var $10233 = self.err; var _reply$7 = Parser$choice$(List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $10124 = self.err; + var $10236 = self.err; var _reply$13 = Parser$text$("+", _pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $10126 = self.err; - var self = $10124; + var $10238 = self.err; + var self = $10236; switch (self._) { case 'Maybe.some': - var $10128 = self.value; - var $10129 = Parser$Reply$error$(Parser$Error$combine$($10128, $10126)); - var $10127 = $10129; + var $10240 = self.value; + var $10241 = Parser$Reply$error$(Parser$Error$combine$($10240, $10238)); + var $10239 = $10241; break; case 'Maybe.none': - var $10130 = Parser$Reply$error$($10126); - var $10127 = $10130; + var $10242 = Parser$Reply$error$($10238); + var $10239 = $10242; break; }; - var $10125 = $10127; + var $10237 = $10239; break; case 'Parser.Reply.value': - var $10131 = self.pst; - var self = $10131; + var $10243 = self.pst; + var self = $10243; 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$21 = Parser$State$new$(Parser$Error$maybe_combine$($10124, $10133), $10134, $10135, $10136, $10137); - var $10138 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$true)); - var $10132 = $10138; + var $10245 = self.err; + var $10246 = self.nam; + var $10247 = self.ini; + var $10248 = self.idx; + var $10249 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10236, $10245), $10246, $10247, $10248, $10249); + var $10250 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$true)); + var $10244 = $10250; break; }; - var $10125 = $10132; + var $10237 = $10244; break; }; - var $10123 = $10125; + var $10235 = $10237; break; }; - return $10123; + return $10235; }), List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $10140 = self.err; + var $10252 = self.err; var _reply$13 = Parser$text$("-", _pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $10142 = self.err; - var self = $10140; + var $10254 = self.err; + var self = $10252; switch (self._) { case 'Maybe.some': - var $10144 = self.value; - var $10145 = Parser$Reply$error$(Parser$Error$combine$($10144, $10142)); - var $10143 = $10145; + var $10256 = self.value; + var $10257 = Parser$Reply$error$(Parser$Error$combine$($10256, $10254)); + var $10255 = $10257; break; case 'Maybe.none': - var $10146 = Parser$Reply$error$($10142); - var $10143 = $10146; + var $10258 = Parser$Reply$error$($10254); + var $10255 = $10258; break; }; - var $10141 = $10143; + var $10253 = $10255; break; case 'Parser.Reply.value': - var $10147 = self.pst; - var self = $10147; + var $10259 = self.pst; + var self = $10259; 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$21 = Parser$State$new$(Parser$Error$maybe_combine$($10140, $10149), $10150, $10151, $10152, $10153); - var $10154 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$false)); - var $10148 = $10154; + var $10261 = self.err; + var $10262 = self.nam; + var $10263 = self.ini; + var $10264 = self.idx; + var $10265 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10252, $10261), $10262, $10263, $10264, $10265); + var $10266 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$false)); + var $10260 = $10266; break; }; - var $10141 = $10148; + var $10253 = $10260; break; }; - var $10139 = $10141; + var $10251 = $10253; break; }; - return $10139; + return $10251; }), List$cons$((_pst$7 => { - var $10155 = Parser$Reply$value$(_pst$7, Maybe$none); - return $10155; + var $10267 = Parser$Reply$value$(_pst$7, Maybe$none); + return $10267; }), List$nil))), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10156 = self.err; - var self = $10121; + var $10268 = self.err; + var self = $10233; switch (self._) { case 'Maybe.some': - var $10158 = self.value; - var $10159 = Parser$Reply$error$(Parser$Error$combine$($10158, $10156)); - var $10157 = $10159; + var $10270 = self.value; + var $10271 = Parser$Reply$error$(Parser$Error$combine$($10270, $10268)); + var $10269 = $10271; break; case 'Maybe.none': - var $10160 = Parser$Reply$error$($10156); - var $10157 = $10160; + var $10272 = Parser$Reply$error$($10268); + var $10269 = $10272; break; }; - var $10122 = $10157; + var $10234 = $10269; break; case 'Parser.Reply.value': - var $10161 = self.pst; - var $10162 = self.val; - var self = $10161; + var $10273 = self.pst; + var $10274 = self.val; + var self = $10273; switch (self._) { case 'Parser.State.new': - var $10164 = self.err; - var $10165 = self.nam; - var $10166 = self.ini; - var $10167 = self.idx; - var $10168 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10121, $10164), $10165, $10166, $10167, $10168); + var $10276 = self.err; + var $10277 = self.nam; + var $10278 = self.ini; + var $10279 = self.idx; + var $10280 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10233, $10276), $10277, $10278, $10279, $10280); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $10170 = self.err; + var $10282 = 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 $10172 = self.err; - var self = $10170; + var $10284 = self.err; + var self = $10282; switch (self._) { case 'Maybe.some': - var $10174 = self.value; - var $10175 = Parser$Reply$error$(Parser$Error$combine$($10174, $10172)); - var $10173 = $10175; + var $10286 = self.value; + var $10287 = Parser$Reply$error$(Parser$Error$combine$($10286, $10284)); + var $10285 = $10287; break; case 'Maybe.none': - var $10176 = Parser$Reply$error$($10172); - var $10173 = $10176; + var $10288 = Parser$Reply$error$($10284); + var $10285 = $10288; break; }; - var $10171 = $10173; + var $10283 = $10285; break; case 'Parser.Reply.value': - var $10177 = self.pst; - var $10178 = self.val; - var self = $10177; + var $10289 = self.pst; + var $10290 = self.val; + var self = $10289; switch (self._) { case 'Parser.State.new': - var $10180 = self.err; - var $10181 = self.nam; - var $10182 = self.ini; - var $10183 = self.idx; - var $10184 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10170, $10180), $10181, $10182, $10183, $10184); + var $10292 = self.err; + var $10293 = self.nam; + var $10294 = self.ini; + var $10295 = self.idx; + var $10296 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10282, $10292), $10293, $10294, $10295, $10296); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $10186 = self.err; + var $10298 = self.err; var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $10188 = self.err; + var $10300 = self.err; var _reply$40 = Parser$maybe$(Parser$text("."), _reply$pst$29); var self = _reply$40; switch (self._) { case 'Parser.Reply.error': - var $10190 = self.err; - var self = $10188; + var $10302 = self.err; + var self = $10300; switch (self._) { case 'Maybe.some': - var $10192 = self.value; - var $10193 = Parser$Reply$error$(Parser$Error$combine$($10192, $10190)); - var $10191 = $10193; + var $10304 = self.value; + var $10305 = Parser$Reply$error$(Parser$Error$combine$($10304, $10302)); + var $10303 = $10305; break; case 'Maybe.none': - var $10194 = Parser$Reply$error$($10190); - var $10191 = $10194; + var $10306 = Parser$Reply$error$($10302); + var $10303 = $10306; break; }; - var $10189 = $10191; + var $10301 = $10303; break; case 'Parser.Reply.value': - var $10195 = self.pst; - var self = $10195; + var $10307 = self.pst; + var self = $10307; 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$48 = Parser$State$new$(Parser$Error$maybe_combine$($10188, $10197), $10198, $10199, $10200, $10201); + var $10309 = self.err; + var $10310 = self.nam; + var $10311 = self.ini; + var $10312 = self.idx; + var $10313 = self.str; + var _reply$pst$48 = Parser$State$new$(Parser$Error$maybe_combine$($10300, $10309), $10310, $10311, $10312, $10313); var self = _reply$pst$48; switch (self._) { case 'Parser.State.new': - var $10203 = self.err; + var $10315 = self.err; var _reply$54 = Parser$maybe$(Parser$nat, _reply$pst$48); var self = _reply$54; switch (self._) { case 'Parser.Reply.error': - var $10205 = self.err; - var self = $10203; + var $10317 = self.err; + var self = $10315; switch (self._) { case 'Maybe.some': - var $10207 = self.value; - var $10208 = Parser$Reply$error$(Parser$Error$combine$($10207, $10205)); - var $10206 = $10208; + var $10319 = self.value; + var $10320 = Parser$Reply$error$(Parser$Error$combine$($10319, $10317)); + var $10318 = $10320; break; case 'Maybe.none': - var $10209 = Parser$Reply$error$($10205); - var $10206 = $10209; + var $10321 = Parser$Reply$error$($10317); + var $10318 = $10321; break; }; - var $10204 = $10206; + var $10316 = $10318; break; case 'Parser.Reply.value': - var $10210 = self.pst; - var $10211 = self.val; - var self = $10210; + var $10322 = self.pst; + var $10323 = self.val; + var self = $10322; 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$62 = Parser$State$new$(Parser$Error$maybe_combine$($10203, $10213), $10214, $10215, $10216, $10217); - var $10218 = Parser$Reply$value$(_reply$pst$62, $10211); - var $10212 = $10218; + var $10325 = self.err; + var $10326 = self.nam; + var $10327 = self.ini; + var $10328 = self.idx; + var $10329 = self.str; + var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($10315, $10325), $10326, $10327, $10328, $10329); + var $10330 = Parser$Reply$value$(_reply$pst$62, $10323); + var $10324 = $10330; break; }; - var $10204 = $10212; + var $10316 = $10324; break; }; - var $10202 = $10204; + var $10314 = $10316; break; }; - var $10196 = $10202; + var $10308 = $10314; break; }; - var $10189 = $10196; + var $10301 = $10308; break; }; - var _reply$35 = $10189; + var _reply$35 = $10301; break; }; var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $10219 = self.err; - var self = $10186; + var $10331 = self.err; + var self = $10298; switch (self._) { case 'Maybe.some': - var $10221 = self.value; - var $10222 = Parser$Reply$error$(Parser$Error$combine$($10221, $10219)); - var $10220 = $10222; + var $10333 = self.value; + var $10334 = Parser$Reply$error$(Parser$Error$combine$($10333, $10331)); + var $10332 = $10334; break; case 'Maybe.none': - var $10223 = Parser$Reply$error$($10219); - var $10220 = $10223; + var $10335 = Parser$Reply$error$($10331); + var $10332 = $10335; break; }; - var $10187 = $10220; + var $10299 = $10332; break; case 'Parser.Reply.value': - var $10224 = self.pst; - var $10225 = self.val; - var self = $10224; + var $10336 = self.pst; + var $10337 = self.val; + var self = $10336; 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 _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10186, $10227), $10228, $10229, $10230, $10231); - var $10232 = Parser$Reply$value$(_reply$pst$43, Parser$Number$new$($10162, $10178, $10225)); - var $10226 = $10232; + var $10339 = self.err; + var $10340 = self.nam; + var $10341 = self.ini; + var $10342 = self.idx; + var $10343 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10298, $10339), $10340, $10341, $10342, $10343); + var $10344 = Parser$Reply$value$(_reply$pst$43, Parser$Number$new$($10274, $10290, $10337)); + var $10338 = $10344; break; }; - var $10187 = $10226; + var $10299 = $10338; break; }; - var $10185 = $10187; + var $10297 = $10299; break; }; - var $10179 = $10185; + var $10291 = $10297; break; }; - var $10171 = $10179; + var $10283 = $10291; break; }; - var $10169 = $10171; + var $10281 = $10283; break; }; - var $10163 = $10169; + var $10275 = $10281; break; }; - var $10122 = $10163; + var $10234 = $10275; break; }; - var $10120 = $10122; + var $10232 = $10234; break; }; - return $10120; + return $10232; }; const Parser$num = x0 => Parser$num$(x0); function Kind$Term$num$(_sign$1, _numb$2, _frac$3) { - var $10233 = ({ + var $10345 = ({ _: 'Kind.Term.num', 'sign': _sign$1, 'numb': _numb$2, 'frac': _frac$3 }); - return $10233; + return $10345; }; const Kind$Term$num = x0 => x1 => x2 => Kind$Term$num$(x0, x1, x2); @@ -31984,303 +32303,303 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10235 = self.err; + var $10347 = self.err; var _reply$7 = Parser$num$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10237 = self.err; - var self = $10235; + var $10349 = self.err; + var self = $10347; switch (self._) { case 'Maybe.some': - var $10239 = self.value; - var $10240 = Parser$Reply$error$(Parser$Error$combine$($10239, $10237)); - var $10238 = $10240; + var $10351 = self.value; + var $10352 = Parser$Reply$error$(Parser$Error$combine$($10351, $10349)); + var $10350 = $10352; break; case 'Maybe.none': - var $10241 = Parser$Reply$error$($10237); - var $10238 = $10241; + var $10353 = Parser$Reply$error$($10349); + var $10350 = $10353; break; }; - var $10236 = $10238; + var $10348 = $10350; break; case 'Parser.Reply.value': - var $10242 = self.pst; - var $10243 = self.val; - var self = $10242; + var $10354 = self.pst; + var $10355 = self.val; + var self = $10354; 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 _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10235, $10245), $10246, $10247, $10248, $10249); - var self = $10243; + var $10357 = self.err; + var $10358 = self.nam; + var $10359 = self.ini; + var $10360 = self.idx; + var $10361 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10347, $10357), $10358, $10359, $10360, $10361); + var self = $10355; switch (self._) { case 'Parser.Number.new': - var $10251 = self.sign; - var $10252 = self.numb; - var $10253 = self.frac; - var self = $10251; + var $10363 = self.sign; + var $10364 = self.numb; + var $10365 = self.frac; + var self = $10363; switch (self._) { case 'Maybe.none': - var self = $10253; + var self = $10365; switch (self._) { case 'Maybe.none': - var $10256 = (_pst$19 => { - var $10257 = Parser$Reply$value$(_pst$19, Kind$Term$nat$($10252)); - return $10257; + var $10368 = (_pst$19 => { + var $10369 = Parser$Reply$value$(_pst$19, Kind$Term$nat$($10364)); + return $10369; }); - var $10255 = $10256; + var $10367 = $10368; break; case 'Maybe.some': - var $10258 = (_pst$20 => { - var $10259 = Parser$Reply$value$(_pst$20, Kind$Term$num$($10251, $10252, $10253)); - return $10259; + var $10370 = (_pst$20 => { + var $10371 = Parser$Reply$value$(_pst$20, Kind$Term$num$($10363, $10364, $10365)); + return $10371; }); - var $10255 = $10258; + var $10367 = $10370; break; }; - var $10254 = $10255; + var $10366 = $10367; break; case 'Maybe.some': - var $10260 = (_pst$20 => { - var $10261 = Parser$Reply$value$(_pst$20, Kind$Term$num$($10251, $10252, $10253)); - return $10261; + var $10372 = (_pst$20 => { + var $10373 = Parser$Reply$value$(_pst$20, Kind$Term$num$($10363, $10364, $10365)); + return $10373; }); - var $10254 = $10260; + var $10366 = $10372; break; }; - var $10250 = $10254; + var $10362 = $10366; break; }; - var $10250 = $10250(_reply$pst$15); - var $10244 = $10250; + var $10362 = $10362(_reply$pst$15); + var $10356 = $10362; break; }; - var $10236 = $10244; + var $10348 = $10356; break; }; - var $10234 = $10236; + var $10346 = $10348; break; }; - return $10234; + return $10346; }; 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 $10263 = self.err; + var $10375 = self.err; var _reply$7 = Kind$Parser$name1$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10265 = self.err; - var self = $10263; + var $10377 = self.err; + var self = $10375; switch (self._) { case 'Maybe.some': - var $10267 = self.value; - var $10268 = Parser$Reply$error$(Parser$Error$combine$($10267, $10265)); - var $10266 = $10268; + var $10379 = self.value; + var $10380 = Parser$Reply$error$(Parser$Error$combine$($10379, $10377)); + var $10378 = $10380; break; case 'Maybe.none': - var $10269 = Parser$Reply$error$($10265); - var $10266 = $10269; + var $10381 = Parser$Reply$error$($10377); + var $10378 = $10381; break; }; - var $10264 = $10266; + var $10376 = $10378; break; case 'Parser.Reply.value': - var $10270 = self.pst; - var $10271 = self.val; - var self = $10270; + var $10382 = self.pst; + var $10383 = self.val; + var self = $10382; switch (self._) { case 'Parser.State.new': - var $10273 = self.err; - var $10274 = self.nam; - var $10275 = self.ini; - var $10276 = self.idx; - var $10277 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10263, $10273), $10274, $10275, $10276, $10277); - var self = ($10271 === "Type"); + var $10385 = self.err; + var $10386 = self.nam; + var $10387 = self.ini; + var $10388 = self.idx; + var $10389 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10375, $10385), $10386, $10387, $10388, $10389); + var self = ($10383 === "Type"); if (self) { - var $10279 = (_pst$16 => { - var $10280 = Parser$Reply$value$(_pst$16, Kind$Term$typ); - return $10280; + var $10391 = (_pst$16 => { + var $10392 = Parser$Reply$value$(_pst$16, Kind$Term$typ); + return $10392; }); - var $10278 = $10279; + var $10390 = $10391; } else { - var self = ($10271 === "true"); + var self = ($10383 === "true"); if (self) { - var $10282 = (_pst$16 => { - var $10283 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.true")); - return $10283; + var $10394 = (_pst$16 => { + var $10395 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.true")); + return $10395; }); - var $10281 = $10282; + var $10393 = $10394; } else { - var self = ($10271 === "false"); + var self = ($10383 === "false"); if (self) { - var $10285 = (_pst$16 => { - var $10286 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.false")); - return $10286; + var $10397 = (_pst$16 => { + var $10398 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.false")); + return $10398; }); - var $10284 = $10285; + var $10396 = $10397; } else { - var self = ($10271 === "unit"); + var self = ($10383 === "unit"); if (self) { - var $10288 = (_pst$16 => { - var $10289 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Unit.new")); - return $10289; + var $10400 = (_pst$16 => { + var $10401 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Unit.new")); + return $10401; }); - var $10287 = $10288; + var $10399 = $10400; } else { - var self = ($10271 === "none"); + var self = ($10383 === "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 $10291 = (_pst$18 => { - var $10292 = Parser$Reply$value$(_pst$18, _term$17); - return $10292; + var $10403 = (_pst$18 => { + var $10404 = Parser$Reply$value$(_pst$18, _term$17); + return $10404; }); - var $10290 = $10291; + var $10402 = $10403; } else { - var self = ($10271 === "refl"); + var self = ($10383 === "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 $10294 = (_pst$19 => { - var $10295 = Parser$Reply$value$(_pst$19, _term$18); - return $10295; + var $10406 = (_pst$19 => { + var $10407 = Parser$Reply$value$(_pst$19, _term$18); + return $10407; }); - var $10293 = $10294; + var $10405 = $10406; } else { - var $10296 = (_pst$16 => { - var $10297 = Parser$Reply$value$(_pst$16, Kind$Term$ref$($10271)); - return $10297; + var $10408 = (_pst$16 => { + var $10409 = Parser$Reply$value$(_pst$16, Kind$Term$ref$($10383)); + return $10409; }); - var $10293 = $10296; + var $10405 = $10408; }; - var $10290 = $10293; + var $10402 = $10405; }; - var $10287 = $10290; + var $10399 = $10402; }; - var $10284 = $10287; + var $10396 = $10399; }; - var $10281 = $10284; + var $10393 = $10396; }; - var $10278 = $10281; + var $10390 = $10393; }; - var $10278 = $10278(_reply$pst$15); - var $10272 = $10278; + var $10390 = $10390(_reply$pst$15); + var $10384 = $10390; break; }; - var $10264 = $10272; + var $10376 = $10384; break; }; - var $10262 = $10264; + var $10374 = $10376; break; }; - return $10262; + return $10374; })); function Kind$Parser$application$hole$(_term$1) { - var $10298 = Parser$choice(List$cons$((_pst$2 => { + var $10410 = Parser$choice(List$cons$((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10300 = self.err; + var $10412 = self.err; var _reply$8 = Kind$Parser$text_now$("()")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10302 = self.err; - var self = $10300; + var $10414 = self.err; + var self = $10412; switch (self._) { case 'Maybe.some': - var $10304 = self.value; - var $10305 = Parser$Reply$error$(Parser$Error$combine$($10304, $10302)); - var $10303 = $10305; + var $10416 = self.value; + var $10417 = Parser$Reply$error$(Parser$Error$combine$($10416, $10414)); + var $10415 = $10417; break; case 'Maybe.none': - var $10306 = Parser$Reply$error$($10302); - var $10303 = $10306; + var $10418 = Parser$Reply$error$($10414); + var $10415 = $10418; break; }; - var $10301 = $10303; + var $10413 = $10415; break; case 'Parser.Reply.value': - var $10307 = self.pst; - var self = $10307; + var $10419 = self.pst; + var self = $10419; 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$16 = Parser$State$new$(Parser$Error$maybe_combine$($10300, $10309), $10310, $10311, $10312, $10313); - var $10314 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); - var $10308 = $10314; + var $10421 = self.err; + var $10422 = self.nam; + var $10423 = self.ini; + var $10424 = self.idx; + var $10425 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10412, $10421), $10422, $10423, $10424, $10425); + var $10426 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); + var $10420 = $10426; break; }; - var $10301 = $10308; + var $10413 = $10420; break; }; - var $10299 = $10301; + var $10411 = $10413; break; }; - return $10299; + return $10411; }), List$cons$((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10316 = self.err; + var $10428 = self.err; var _reply$8 = Kind$Parser$text_now$("!")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10318 = self.err; - var self = $10316; + var $10430 = self.err; + var self = $10428; switch (self._) { case 'Maybe.some': - var $10320 = self.value; - var $10321 = Parser$Reply$error$(Parser$Error$combine$($10320, $10318)); - var $10319 = $10321; + var $10432 = self.value; + var $10433 = Parser$Reply$error$(Parser$Error$combine$($10432, $10430)); + var $10431 = $10433; break; case 'Maybe.none': - var $10322 = Parser$Reply$error$($10318); - var $10319 = $10322; + var $10434 = Parser$Reply$error$($10430); + var $10431 = $10434; break; }; - var $10317 = $10319; + var $10429 = $10431; break; case 'Parser.Reply.value': - var $10323 = self.pst; - var self = $10323; + var $10435 = self.pst; + var self = $10435; 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$16 = Parser$State$new$(Parser$Error$maybe_combine$($10316, $10325), $10326, $10327, $10328, $10329); - var $10330 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); - var $10324 = $10330; + var $10437 = self.err; + var $10438 = self.nam; + var $10439 = self.ini; + var $10440 = self.idx; + var $10441 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10428, $10437), $10438, $10439, $10440, $10441); + var $10442 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); + var $10436 = $10442; break; }; - var $10317 = $10324; + var $10429 = $10436; break; }; - var $10315 = $10317; + var $10427 = $10429; break; }; - return $10315; + return $10427; }), List$nil))); - return $10298; + return $10410; }; const Kind$Parser$application$hole = x0 => Kind$Parser$application$hole$(x0); const List$for = a0 => a1 => a2 => (list_for(a0)(a1)(a2)); @@ -32289,62 +32608,62 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10332 = self.err; + var $10444 = 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 $10334 = self.err; - var self = $10332; + var $10446 = self.err; + var self = $10444; switch (self._) { case 'Maybe.some': - var $10336 = self.value; - var $10337 = Parser$Reply$error$(Parser$Error$combine$($10336, $10334)); - var $10335 = $10337; + var $10448 = self.value; + var $10449 = Parser$Reply$error$(Parser$Error$combine$($10448, $10446)); + var $10447 = $10449; break; case 'Maybe.none': - var $10338 = Parser$Reply$error$($10334); - var $10335 = $10338; + var $10450 = Parser$Reply$error$($10446); + var $10447 = $10450; break; }; - var $10333 = $10335; + var $10445 = $10447; break; case 'Parser.Reply.value': - var $10339 = self.pst; - var $10340 = self.val; - var self = $10339; + var $10451 = self.pst; + var $10452 = self.val; + var self = $10451; switch (self._) { case 'Parser.State.new': - var $10342 = self.err; - var $10343 = self.nam; - var $10344 = self.ini; - var $10345 = self.idx; - var $10346 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10332, $10342), $10343, $10344, $10345, $10346); + var $10454 = self.err; + var $10455 = self.nam; + var $10456 = self.ini; + var $10457 = self.idx; + var $10458 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10444, $10454), $10455, $10456, $10457, $10458); var _expr$17 = (() => { - var $10349 = _func$1; - var $10350 = $10340; - let _f$18 = $10349; + var $10461 = _func$1; + var $10462 = $10452; + let _f$18 = $10461; let _x$17; - while ($10350._ === 'List.cons') { - _x$17 = $10350.head; - var $10349 = Kind$Term$app$(_f$18, _x$17); - _f$18 = $10349; - $10350 = $10350.tail; + while ($10462._ === 'List.cons') { + _x$17 = $10462.head; + var $10461 = Kind$Term$app$(_f$18, _x$17); + _f$18 = $10461; + $10462 = $10462.tail; } return _f$18; })(); - var $10347 = Parser$Reply$value$(_reply$pst$16, _expr$17); - var $10341 = $10347; + var $10459 = Parser$Reply$value$(_reply$pst$16, _expr$17); + var $10453 = $10459; break; }; - var $10333 = $10341; + var $10445 = $10453; break; }; - var $10331 = $10333; + var $10443 = $10445; break; }; - return $10331; + return $10443; }; const Kind$Parser$application = x0 => x1 => Kind$Parser$application$(x0, x1); @@ -32352,72 +32671,72 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10352 = self.err; + var $10464 = 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 $10354 = self.err; - var self = $10352; + var $10466 = self.err; + var self = $10464; switch (self._) { case 'Maybe.some': - var $10356 = self.value; - var $10357 = Parser$Reply$error$(Parser$Error$combine$($10356, $10354)); - var $10355 = $10357; + var $10468 = self.value; + var $10469 = Parser$Reply$error$(Parser$Error$combine$($10468, $10466)); + var $10467 = $10469; break; case 'Maybe.none': - var $10358 = Parser$Reply$error$($10354); - var $10355 = $10358; + var $10470 = Parser$Reply$error$($10466); + var $10467 = $10470; break; }; - var $10353 = $10355; + var $10465 = $10467; break; case 'Parser.Reply.value': - var $10359 = self.pst; - var $10360 = self.val; - var self = $10359; + var $10471 = self.pst; + var $10472 = self.val; + var self = $10471; switch (self._) { case 'Parser.State.new': - var $10362 = self.err; - var $10363 = self.nam; - var $10364 = self.ini; - var $10365 = self.idx; - var $10366 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10352, $10362), $10363, $10364, $10365, $10366); + var $10474 = self.err; + var $10475 = self.nam; + var $10476 = self.ini; + var $10477 = self.idx; + var $10478 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10464, $10474), $10475, $10476, $10477, $10478); var _expr$17 = (() => { - var $10369 = _func$1; - var $10370 = $10360; - let _f$18 = $10369; + var $10481 = _func$1; + var $10482 = $10472; + let _f$18 = $10481; let _x$17; - while ($10370._ === 'List.cons') { - _x$17 = $10370.head; - var $10369 = Kind$Term$app$(_f$18, _x$17); - _f$18 = $10369; - $10370 = $10370.tail; + while ($10482._ === 'List.cons') { + _x$17 = $10482.head; + var $10481 = Kind$Term$app$(_f$18, _x$17); + _f$18 = $10481; + $10482 = $10482.tail; } return _f$18; })(); - var $10367 = Parser$Reply$value$(_reply$pst$16, _expr$17); - var $10361 = $10367; + var $10479 = Parser$Reply$value$(_reply$pst$16, _expr$17); + var $10473 = $10479; break; }; - var $10353 = $10361; + var $10465 = $10473; break; }; - var $10351 = $10353; + var $10463 = $10465; break; }; - return $10351; + return $10463; }; const Kind$Parser$application$erased = x0 => x1 => Kind$Parser$application$erased$(x0, x1); function Kind$Term$get$(_expr$1, _fkey$2) { - var $10371 = ({ + var $10483 = ({ _: 'Kind.Term.get', 'expr': _expr$1, 'fkey': _fkey$2 }); - return $10371; + return $10483; }; const Kind$Term$get = x0 => x1 => Kind$Term$get$(x0, x1); @@ -32425,37 +32744,37 @@ module.exports = (function() { var self = _dirs$2; switch (self._) { case 'List.cons': - var $10373 = self.head; - var $10374 = self.tail; - var self = $10373; + var $10485 = self.head; + var $10486 = self.tail; + var self = $10485; switch (self._) { case 'Kind.Parser.lens.dir.record': - var $10376 = self.key; - var _term$6 = Kind$Term$get$(_expr$1, $10376); - var self = $10374; + var $10488 = self.key; + var _term$6 = Kind$Term$get$(_expr$1, $10488); + var self = $10486; switch (self._) { case 'List.nil': - var $10378 = _term$6; - var $10377 = $10378; + var $10490 = _term$6; + var $10489 = $10490; break; case 'List.cons': - var $10379 = Kind$Parser$lens$getter$(_term$6, $10374); - var $10377 = $10379; + var $10491 = Kind$Parser$lens$getter$(_term$6, $10486); + var $10489 = $10491; break; }; - var $10375 = $10377; + var $10487 = $10489; break; case 'Kind.Parser.lens.dir.list': - var $10380 = self.key; + var $10492 = self.key; var _term$6 = Kind$Term$ref$("List.get"); var _term$7 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - var _term$8 = Kind$Term$app$(_term$7, $10380); + var _term$8 = Kind$Term$app$(_term$7, $10492); var _term$9 = Kind$Term$app$(_term$8, _expr$1); - var self = $10374; + var self = $10486; switch (self._) { case 'List.nil': - var $10382 = _term$9; - var $10381 = $10382; + var $10494 = _term$9; + var $10493 = $10494; break; case 'List.cons': var _bind$12 = Kind$Term$ref$("Maybe.bind"); @@ -32463,26 +32782,26 @@ module.exports = (function() { var _bind$14 = Kind$Term$app$(_bind$13, Kind$Term$hol$(Bits$e)); var _bind$15 = Kind$Term$app$(_bind$14, _term$9); var _bind$16 = Kind$Term$app$(_bind$15, Kind$Term$lam$("x", (_x$16 => { - var $10384 = Kind$Parser$lens$getter$(_x$16, $10374); - return $10384; + var $10496 = Kind$Parser$lens$getter$(_x$16, $10486); + return $10496; }))); - var $10383 = _bind$16; - var $10381 = $10383; + var $10495 = _bind$16; + var $10493 = $10495; break; }; - var $10375 = $10381; + var $10487 = $10493; break; case 'Kind.Parser.lens.dir.map': - var $10385 = self.key; + var $10497 = self.key; var _term$6 = Kind$Term$ref$("Map.get"); var _term$7 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - var _term$8 = Kind$Term$app$(_term$7, $10385); + var _term$8 = Kind$Term$app$(_term$7, $10497); var _term$9 = Kind$Term$app$(_term$8, _expr$1); - var self = $10374; + var self = $10486; switch (self._) { case 'List.nil': - var $10387 = _term$9; - var $10386 = $10387; + var $10499 = _term$9; + var $10498 = $10499; break; case 'List.cons': var _bind$12 = Kind$Term$ref$("Maybe.bind"); @@ -32490,27 +32809,27 @@ module.exports = (function() { var _bind$14 = Kind$Term$app$(_bind$13, Kind$Term$hol$(Bits$e)); var _bind$15 = Kind$Term$app$(_bind$14, _term$9); var _bind$16 = Kind$Term$app$(_bind$15, Kind$Term$lam$("x", (_x$16 => { - var $10389 = Kind$Parser$lens$getter$(_x$16, $10374); - return $10389; + var $10501 = Kind$Parser$lens$getter$(_x$16, $10486); + return $10501; }))); - var $10388 = _bind$16; - var $10386 = $10388; + var $10500 = _bind$16; + var $10498 = $10500; break; }; - var $10375 = $10386; + var $10487 = $10498; break; }; - var $10372 = $10375; + var $10484 = $10487; break; case 'List.nil': var _term$3 = Kind$Term$ref$("Maybe.some"); var _term$4 = Kind$Term$app$(_term$3, Kind$Term$hol$(Bits$e)); var _term$5 = Kind$Term$app$(_term$4, _expr$1); - var $10390 = _term$5; - var $10372 = $10390; + var $10502 = _term$5; + var $10484 = $10502; break; }; - return $10372; + return $10484; }; const Kind$Parser$lens$getter = x0 => x1 => Kind$Parser$lens$getter$(x0, x1); @@ -32518,238 +32837,238 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10392 = self.err; + var $10504 = self.err; var _reply$8 = Parser$many1$(Kind$Parser$lens$path, _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10394 = self.err; - var self = $10392; + var $10506 = self.err; + var self = $10504; switch (self._) { case 'Maybe.some': - var $10396 = self.value; - var $10397 = Parser$Reply$error$(Parser$Error$combine$($10396, $10394)); - var $10395 = $10397; + var $10508 = self.value; + var $10509 = Parser$Reply$error$(Parser$Error$combine$($10508, $10506)); + var $10507 = $10509; break; case 'Maybe.none': - var $10398 = Parser$Reply$error$($10394); - var $10395 = $10398; + var $10510 = Parser$Reply$error$($10506); + var $10507 = $10510; break; }; - var $10393 = $10395; + var $10505 = $10507; break; case 'Parser.Reply.value': - var $10399 = self.pst; - var $10400 = self.val; - var self = $10399; + var $10511 = self.pst; + var $10512 = self.val; + var self = $10511; switch (self._) { case 'Parser.State.new': - var $10402 = self.err; - var $10403 = self.nam; - var $10404 = self.ini; - var $10405 = self.idx; - var $10406 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10392, $10402), $10403, $10404, $10405, $10406); - var $10407 = Parser$choice$(List$cons$((_pst$17 => { + var $10514 = self.err; + var $10515 = self.nam; + var $10516 = self.ini; + var $10517 = self.idx; + var $10518 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10504, $10514), $10515, $10516, $10517, $10518); + var $10519 = Parser$choice$(List$cons$((_pst$17 => { var self = _pst$17; switch (self._) { case 'Parser.State.new': - var $10409 = self.err; + var $10521 = self.err; var _reply$23 = Kind$Parser$text$("<~", _pst$17); var self = _reply$23; switch (self._) { case 'Parser.Reply.error': - var $10411 = self.err; - var self = $10409; + var $10523 = self.err; + var self = $10521; switch (self._) { case 'Maybe.some': - var $10413 = self.value; - var $10414 = Parser$Reply$error$(Parser$Error$combine$($10413, $10411)); - var $10412 = $10414; + var $10525 = self.value; + var $10526 = Parser$Reply$error$(Parser$Error$combine$($10525, $10523)); + var $10524 = $10526; break; case 'Maybe.none': - var $10415 = Parser$Reply$error$($10411); - var $10412 = $10415; + var $10527 = Parser$Reply$error$($10523); + var $10524 = $10527; break; }; - var $10410 = $10412; + var $10522 = $10524; break; case 'Parser.Reply.value': - var $10416 = self.pst; - var self = $10416; + var $10528 = self.pst; + var self = $10528; switch (self._) { case 'Parser.State.new': - var $10418 = self.err; - var $10419 = self.nam; - var $10420 = self.ini; - var $10421 = self.idx; - var $10422 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($10409, $10418), $10419, $10420, $10421, $10422); + var $10530 = self.err; + var $10531 = self.nam; + var $10532 = self.ini; + var $10533 = self.idx; + var $10534 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($10521, $10530), $10531, $10532, $10533, $10534); var self = _reply$pst$31; switch (self._) { case 'Parser.State.new': - var $10424 = self.err; + var $10536 = self.err; var _reply$37 = Kind$Parser$term(_reply$pst$31); var self = _reply$37; switch (self._) { case 'Parser.Reply.error': - var $10426 = self.err; - var self = $10424; + var $10538 = self.err; + var self = $10536; switch (self._) { case 'Maybe.some': - var $10428 = self.value; - var $10429 = Parser$Reply$error$(Parser$Error$combine$($10428, $10426)); - var $10427 = $10429; + var $10540 = self.value; + var $10541 = Parser$Reply$error$(Parser$Error$combine$($10540, $10538)); + var $10539 = $10541; break; case 'Maybe.none': - var $10430 = Parser$Reply$error$($10426); - var $10427 = $10430; + var $10542 = Parser$Reply$error$($10538); + var $10539 = $10542; break; }; - var $10425 = $10427; + var $10537 = $10539; break; case 'Parser.Reply.value': - var $10431 = self.pst; - var $10432 = self.val; - var self = $10431; + var $10543 = self.pst; + var $10544 = self.val; + var self = $10543; switch (self._) { case 'Parser.State.new': - var $10434 = self.err; - var $10435 = self.nam; - var $10436 = self.ini; - var $10437 = self.idx; - var $10438 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($10424, $10434), $10435, $10436, $10437, $10438); - var $10439 = Parser$Reply$value$(_reply$pst$45, Kind$Parser$lens$mutter$(_term$1, (_x$46 => { - var $10440 = Kind$Term$app$($10432, _x$46); - return $10440; - }), $10400, Bool$false)); - var $10433 = $10439; + var $10546 = self.err; + var $10547 = self.nam; + var $10548 = self.ini; + var $10549 = self.idx; + var $10550 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($10536, $10546), $10547, $10548, $10549, $10550); + var $10551 = Parser$Reply$value$(_reply$pst$45, Kind$Parser$lens$mutter$(_term$1, (_x$46 => { + var $10552 = Kind$Term$app$($10544, _x$46); + return $10552; + }), $10512, Bool$false)); + var $10545 = $10551; break; }; - var $10425 = $10433; + var $10537 = $10545; break; }; - var $10423 = $10425; + var $10535 = $10537; break; }; - var $10417 = $10423; + var $10529 = $10535; break; }; - var $10410 = $10417; + var $10522 = $10529; break; }; - var $10408 = $10410; + var $10520 = $10522; break; }; - return $10408; + return $10520; }), List$cons$((_pst$17 => { var self = _pst$17; switch (self._) { case 'Parser.State.new': - var $10442 = self.err; + var $10554 = self.err; var _reply$23 = Kind$Parser$text$("<-", _pst$17); var self = _reply$23; switch (self._) { case 'Parser.Reply.error': - var $10444 = self.err; - var self = $10442; + var $10556 = self.err; + var self = $10554; switch (self._) { case 'Maybe.some': - var $10446 = self.value; - var $10447 = Parser$Reply$error$(Parser$Error$combine$($10446, $10444)); - var $10445 = $10447; + var $10558 = self.value; + var $10559 = Parser$Reply$error$(Parser$Error$combine$($10558, $10556)); + var $10557 = $10559; break; case 'Maybe.none': - var $10448 = Parser$Reply$error$($10444); - var $10445 = $10448; + var $10560 = Parser$Reply$error$($10556); + var $10557 = $10560; break; }; - var $10443 = $10445; + var $10555 = $10557; break; case 'Parser.Reply.value': - var $10449 = self.pst; - var self = $10449; + var $10561 = self.pst; + var self = $10561; switch (self._) { case 'Parser.State.new': - var $10451 = self.err; - var $10452 = self.nam; - var $10453 = self.ini; - var $10454 = self.idx; - var $10455 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($10442, $10451), $10452, $10453, $10454, $10455); + var $10563 = self.err; + var $10564 = self.nam; + var $10565 = self.ini; + var $10566 = self.idx; + var $10567 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($10554, $10563), $10564, $10565, $10566, $10567); var self = _reply$pst$31; switch (self._) { case 'Parser.State.new': - var $10457 = self.err; + var $10569 = self.err; var _reply$37 = Kind$Parser$term(_reply$pst$31); var self = _reply$37; switch (self._) { case 'Parser.Reply.error': - var $10459 = self.err; - var self = $10457; + var $10571 = self.err; + var self = $10569; switch (self._) { case 'Maybe.some': - var $10461 = self.value; - var $10462 = Parser$Reply$error$(Parser$Error$combine$($10461, $10459)); - var $10460 = $10462; + var $10573 = self.value; + var $10574 = Parser$Reply$error$(Parser$Error$combine$($10573, $10571)); + var $10572 = $10574; break; case 'Maybe.none': - var $10463 = Parser$Reply$error$($10459); - var $10460 = $10463; + var $10575 = Parser$Reply$error$($10571); + var $10572 = $10575; break; }; - var $10458 = $10460; + var $10570 = $10572; break; case 'Parser.Reply.value': - var $10464 = self.pst; - var $10465 = self.val; - var self = $10464; + var $10576 = self.pst; + var $10577 = self.val; + var self = $10576; switch (self._) { case 'Parser.State.new': - var $10467 = self.err; - var $10468 = self.nam; - var $10469 = self.ini; - var $10470 = self.idx; - var $10471 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($10457, $10467), $10468, $10469, $10470, $10471); - var $10472 = Parser$Reply$value$(_reply$pst$45, Kind$Parser$lens$mutter$(_term$1, (_$46 => { - var $10473 = $10465; - return $10473; - }), $10400, Bool$true)); - var $10466 = $10472; + var $10579 = self.err; + var $10580 = self.nam; + var $10581 = self.ini; + var $10582 = self.idx; + var $10583 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($10569, $10579), $10580, $10581, $10582, $10583); + var $10584 = Parser$Reply$value$(_reply$pst$45, Kind$Parser$lens$mutter$(_term$1, (_$46 => { + var $10585 = $10577; + return $10585; + }), $10512, Bool$true)); + var $10578 = $10584; break; }; - var $10458 = $10466; + var $10570 = $10578; break; }; - var $10456 = $10458; + var $10568 = $10570; break; }; - var $10450 = $10456; + var $10562 = $10568; break; }; - var $10443 = $10450; + var $10555 = $10562; break; }; - var $10441 = $10443; + var $10553 = $10555; break; }; - return $10441; + return $10553; }), List$cons$((_pst$17 => { - var $10474 = Parser$Reply$value$(_pst$17, Kind$Parser$lens$getter$(_term$1, $10400)); - return $10474; + var $10586 = Parser$Reply$value$(_pst$17, Kind$Parser$lens$getter$(_term$1, $10512)); + return $10586; }), List$nil))), _reply$pst$16); - var $10401 = $10407; + var $10513 = $10519; break; }; - var $10393 = $10401; + var $10505 = $10513; break; }; - var $10391 = $10393; + var $10503 = $10505; break; }; - return $10391; + return $10503; }; const Kind$Parser$lens = x0 => x1 => Kind$Parser$lens$(x0, x1); @@ -32757,457 +33076,104 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10476 = self.err; + var $10588 = self.err; var _reply$8 = Kind$Parser$text$("->", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10478 = self.err; - var self = $10476; + var $10590 = self.err; + var self = $10588; switch (self._) { case 'Maybe.some': - var $10480 = self.value; - var $10481 = Parser$Reply$error$(Parser$Error$combine$($10480, $10478)); - var $10479 = $10481; + var $10592 = self.value; + var $10593 = Parser$Reply$error$(Parser$Error$combine$($10592, $10590)); + var $10591 = $10593; break; case 'Maybe.none': - var $10482 = Parser$Reply$error$($10478); - var $10479 = $10482; + var $10594 = Parser$Reply$error$($10590); + var $10591 = $10594; break; }; - var $10477 = $10479; + var $10589 = $10591; break; case 'Parser.Reply.value': - var $10483 = self.pst; - var self = $10483; + var $10595 = self.pst; + var self = $10595; switch (self._) { case 'Parser.State.new': - var $10485 = self.err; - var $10486 = self.nam; - var $10487 = self.ini; - var $10488 = self.idx; - var $10489 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10476, $10485), $10486, $10487, $10488, $10489); + var $10597 = self.err; + var $10598 = self.nam; + var $10599 = self.ini; + var $10600 = self.idx; + var $10601 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10588, $10597), $10598, $10599, $10600, $10601); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10491 = self.err; + var $10603 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10493 = self.err; - var self = $10491; + var $10605 = self.err; + var self = $10603; switch (self._) { case 'Maybe.some': - var $10495 = self.value; - var $10496 = Parser$Reply$error$(Parser$Error$combine$($10495, $10493)); - var $10494 = $10496; + var $10607 = self.value; + var $10608 = Parser$Reply$error$(Parser$Error$combine$($10607, $10605)); + var $10606 = $10608; break; case 'Maybe.none': - var $10497 = Parser$Reply$error$($10493); - var $10494 = $10497; + var $10609 = Parser$Reply$error$($10605); + var $10606 = $10609; break; }; - var $10492 = $10494; + var $10604 = $10606; break; case 'Parser.Reply.value': - var $10498 = self.pst; - var $10499 = self.val; - var self = $10498; + var $10610 = self.pst; + var $10611 = self.val; + var self = $10610; 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$30 = Parser$State$new$(Parser$Error$maybe_combine$($10491, $10501), $10502, $10503, $10504, $10505); - var $10506 = Parser$Reply$value$(_reply$pst$30, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$31 => _x$32 => { - var $10507 = $10499; - return $10507; + var $10613 = self.err; + var $10614 = self.nam; + var $10615 = self.ini; + var $10616 = self.idx; + var $10617 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10603, $10613), $10614, $10615, $10616, $10617); + var $10618 = Parser$Reply$value$(_reply$pst$30, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$31 => _x$32 => { + var $10619 = $10611; + return $10619; }))); - var $10500 = $10506; + var $10612 = $10618; break; }; - var $10492 = $10500; + var $10604 = $10612; break; }; - var $10490 = $10492; + var $10602 = $10604; break; }; - var $10484 = $10490; + var $10596 = $10602; break; }; - var $10477 = $10484; + var $10589 = $10596; break; }; - var $10475 = $10477; + var $10587 = $10589; break; }; - return $10475; + return $10587; }; 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 $10509 = self.err; - var _reply$8 = Kind$Parser$text$("++", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10511 = self.err; - var self = $10509; - switch (self._) { - case 'Maybe.some': - var $10513 = self.value; - var $10514 = Parser$Reply$error$(Parser$Error$combine$($10513, $10511)); - var $10512 = $10514; - break; - case 'Maybe.none': - var $10515 = Parser$Reply$error$($10511); - var $10512 = $10515; - break; - }; - var $10510 = $10512; - break; - case 'Parser.Reply.value': - var $10516 = self.pst; - var self = $10516; - switch (self._) { - case 'Parser.State.new': - var $10518 = self.err; - var $10519 = self.nam; - var $10520 = self.ini; - var $10521 = self.idx; - var $10522 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10509, $10518), $10519, $10520, $10521, $10522); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10524 = self.err; - var _reply$22 = Parser$text$(" ", _reply$pst$16); - var self = _reply$22; - 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 _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10524, $10533), $10534, $10535, $10536, $10537); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $10539 = self.err; - var _reply$36 = Kind$Parser$term(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $10541 = self.err; - var self = $10539; - switch (self._) { - case 'Maybe.some': - var $10543 = self.value; - var $10544 = Parser$Reply$error$(Parser$Error$combine$($10543, $10541)); - var $10542 = $10544; - break; - case 'Maybe.none': - var $10545 = Parser$Reply$error$($10541); - var $10542 = $10545; - break; - }; - var $10540 = $10542; - break; - case 'Parser.Reply.value': - var $10546 = self.pst; - var $10547 = self.val; - var self = $10546; - switch (self._) { - case 'Parser.State.new': - var $10549 = self.err; - var $10550 = self.nam; - var $10551 = self.ini; - var $10552 = self.idx; - var $10553 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10539, $10549), $10550, $10551, $10552, $10553); - 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, $10547); - var $10554 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $10548 = $10554; - break; - }; - var $10540 = $10548; - break; - }; - var $10538 = $10540; - break; - }; - var $10532 = $10538; - break; - }; - var $10525 = $10532; - break; - }; - var $10523 = $10525; - break; - }; - var $10517 = $10523; - break; - }; - var $10510 = $10517; - break; - }; - var $10508 = $10510; - break; - }; - return $10508; - }; - 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 $10556 = self.err; - var _reply$8 = Kind$Parser$text$("==", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10558 = self.err; - var self = $10556; - switch (self._) { - case 'Maybe.some': - var $10560 = self.value; - var $10561 = Parser$Reply$error$(Parser$Error$combine$($10560, $10558)); - var $10559 = $10561; - break; - case 'Maybe.none': - var $10562 = Parser$Reply$error$($10558); - var $10559 = $10562; - break; - }; - var $10557 = $10559; - break; - case 'Parser.Reply.value': - var $10563 = self.pst; - var self = $10563; - switch (self._) { - case 'Parser.State.new': - var $10565 = self.err; - var $10566 = self.nam; - var $10567 = self.ini; - var $10568 = self.idx; - var $10569 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10556, $10565), $10566, $10567, $10568, $10569); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10571 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $10573 = self.err; - var self = $10571; - switch (self._) { - case 'Maybe.some': - var $10575 = self.value; - var $10576 = Parser$Reply$error$(Parser$Error$combine$($10575, $10573)); - var $10574 = $10576; - break; - case 'Maybe.none': - var $10577 = Parser$Reply$error$($10573); - var $10574 = $10577; - break; - }; - var $10572 = $10574; - break; - case 'Parser.Reply.value': - var $10578 = self.pst; - var $10579 = self.val; - var self = $10578; - switch (self._) { - case 'Parser.State.new': - var $10581 = self.err; - var $10582 = self.nam; - var $10583 = self.ini; - var $10584 = self.idx; - var $10585 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10571, $10581), $10582, $10583, $10584, $10585); - 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, $10579); - var $10586 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $10580 = $10586; - break; - }; - var $10572 = $10580; - break; - }; - var $10570 = $10572; - break; - }; - var $10564 = $10570; - break; - }; - var $10557 = $10564; - break; - }; - var $10555 = $10557; - break; - }; - return $10555; - }; - const Kind$Parser$equality = x0 => x1 => Kind$Parser$equality$(x0, x1); - - function Kind$Term$ope$(_name$1, _arg0$2, _arg1$3) { - var $10587 = ({ - _: 'Kind.Term.ope', - 'name': _name$1, - 'arg0': _arg0$2, - 'arg1': _arg1$3 - }); - return $10587; - }; - 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 $10589 = self.err; - var _reply$10 = Kind$Parser$text$(_sym$1, _pst$4); - var self = _reply$10; - switch (self._) { - case 'Parser.Reply.error': - var $10591 = self.err; - var self = $10589; - switch (self._) { - case 'Maybe.some': - var $10593 = self.value; - var $10594 = Parser$Reply$error$(Parser$Error$combine$($10593, $10591)); - var $10592 = $10594; - break; - case 'Maybe.none': - var $10595 = Parser$Reply$error$($10591); - var $10592 = $10595; - break; - }; - var $10590 = $10592; - break; - case 'Parser.Reply.value': - var $10596 = self.pst; - var self = $10596; - switch (self._) { - case 'Parser.State.new': - var $10598 = self.err; - var $10599 = self.nam; - var $10600 = self.ini; - var $10601 = self.idx; - var $10602 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10589, $10598), $10599, $10600, $10601, $10602); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10604 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $10606 = self.err; - var self = $10604; - switch (self._) { - case 'Maybe.some': - var $10608 = self.value; - var $10609 = Parser$Reply$error$(Parser$Error$combine$($10608, $10606)); - var $10607 = $10609; - break; - case 'Maybe.none': - var $10610 = Parser$Reply$error$($10606); - var $10607 = $10610; - break; - }; - var $10605 = $10607; - break; - case 'Parser.Reply.value': - var $10611 = self.pst; - var $10612 = self.val; - var self = $10611; - switch (self._) { - case 'Parser.State.new': - var $10614 = self.err; - var $10615 = self.nam; - var $10616 = self.ini; - var $10617 = self.idx; - var $10618 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($10604, $10614), $10615, $10616, $10617, $10618); - var $10619 = Parser$Reply$value$(_reply$pst$32, Kind$Term$ope$(_sym$1, _val0$3, $10612)); - var $10613 = $10619; - break; - }; - var $10605 = $10613; - break; - }; - var $10603 = $10605; - break; - }; - var $10597 = $10603; - break; - }; - var $10590 = $10597; - break; - }; - var $10588 = $10590; - break; - }; - return $10588; - }; - 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 $10621 = self.err; - var _reply$8 = Kind$Parser$text$(".", _pst$2); + var _reply$8 = Kind$Parser$text$("++", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': @@ -33241,7 +33207,7 @@ module.exports = (function() { switch (self._) { case 'Parser.State.new': var $10636 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); + var _reply$22 = Parser$text$(" ", _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': @@ -33262,27 +33228,68 @@ module.exports = (function() { break; case 'Parser.Reply.value': var $10643 = self.pst; - var $10644 = self.val; var self = $10643; switch (self._) { case 'Parser.State.new': - var $10646 = self.err; - var $10647 = self.nam; - var $10648 = self.ini; - var $10649 = self.idx; - var $10650 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10636, $10646), $10647, $10648, $10649, $10650); - 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, $10644); - var $10651 = Parser$Reply$value$(_reply$pst$30, _term$36); - var $10645 = $10651; + var $10645 = self.err; + var $10646 = self.nam; + var $10647 = self.ini; + var $10648 = self.idx; + var $10649 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10636, $10645), $10646, $10647, $10648, $10649); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $10651 = self.err; + var _reply$36 = Kind$Parser$term(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $10653 = self.err; + var self = $10651; + switch (self._) { + case 'Maybe.some': + var $10655 = self.value; + var $10656 = Parser$Reply$error$(Parser$Error$combine$($10655, $10653)); + var $10654 = $10656; + break; + case 'Maybe.none': + var $10657 = Parser$Reply$error$($10653); + var $10654 = $10657; + break; + }; + var $10652 = $10654; + break; + case 'Parser.Reply.value': + var $10658 = self.pst; + var $10659 = self.val; + var self = $10658; + switch (self._) { + case 'Parser.State.new': + var $10661 = self.err; + var $10662 = self.nam; + var $10663 = self.ini; + var $10664 = self.idx; + var $10665 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10651, $10661), $10662, $10663, $10664, $10665); + 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, $10659); + var $10666 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $10660 = $10666; + break; + }; + var $10652 = $10660; + break; + }; + var $10650 = $10652; + break; + }; + var $10644 = $10650; break; }; - var $10637 = $10645; + var $10637 = $10644; break; }; var $10635 = $10637; @@ -33299,102 +33306,414 @@ module.exports = (function() { }; return $10620; }; + 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 $10668 = self.err; + var _reply$8 = Kind$Parser$text$("==", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10670 = self.err; + var self = $10668; + switch (self._) { + case 'Maybe.some': + var $10672 = self.value; + var $10673 = Parser$Reply$error$(Parser$Error$combine$($10672, $10670)); + var $10671 = $10673; + break; + case 'Maybe.none': + var $10674 = Parser$Reply$error$($10670); + var $10671 = $10674; + break; + }; + var $10669 = $10671; + break; + case 'Parser.Reply.value': + var $10675 = self.pst; + var self = $10675; + switch (self._) { + case 'Parser.State.new': + var $10677 = self.err; + var $10678 = self.nam; + var $10679 = self.ini; + var $10680 = self.idx; + var $10681 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10668, $10677), $10678, $10679, $10680, $10681); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10683 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10685 = self.err; + var self = $10683; + switch (self._) { + case 'Maybe.some': + var $10687 = self.value; + var $10688 = Parser$Reply$error$(Parser$Error$combine$($10687, $10685)); + var $10686 = $10688; + break; + case 'Maybe.none': + var $10689 = Parser$Reply$error$($10685); + var $10686 = $10689; + break; + }; + var $10684 = $10686; + break; + case 'Parser.Reply.value': + var $10690 = self.pst; + var $10691 = self.val; + var self = $10690; + switch (self._) { + case 'Parser.State.new': + var $10693 = self.err; + var $10694 = self.nam; + var $10695 = self.ini; + var $10696 = self.idx; + var $10697 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10683, $10693), $10694, $10695, $10696, $10697); + 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, $10691); + var $10698 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10692 = $10698; + break; + }; + var $10684 = $10692; + break; + }; + var $10682 = $10684; + break; + }; + var $10676 = $10682; + break; + }; + var $10669 = $10676; + break; + }; + var $10667 = $10669; + break; + }; + return $10667; + }; + const Kind$Parser$equality = x0 => x1 => Kind$Parser$equality$(x0, x1); + + function Kind$Term$ope$(_name$1, _arg0$2, _arg1$3) { + var $10699 = ({ + _: 'Kind.Term.ope', + 'name': _name$1, + 'arg0': _arg0$2, + 'arg1': _arg1$3 + }); + return $10699; + }; + 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 $10701 = self.err; + var _reply$10 = Kind$Parser$text$(_sym$1, _pst$4); + var self = _reply$10; + switch (self._) { + case 'Parser.Reply.error': + var $10703 = self.err; + var self = $10701; + switch (self._) { + case 'Maybe.some': + var $10705 = self.value; + var $10706 = Parser$Reply$error$(Parser$Error$combine$($10705, $10703)); + var $10704 = $10706; + break; + case 'Maybe.none': + var $10707 = Parser$Reply$error$($10703); + var $10704 = $10707; + break; + }; + var $10702 = $10704; + break; + case 'Parser.Reply.value': + var $10708 = self.pst; + var self = $10708; + switch (self._) { + case 'Parser.State.new': + var $10710 = self.err; + var $10711 = self.nam; + var $10712 = self.ini; + var $10713 = self.idx; + var $10714 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10701, $10710), $10711, $10712, $10713, $10714); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $10716 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $10718 = self.err; + var self = $10716; + switch (self._) { + case 'Maybe.some': + var $10720 = self.value; + var $10721 = Parser$Reply$error$(Parser$Error$combine$($10720, $10718)); + var $10719 = $10721; + break; + case 'Maybe.none': + var $10722 = Parser$Reply$error$($10718); + var $10719 = $10722; + break; + }; + var $10717 = $10719; + break; + case 'Parser.Reply.value': + var $10723 = self.pst; + var $10724 = self.val; + var self = $10723; + switch (self._) { + case 'Parser.State.new': + var $10726 = self.err; + var $10727 = self.nam; + var $10728 = self.ini; + var $10729 = self.idx; + var $10730 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($10716, $10726), $10727, $10728, $10729, $10730); + var $10731 = Parser$Reply$value$(_reply$pst$32, Kind$Term$ope$(_sym$1, _val0$3, $10724)); + var $10725 = $10731; + break; + }; + var $10717 = $10725; + break; + }; + var $10715 = $10717; + break; + }; + var $10709 = $10715; + break; + }; + var $10702 = $10709; + break; + }; + var $10700 = $10702; + break; + }; + return $10700; + }; + 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 $10733 = self.err; + var _reply$8 = Kind$Parser$text$(".", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10735 = self.err; + var self = $10733; + switch (self._) { + case 'Maybe.some': + var $10737 = self.value; + var $10738 = Parser$Reply$error$(Parser$Error$combine$($10737, $10735)); + var $10736 = $10738; + break; + case 'Maybe.none': + var $10739 = Parser$Reply$error$($10735); + var $10736 = $10739; + break; + }; + var $10734 = $10736; + break; + case 'Parser.Reply.value': + var $10740 = self.pst; + var self = $10740; + switch (self._) { + case 'Parser.State.new': + var $10742 = self.err; + var $10743 = self.nam; + var $10744 = self.ini; + var $10745 = self.idx; + var $10746 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10733, $10742), $10743, $10744, $10745, $10746); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10748 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10750 = self.err; + var self = $10748; + switch (self._) { + case 'Maybe.some': + var $10752 = self.value; + var $10753 = Parser$Reply$error$(Parser$Error$combine$($10752, $10750)); + var $10751 = $10753; + break; + case 'Maybe.none': + var $10754 = Parser$Reply$error$($10750); + var $10751 = $10754; + break; + }; + var $10749 = $10751; + break; + case 'Parser.Reply.value': + var $10755 = self.pst; + var $10756 = self.val; + var self = $10755; + switch (self._) { + case 'Parser.State.new': + var $10758 = self.err; + var $10759 = self.nam; + var $10760 = self.ini; + var $10761 = self.idx; + var $10762 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10748, $10758), $10759, $10760, $10761, $10762); + 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, $10756); + var $10763 = Parser$Reply$value$(_reply$pst$30, _term$36); + var $10757 = $10763; + break; + }; + var $10749 = $10757; + break; + }; + var $10747 = $10749; + break; + }; + var $10741 = $10747; + break; + }; + var $10734 = $10741; + break; + }; + var $10732 = $10734; + break; + }; + return $10732; + }; 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 $10653 = self.err; + var $10765 = self.err; var _reply$8 = Kind$Parser$text$("<>", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10655 = self.err; - var self = $10653; + var $10767 = self.err; + var self = $10765; switch (self._) { case 'Maybe.some': - var $10657 = self.value; - var $10658 = Parser$Reply$error$(Parser$Error$combine$($10657, $10655)); - var $10656 = $10658; + var $10769 = self.value; + var $10770 = Parser$Reply$error$(Parser$Error$combine$($10769, $10767)); + var $10768 = $10770; break; case 'Maybe.none': - var $10659 = Parser$Reply$error$($10655); - var $10656 = $10659; + var $10771 = Parser$Reply$error$($10767); + var $10768 = $10771; break; }; - var $10654 = $10656; + var $10766 = $10768; break; case 'Parser.Reply.value': - var $10660 = self.pst; - var self = $10660; + var $10772 = self.pst; + var self = $10772; switch (self._) { case 'Parser.State.new': - var $10662 = self.err; - var $10663 = self.nam; - var $10664 = self.ini; - var $10665 = self.idx; - var $10666 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10653, $10662), $10663, $10664, $10665, $10666); + var $10774 = self.err; + var $10775 = self.nam; + var $10776 = self.ini; + var $10777 = self.idx; + var $10778 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10765, $10774), $10775, $10776, $10777, $10778); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10668 = self.err; + var $10780 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10670 = self.err; - var self = $10668; + var $10782 = self.err; + var self = $10780; switch (self._) { case 'Maybe.some': - var $10672 = self.value; - var $10673 = Parser$Reply$error$(Parser$Error$combine$($10672, $10670)); - var $10671 = $10673; + var $10784 = self.value; + var $10785 = Parser$Reply$error$(Parser$Error$combine$($10784, $10782)); + var $10783 = $10785; break; case 'Maybe.none': - var $10674 = Parser$Reply$error$($10670); - var $10671 = $10674; + var $10786 = Parser$Reply$error$($10782); + var $10783 = $10786; break; }; - var $10669 = $10671; + var $10781 = $10783; break; case 'Parser.Reply.value': - var $10675 = self.pst; - var $10676 = self.val; - var self = $10675; + var $10787 = self.pst; + var $10788 = self.val; + var self = $10787; switch (self._) { case 'Parser.State.new': - var $10678 = self.err; - var $10679 = self.nam; - var $10680 = self.ini; - var $10681 = self.idx; - var $10682 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10668, $10678), $10679, $10680, $10681, $10682); + var $10790 = self.err; + var $10791 = self.nam; + var $10792 = self.ini; + var $10793 = self.idx; + var $10794 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10780, $10790), $10791, $10792, $10793, $10794); 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, $10676); - var $10683 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $10677 = $10683; + var _term$34 = Kind$Term$app$(_term$33, $10788); + var $10795 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10789 = $10795; break; }; - var $10669 = $10677; + var $10781 = $10789; break; }; - var $10667 = $10669; + var $10779 = $10781; break; }; - var $10661 = $10667; + var $10773 = $10779; break; }; - var $10654 = $10661; + var $10766 = $10773; break; }; - var $10652 = $10654; + var $10764 = $10766; break; }; - return $10652; + return $10764; }; const Kind$Parser$default = x0 => x1 => Kind$Parser$default$(x0, x1); @@ -33402,96 +33721,96 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10685 = self.err; + var $10797 = self.err; var _reply$8 = Kind$Parser$text$("&", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10687 = self.err; - var self = $10685; + var $10799 = self.err; + var self = $10797; switch (self._) { case 'Maybe.some': - var $10689 = self.value; - var $10690 = Parser$Reply$error$(Parser$Error$combine$($10689, $10687)); - var $10688 = $10690; + var $10801 = self.value; + var $10802 = Parser$Reply$error$(Parser$Error$combine$($10801, $10799)); + var $10800 = $10802; break; case 'Maybe.none': - var $10691 = Parser$Reply$error$($10687); - var $10688 = $10691; + var $10803 = Parser$Reply$error$($10799); + var $10800 = $10803; break; }; - var $10686 = $10688; + var $10798 = $10800; break; case 'Parser.Reply.value': - var $10692 = self.pst; - var self = $10692; + var $10804 = self.pst; + var self = $10804; switch (self._) { case 'Parser.State.new': - var $10694 = self.err; - var $10695 = self.nam; - var $10696 = self.ini; - var $10697 = self.idx; - var $10698 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10685, $10694), $10695, $10696, $10697, $10698); + var $10806 = self.err; + var $10807 = self.nam; + var $10808 = self.ini; + var $10809 = self.idx; + var $10810 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10797, $10806), $10807, $10808, $10809, $10810); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10700 = self.err; + var $10812 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10702 = self.err; - var self = $10700; + var $10814 = self.err; + var self = $10812; switch (self._) { case 'Maybe.some': - var $10704 = self.value; - var $10705 = Parser$Reply$error$(Parser$Error$combine$($10704, $10702)); - var $10703 = $10705; + var $10816 = self.value; + var $10817 = Parser$Reply$error$(Parser$Error$combine$($10816, $10814)); + var $10815 = $10817; break; case 'Maybe.none': - var $10706 = Parser$Reply$error$($10702); - var $10703 = $10706; + var $10818 = Parser$Reply$error$($10814); + var $10815 = $10818; break; }; - var $10701 = $10703; + var $10813 = $10815; break; case 'Parser.Reply.value': - var $10707 = self.pst; - var $10708 = self.val; - var self = $10707; + var $10819 = self.pst; + var $10820 = self.val; + var self = $10819; switch (self._) { case 'Parser.State.new': - var $10710 = self.err; - var $10711 = self.nam; - var $10712 = self.ini; - var $10713 = self.idx; - var $10714 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10700, $10710), $10711, $10712, $10713, $10714); + var $10822 = self.err; + var $10823 = self.nam; + var $10824 = self.ini; + var $10825 = self.idx; + var $10826 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10812, $10822), $10823, $10824, $10825, $10826); 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, $10708); - var $10715 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $10709 = $10715; + var _term$34 = Kind$Term$app$(_term$33, $10820); + var $10827 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10821 = $10827; break; }; - var $10701 = $10709; + var $10813 = $10821; break; }; - var $10699 = $10701; + var $10811 = $10813; break; }; - var $10693 = $10699; + var $10805 = $10811; break; }; - var $10686 = $10693; + var $10798 = $10805; break; }; - var $10684 = $10686; + var $10796 = $10798; break; }; - return $10684; + return $10796; }; const Kind$Parser$cons = x0 => x1 => Kind$Parser$cons$(x0, x1); @@ -33499,196 +33818,196 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10717 = self.err; + var $10829 = self.err; var _reply$8 = Kind$Parser$text$("|", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10719 = self.err; - var self = $10717; + var $10831 = self.err; + var self = $10829; switch (self._) { case 'Maybe.some': - var $10721 = self.value; - var $10722 = Parser$Reply$error$(Parser$Error$combine$($10721, $10719)); - var $10720 = $10722; + var $10833 = self.value; + var $10834 = Parser$Reply$error$(Parser$Error$combine$($10833, $10831)); + var $10832 = $10834; break; case 'Maybe.none': - var $10723 = Parser$Reply$error$($10719); - var $10720 = $10723; + var $10835 = Parser$Reply$error$($10831); + var $10832 = $10835; break; }; - var $10718 = $10720; + var $10830 = $10832; break; case 'Parser.Reply.value': - var $10724 = self.pst; - var self = $10724; + var $10836 = self.pst; + var self = $10836; switch (self._) { case 'Parser.State.new': - var $10726 = self.err; - var $10727 = self.nam; - var $10728 = self.ini; - var $10729 = self.idx; - var $10730 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10717, $10726), $10727, $10728, $10729, $10730); + var $10838 = self.err; + var $10839 = self.nam; + var $10840 = self.ini; + var $10841 = self.idx; + var $10842 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10829, $10838), $10839, $10840, $10841, $10842); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10732 = self.err; + var $10844 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10734 = self.err; - var self = $10732; + var $10846 = self.err; + var self = $10844; switch (self._) { case 'Maybe.some': - var $10736 = self.value; - var $10737 = Parser$Reply$error$(Parser$Error$combine$($10736, $10734)); - var $10735 = $10737; + var $10848 = self.value; + var $10849 = Parser$Reply$error$(Parser$Error$combine$($10848, $10846)); + var $10847 = $10849; break; case 'Maybe.none': - var $10738 = Parser$Reply$error$($10734); - var $10735 = $10738; + var $10850 = Parser$Reply$error$($10846); + var $10847 = $10850; break; }; - var $10733 = $10735; + var $10845 = $10847; break; case 'Parser.Reply.value': - var $10739 = self.pst; - var $10740 = self.val; - var self = $10739; + var $10851 = self.pst; + var $10852 = self.val; + var self = $10851; switch (self._) { case 'Parser.State.new': - var $10742 = self.err; - var $10743 = self.nam; - var $10744 = self.ini; - var $10745 = self.idx; - var $10746 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10732, $10742), $10743, $10744, $10745, $10746); + var $10854 = self.err; + var $10855 = self.nam; + var $10856 = self.ini; + var $10857 = self.idx; + var $10858 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10844, $10854), $10855, $10856, $10857, $10858); 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, $10740); - var $10747 = Parser$Reply$value$(_reply$pst$30, _term$33); - var $10741 = $10747; + var _term$33 = Kind$Term$app$(_term$32, $10852); + var $10859 = Parser$Reply$value$(_reply$pst$30, _term$33); + var $10853 = $10859; break; }; - var $10733 = $10741; + var $10845 = $10853; break; }; - var $10731 = $10733; + var $10843 = $10845; break; }; - var $10725 = $10731; + var $10837 = $10843; break; }; - var $10718 = $10725; + var $10830 = $10837; break; }; - var $10716 = $10718; + var $10828 = $10830; break; }; - return $10716; + return $10828; }; const Kind$Parser$string_concat = x0 => x1 => Kind$Parser$string_concat$(x0, x1); function Kind$Parser$sigma$(_val0$1) { - var $10748 = Kind$Parser$block("sigma")((_pst$2 => { + var $10860 = Kind$Parser$block("sigma")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10750 = self.err; + var $10862 = self.err; var _reply$8 = Kind$Parser$text$("~", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10752 = self.err; - var self = $10750; + var $10864 = self.err; + var self = $10862; switch (self._) { case 'Maybe.some': - var $10754 = self.value; - var $10755 = Parser$Reply$error$(Parser$Error$combine$($10754, $10752)); - var $10753 = $10755; + var $10866 = self.value; + var $10867 = Parser$Reply$error$(Parser$Error$combine$($10866, $10864)); + var $10865 = $10867; break; case 'Maybe.none': - var $10756 = Parser$Reply$error$($10752); - var $10753 = $10756; + var $10868 = Parser$Reply$error$($10864); + var $10865 = $10868; break; }; - var $10751 = $10753; + var $10863 = $10865; break; case 'Parser.Reply.value': - var $10757 = self.pst; - var self = $10757; + var $10869 = self.pst; + var self = $10869; switch (self._) { case 'Parser.State.new': - var $10759 = self.err; - var $10760 = self.nam; - var $10761 = self.ini; - var $10762 = self.idx; - var $10763 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10750, $10759), $10760, $10761, $10762, $10763); + var $10871 = self.err; + var $10872 = self.nam; + var $10873 = self.ini; + var $10874 = self.idx; + var $10875 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10862, $10871), $10872, $10873, $10874, $10875); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10765 = self.err; + var $10877 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10767 = self.err; - var self = $10765; + var $10879 = self.err; + var self = $10877; switch (self._) { case 'Maybe.some': - var $10769 = self.value; - var $10770 = Parser$Reply$error$(Parser$Error$combine$($10769, $10767)); - var $10768 = $10770; + var $10881 = self.value; + var $10882 = Parser$Reply$error$(Parser$Error$combine$($10881, $10879)); + var $10880 = $10882; break; case 'Maybe.none': - var $10771 = Parser$Reply$error$($10767); - var $10768 = $10771; + var $10883 = Parser$Reply$error$($10879); + var $10880 = $10883; break; }; - var $10766 = $10768; + var $10878 = $10880; break; case 'Parser.Reply.value': - var $10772 = self.pst; - var $10773 = self.val; - var self = $10772; + var $10884 = self.pst; + var $10885 = self.val; + var self = $10884; switch (self._) { case 'Parser.State.new': - var $10775 = self.err; - var $10776 = self.nam; - var $10777 = self.ini; - var $10778 = self.idx; - var $10779 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10765, $10775), $10776, $10777, $10778, $10779); + var $10887 = self.err; + var $10888 = self.nam; + var $10889 = self.ini; + var $10890 = self.idx; + var $10891 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10877, $10887), $10888, $10889, $10890, $10891); 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, $10773); - var $10780 = Parser$Reply$value$(_reply$pst$30, _term$35); - var $10774 = $10780; + var _term$35 = Kind$Term$app$(_term$34, $10885); + var $10892 = Parser$Reply$value$(_reply$pst$30, _term$35); + var $10886 = $10892; break; }; - var $10766 = $10774; + var $10878 = $10886; break; }; - var $10764 = $10766; + var $10876 = $10878; break; }; - var $10758 = $10764; + var $10870 = $10876; break; }; - var $10751 = $10758; + var $10863 = $10870; break; }; - var $10749 = $10751; + var $10861 = $10863; break; }; - return $10749; + return $10861; })); - return $10748; + return $10860; }; const Kind$Parser$sigma = x0 => Kind$Parser$sigma$(x0); @@ -33696,97 +34015,97 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10782 = self.err; + var $10894 = self.err; var _reply$8 = Kind$Parser$text$("!=", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10784 = self.err; - var self = $10782; + var $10896 = self.err; + var self = $10894; switch (self._) { case 'Maybe.some': - var $10786 = self.value; - var $10787 = Parser$Reply$error$(Parser$Error$combine$($10786, $10784)); - var $10785 = $10787; + var $10898 = self.value; + var $10899 = Parser$Reply$error$(Parser$Error$combine$($10898, $10896)); + var $10897 = $10899; break; case 'Maybe.none': - var $10788 = Parser$Reply$error$($10784); - var $10785 = $10788; + var $10900 = Parser$Reply$error$($10896); + var $10897 = $10900; break; }; - var $10783 = $10785; + var $10895 = $10897; break; case 'Parser.Reply.value': - var $10789 = self.pst; - var self = $10789; + var $10901 = self.pst; + var self = $10901; switch (self._) { case 'Parser.State.new': - var $10791 = self.err; - var $10792 = self.nam; - var $10793 = self.ini; - var $10794 = self.idx; - var $10795 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10782, $10791), $10792, $10793, $10794, $10795); + var $10903 = self.err; + var $10904 = self.nam; + var $10905 = self.ini; + var $10906 = self.idx; + var $10907 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10894, $10903), $10904, $10905, $10906, $10907); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10797 = self.err; + var $10909 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10799 = self.err; - var self = $10797; + var $10911 = self.err; + var self = $10909; switch (self._) { case 'Maybe.some': - var $10801 = self.value; - var $10802 = Parser$Reply$error$(Parser$Error$combine$($10801, $10799)); - var $10800 = $10802; + var $10913 = self.value; + var $10914 = Parser$Reply$error$(Parser$Error$combine$($10913, $10911)); + var $10912 = $10914; break; case 'Maybe.none': - var $10803 = Parser$Reply$error$($10799); - var $10800 = $10803; + var $10915 = Parser$Reply$error$($10911); + var $10912 = $10915; break; }; - var $10798 = $10800; + var $10910 = $10912; break; case 'Parser.Reply.value': - var $10804 = self.pst; - var $10805 = self.val; - var self = $10804; + var $10916 = self.pst; + var $10917 = self.val; + var self = $10916; switch (self._) { case 'Parser.State.new': - var $10807 = self.err; - var $10808 = self.nam; - var $10809 = self.ini; - var $10810 = self.idx; - var $10811 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10797, $10807), $10808, $10809, $10810, $10811); + var $10919 = self.err; + var $10920 = self.nam; + var $10921 = self.ini; + var $10922 = self.idx; + var $10923 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10909, $10919), $10920, $10921, $10922, $10923); 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, $10805); + var _term$34 = Kind$Term$app$(_term$33, $10917); var _term$35 = Kind$Term$app$(Kind$Term$ref$("Not"), _term$34); - var $10812 = Parser$Reply$value$(_reply$pst$30, _term$35); - var $10806 = $10812; + var $10924 = Parser$Reply$value$(_reply$pst$30, _term$35); + var $10918 = $10924; break; }; - var $10798 = $10806; + var $10910 = $10918; break; }; - var $10796 = $10798; + var $10908 = $10910; break; }; - var $10790 = $10796; + var $10902 = $10908; break; }; - var $10783 = $10790; + var $10895 = $10902; break; }; - var $10781 = $10783; + var $10893 = $10895; break; }; - return $10781; + return $10893; }; const Kind$Parser$inequality = x0 => x1 => Kind$Parser$inequality$(x0, x1); @@ -33794,319 +34113,319 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10814 = self.err; + var $10926 = self.err; var _reply$8 = Kind$Parser$text$("::", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10816 = self.err; - var self = $10814; + var $10928 = self.err; + var self = $10926; switch (self._) { case 'Maybe.some': - var $10818 = self.value; - var $10819 = Parser$Reply$error$(Parser$Error$combine$($10818, $10816)); - var $10817 = $10819; + var $10930 = self.value; + var $10931 = Parser$Reply$error$(Parser$Error$combine$($10930, $10928)); + var $10929 = $10931; break; case 'Maybe.none': - var $10820 = Parser$Reply$error$($10816); - var $10817 = $10820; + var $10932 = Parser$Reply$error$($10928); + var $10929 = $10932; break; }; - var $10815 = $10817; + var $10927 = $10929; break; case 'Parser.Reply.value': - var $10821 = self.pst; - var self = $10821; + var $10933 = self.pst; + var self = $10933; switch (self._) { case 'Parser.State.new': - var $10823 = self.err; - var $10824 = self.nam; - var $10825 = self.ini; - var $10826 = self.idx; - var $10827 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10814, $10823), $10824, $10825, $10826, $10827); + var $10935 = self.err; + var $10936 = self.nam; + var $10937 = self.ini; + var $10938 = self.idx; + var $10939 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10926, $10935), $10936, $10937, $10938, $10939); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10829 = self.err; + var $10941 = self.err; var _reply$22 = Kind$Parser$text$("rewrite", _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10831 = self.err; - var self = $10829; + var $10943 = self.err; + var self = $10941; switch (self._) { case 'Maybe.some': - var $10833 = self.value; - var $10834 = Parser$Reply$error$(Parser$Error$combine$($10833, $10831)); - var $10832 = $10834; + var $10945 = self.value; + var $10946 = Parser$Reply$error$(Parser$Error$combine$($10945, $10943)); + var $10944 = $10946; break; case 'Maybe.none': - var $10835 = Parser$Reply$error$($10831); - var $10832 = $10835; + var $10947 = Parser$Reply$error$($10943); + var $10944 = $10947; break; }; - var $10830 = $10832; + var $10942 = $10944; break; case 'Parser.Reply.value': - var $10836 = self.pst; - var self = $10836; + var $10948 = self.pst; + var self = $10948; 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$30 = Parser$State$new$(Parser$Error$maybe_combine$($10829, $10838), $10839, $10840, $10841, $10842); + var $10950 = self.err; + var $10951 = self.nam; + var $10952 = self.ini; + var $10953 = self.idx; + var $10954 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10941, $10950), $10951, $10952, $10953, $10954); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $10844 = self.err; + var $10956 = self.err; var _reply$36 = Kind$Parser$name1$(_reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $10846 = self.err; - var self = $10844; + var $10958 = self.err; + var self = $10956; switch (self._) { case 'Maybe.some': - var $10848 = self.value; - var $10849 = Parser$Reply$error$(Parser$Error$combine$($10848, $10846)); - var $10847 = $10849; + var $10960 = self.value; + var $10961 = Parser$Reply$error$(Parser$Error$combine$($10960, $10958)); + var $10959 = $10961; break; case 'Maybe.none': - var $10850 = Parser$Reply$error$($10846); - var $10847 = $10850; + var $10962 = Parser$Reply$error$($10958); + var $10959 = $10962; break; }; - var $10845 = $10847; + var $10957 = $10959; break; case 'Parser.Reply.value': - var $10851 = self.pst; - var $10852 = self.val; - var self = $10851; + var $10963 = self.pst; + var $10964 = self.val; + var self = $10963; 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$44 = Parser$State$new$(Parser$Error$maybe_combine$($10844, $10854), $10855, $10856, $10857, $10858); + var $10966 = self.err; + var $10967 = self.nam; + var $10968 = self.ini; + var $10969 = self.idx; + var $10970 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10956, $10966), $10967, $10968, $10969, $10970); var self = _reply$pst$44; switch (self._) { case 'Parser.State.new': - var $10860 = self.err; + var $10972 = self.err; var _reply$50 = Kind$Parser$text$("in", _reply$pst$44); var self = _reply$50; switch (self._) { case 'Parser.Reply.error': - var $10862 = self.err; - var self = $10860; + var $10974 = self.err; + var self = $10972; switch (self._) { case 'Maybe.some': - var $10864 = self.value; - var $10865 = Parser$Reply$error$(Parser$Error$combine$($10864, $10862)); - var $10863 = $10865; + var $10976 = self.value; + var $10977 = Parser$Reply$error$(Parser$Error$combine$($10976, $10974)); + var $10975 = $10977; break; case 'Maybe.none': - var $10866 = Parser$Reply$error$($10862); - var $10863 = $10866; + var $10978 = Parser$Reply$error$($10974); + var $10975 = $10978; break; }; - var $10861 = $10863; + var $10973 = $10975; break; case 'Parser.Reply.value': - var $10867 = self.pst; - var self = $10867; + var $10979 = self.pst; + var self = $10979; switch (self._) { case 'Parser.State.new': - var $10869 = self.err; - var $10870 = self.nam; - var $10871 = self.ini; - var $10872 = self.idx; - var $10873 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($10860, $10869), $10870, $10871, $10872, $10873); + var $10981 = self.err; + var $10982 = self.nam; + var $10983 = self.ini; + var $10984 = self.idx; + var $10985 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($10972, $10981), $10982, $10983, $10984, $10985); var self = _reply$pst$58; switch (self._) { case 'Parser.State.new': - var $10875 = self.err; + var $10987 = self.err; var _reply$64 = Kind$Parser$term(_reply$pst$58); var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $10877 = self.err; - var self = $10875; + var $10989 = self.err; + var self = $10987; switch (self._) { case 'Maybe.some': - var $10879 = self.value; - var $10880 = Parser$Reply$error$(Parser$Error$combine$($10879, $10877)); - var $10878 = $10880; + var $10991 = self.value; + var $10992 = Parser$Reply$error$(Parser$Error$combine$($10991, $10989)); + var $10990 = $10992; break; case 'Maybe.none': - var $10881 = Parser$Reply$error$($10877); - var $10878 = $10881; + var $10993 = Parser$Reply$error$($10989); + var $10990 = $10993; break; }; - var $10876 = $10878; + var $10988 = $10990; break; case 'Parser.Reply.value': - var $10882 = self.pst; - var $10883 = self.val; - var self = $10882; + var $10994 = self.pst; + var $10995 = self.val; + var self = $10994; 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$72 = Parser$State$new$(Parser$Error$maybe_combine$($10875, $10885), $10886, $10887, $10888, $10889); + var $10997 = self.err; + var $10998 = self.nam; + var $10999 = self.ini; + var $11000 = self.idx; + var $11001 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($10987, $10997), $10998, $10999, $11000, $11001); var self = _reply$pst$72; switch (self._) { case 'Parser.State.new': - var $10891 = self.err; + var $11003 = self.err; var _reply$78 = Kind$Parser$text$("with", _reply$pst$72); var self = _reply$78; switch (self._) { case 'Parser.Reply.error': - var $10893 = self.err; - var self = $10891; + var $11005 = self.err; + var self = $11003; switch (self._) { case 'Maybe.some': - var $10895 = self.value; - var $10896 = Parser$Reply$error$(Parser$Error$combine$($10895, $10893)); - var $10894 = $10896; + var $11007 = self.value; + var $11008 = Parser$Reply$error$(Parser$Error$combine$($11007, $11005)); + var $11006 = $11008; break; case 'Maybe.none': - var $10897 = Parser$Reply$error$($10893); - var $10894 = $10897; + var $11009 = Parser$Reply$error$($11005); + var $11006 = $11009; break; }; - var $10892 = $10894; + var $11004 = $11006; break; case 'Parser.Reply.value': - var $10898 = self.pst; - var self = $10898; + var $11010 = self.pst; + var self = $11010; switch (self._) { case 'Parser.State.new': - var $10900 = self.err; - var $10901 = self.nam; - var $10902 = self.ini; - var $10903 = self.idx; - var $10904 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($10891, $10900), $10901, $10902, $10903, $10904); + var $11012 = self.err; + var $11013 = self.nam; + var $11014 = self.ini; + var $11015 = self.idx; + var $11016 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($11003, $11012), $11013, $11014, $11015, $11016); var self = _reply$pst$86; switch (self._) { case 'Parser.State.new': - var $10906 = self.err; + var $11018 = self.err; var _reply$92 = Kind$Parser$term(_reply$pst$86); var self = _reply$92; switch (self._) { case 'Parser.Reply.error': - var $10908 = self.err; - var self = $10906; + var $11020 = self.err; + var self = $11018; switch (self._) { case 'Maybe.some': - var $10910 = self.value; - var $10911 = Parser$Reply$error$(Parser$Error$combine$($10910, $10908)); - var $10909 = $10911; + var $11022 = self.value; + var $11023 = Parser$Reply$error$(Parser$Error$combine$($11022, $11020)); + var $11021 = $11023; break; case 'Maybe.none': - var $10912 = Parser$Reply$error$($10908); - var $10909 = $10912; + var $11024 = Parser$Reply$error$($11020); + var $11021 = $11024; break; }; - var $10907 = $10909; + var $11019 = $11021; break; case 'Parser.Reply.value': - var $10913 = self.pst; - var $10914 = self.val; - var self = $10913; + var $11025 = self.pst; + var $11026 = self.val; + var self = $11025; switch (self._) { case 'Parser.State.new': - var $10916 = self.err; - var $10917 = self.nam; - var $10918 = self.ini; - var $10919 = self.idx; - var $10920 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($10906, $10916), $10917, $10918, $10919, $10920); + var $11028 = self.err; + var $11029 = self.nam; + var $11030 = self.ini; + var $11031 = self.idx; + var $11032 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($11018, $11028), $11029, $11030, $11031, $11032); 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, $10914); - var _term$106 = Kind$Term$app$(_term$105, Kind$Term$lam$($10852, (_x$106 => { - var $10922 = $10883; - return $10922; + var _term$105 = Kind$Term$app$(_term$104, $11026); + var _term$106 = Kind$Term$app$(_term$105, Kind$Term$lam$($10964, (_x$106 => { + var $11034 = $10995; + return $11034; }))); var _term$107 = Kind$Term$app$(_term$106, _subt$1); - var $10921 = Parser$Reply$value$(_reply$pst$100, _term$107); - var $10915 = $10921; + var $11033 = Parser$Reply$value$(_reply$pst$100, _term$107); + var $11027 = $11033; break; }; - var $10907 = $10915; + var $11019 = $11027; break; }; - var $10905 = $10907; + var $11017 = $11019; break; }; - var $10899 = $10905; + var $11011 = $11017; break; }; - var $10892 = $10899; + var $11004 = $11011; break; }; - var $10890 = $10892; + var $11002 = $11004; break; }; - var $10884 = $10890; + var $10996 = $11002; break; }; - var $10876 = $10884; + var $10988 = $10996; break; }; - var $10874 = $10876; + var $10986 = $10988; break; }; - var $10868 = $10874; + var $10980 = $10986; break; }; - var $10861 = $10868; + var $10973 = $10980; break; }; - var $10859 = $10861; + var $10971 = $10973; break; }; - var $10853 = $10859; + var $10965 = $10971; break; }; - var $10845 = $10853; + var $10957 = $10965; break; }; - var $10843 = $10845; + var $10955 = $10957; break; }; - var $10837 = $10843; + var $10949 = $10955; break; }; - var $10830 = $10837; + var $10942 = $10949; break; }; - var $10828 = $10830; + var $10940 = $10942; break; }; - var $10822 = $10828; + var $10934 = $10940; break; }; - var $10815 = $10822; + var $10927 = $10934; break; }; - var $10813 = $10815; + var $10925 = $10927; break; }; - return $10813; + return $10925; }; const Kind$Parser$rewrite = x0 => x1 => Kind$Parser$rewrite$(x0, x1); @@ -34114,92 +34433,92 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10924 = self.err; + var $11036 = self.err; var _reply$8 = Kind$Parser$text$("::", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10926 = self.err; - var self = $10924; + var $11038 = self.err; + var self = $11036; switch (self._) { case 'Maybe.some': - var $10928 = self.value; - var $10929 = Parser$Reply$error$(Parser$Error$combine$($10928, $10926)); - var $10927 = $10929; + var $11040 = self.value; + var $11041 = Parser$Reply$error$(Parser$Error$combine$($11040, $11038)); + var $11039 = $11041; break; case 'Maybe.none': - var $10930 = Parser$Reply$error$($10926); - var $10927 = $10930; + var $11042 = Parser$Reply$error$($11038); + var $11039 = $11042; break; }; - var $10925 = $10927; + var $11037 = $11039; break; case 'Parser.Reply.value': - var $10931 = self.pst; - var self = $10931; + var $11043 = self.pst; + var self = $11043; 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$16 = Parser$State$new$(Parser$Error$maybe_combine$($10924, $10933), $10934, $10935, $10936, $10937); + var $11045 = self.err; + var $11046 = self.nam; + var $11047 = self.ini; + var $11048 = self.idx; + var $11049 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($11036, $11045), $11046, $11047, $11048, $11049); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $10939 = self.err; + var $11051 = self.err; var _reply$22 = Kind$Parser$term(_reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $10941 = self.err; - var self = $10939; + var $11053 = self.err; + var self = $11051; switch (self._) { case 'Maybe.some': - var $10943 = self.value; - var $10944 = Parser$Reply$error$(Parser$Error$combine$($10943, $10941)); - var $10942 = $10944; + var $11055 = self.value; + var $11056 = Parser$Reply$error$(Parser$Error$combine$($11055, $11053)); + var $11054 = $11056; break; case 'Maybe.none': - var $10945 = Parser$Reply$error$($10941); - var $10942 = $10945; + var $11057 = Parser$Reply$error$($11053); + var $11054 = $11057; break; }; - var $10940 = $10942; + var $11052 = $11054; break; case 'Parser.Reply.value': - var $10946 = self.pst; - var $10947 = self.val; - var self = $10946; + var $11058 = self.pst; + var $11059 = self.val; + var self = $11058; 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$30 = Parser$State$new$(Parser$Error$maybe_combine$($10939, $10949), $10950, $10951, $10952, $10953); - var $10954 = Parser$Reply$value$(_reply$pst$30, Kind$Term$ann$(Bool$false, _term$1, $10947)); - var $10948 = $10954; + var $11061 = self.err; + var $11062 = self.nam; + var $11063 = self.ini; + var $11064 = self.idx; + var $11065 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($11051, $11061), $11062, $11063, $11064, $11065); + var $11066 = Parser$Reply$value$(_reply$pst$30, Kind$Term$ann$(Bool$false, _term$1, $11059)); + var $11060 = $11066; break; }; - var $10940 = $10948; + var $11052 = $11060; break; }; - var $10938 = $10940; + var $11050 = $11052; break; }; - var $10932 = $10938; + var $11044 = $11050; break; }; - var $10925 = $10932; + var $11037 = $11044; break; }; - var $10923 = $10925; + var $11035 = $11037; break; }; - return $10923; + return $11035; }; const Kind$Parser$annotation = x0 => x1 => Kind$Parser$annotation$(x0, x1); @@ -34216,35 +34535,35 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10955 = self.err; - var $10956 = self.nam; - var $10957 = self.ini; - var $10958 = self.idx; - var $10959 = self.str; + var $11067 = self.err; + var $11068 = self.nam; + var $11069 = self.ini; + var $11070 = self.idx; + var $11071 = self.str; var _suffix_parser$8 = Parser$choice(List$cons$(Kind$Parser$application$hole$(_term$1), List$cons$(Kind$Parser$application(_term$1), List$cons$(Kind$Parser$application$erased(_term$1), List$cons$(Kind$Parser$lens(_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$nil)))))))))))))))))))))))))))); var self = _suffix_parser$8(_pst$2); switch (self._) { case 'Parser.Reply.error': - var $10961 = self.err; - var self = $10961; + var $11073 = self.err; + var self = $11073; switch (self._) { case 'Parser.Error.new': - var _err$14 = Parser$Error$maybe_combine$($10955, Maybe$some$($10961)); - var _pst$15 = Parser$State$new$(_err$14, $10956, $10957, $10958, $10959); - var $10963 = Parser$Reply$value$(_pst$15, _term$1); - var $10962 = $10963; + var _err$14 = Parser$Error$maybe_combine$($11067, Maybe$some$($11073)); + var _pst$15 = Parser$State$new$(_err$14, $11068, $11069, $11070, $11071); + var $11075 = Parser$Reply$value$(_pst$15, _term$1); + var $11074 = $11075; break; }; - var $10960 = $10962; + var $11072 = $11074; break; case 'Parser.Reply.value': - var $10964 = self.pst; - var $10965 = self.val; - var $10966 = Kind$Parser$term$suffix$($10965, $10964); - var $10960 = $10966; + var $11076 = self.pst; + var $11077 = self.val; + var $11078 = Kind$Parser$term$suffix$($11077, $11076); + var $11072 = $11078; break; }; - return $10960; + return $11072; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -34256,449 +34575,449 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10968 = self.err; + var $11080 = 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 $10970 = Kind$Parser$term; - return $10970; + var $11082 = Kind$Parser$term; + return $11082; })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$7 => { - var $10971 = Kind$Parser$term; - return $10971; + var $11083 = Kind$Parser$term; + return $11083; })), List$cons$(Kind$Parser$letforrange$i32$((_x$7 => { - var $10972 = Kind$Parser$term; - return $10972; + var $11084 = Kind$Parser$term; + return $11084; })), List$cons$(Kind$Parser$letforrange$i32$with$((_x$7 => { - var $10973 = Kind$Parser$term; - return $10973; + var $11085 = Kind$Parser$term; + return $11085; })), List$cons$(Kind$Parser$letforrange$nat$((_x$7 => { - var $10974 = Kind$Parser$term; - return $10974; + var $11086 = Kind$Parser$term; + return $11086; })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$7 => { - var $10975 = Kind$Parser$term; - return $10975; + var $11087 = Kind$Parser$term; + return $11087; })), List$cons$(Kind$Parser$letforin$((_x$7 => { - var $10976 = Kind$Parser$term; - return $10976; + var $11088 = Kind$Parser$term; + return $11088; })), List$cons$(Kind$Parser$letforin$with$((_x$7 => { - var $10977 = Kind$Parser$term; - return $10977; + var $11089 = Kind$Parser$term; + return $11089; })), List$cons$(Kind$Parser$letforinmap$((_x$7 => { - var $10978 = Kind$Parser$term; - return $10978; + var $11090 = Kind$Parser$term; + return $11090; })), List$cons$(Kind$Parser$letforinmap$with$((_x$7 => { - var $10979 = Kind$Parser$term; - return $10979; + var $11091 = Kind$Parser$term; + return $11091; })), List$cons$(Kind$Parser$letwhile$((_x$7 => { - var $10980 = Kind$Parser$term; - return $10980; + var $11092 = Kind$Parser$term; + return $11092; })), List$cons$(Kind$Parser$letwhile$with$((_x$7 => { - var $10981 = Kind$Parser$term; - return $10981; + var $11093 = Kind$Parser$term; + return $11093; })), List$cons$(Kind$Parser$getforin$((_x$7 => { - var $10982 = Kind$Parser$term; - return $10982; + var $11094 = Kind$Parser$term; + return $11094; })), List$cons$(Kind$Parser$getforin$with$((_x$7 => { - var $10983 = Kind$Parser$term; - return $10983; + var $11095 = Kind$Parser$term; + return $11095; })), List$cons$(Kind$Parser$let$abort$((_x$7 => { - var $10984 = Kind$Parser$term; - return $10984; + var $11096 = Kind$Parser$term; + return $11096; })), List$cons$(Kind$Parser$let$((_x$7 => { - var $10985 = Kind$Parser$term; - return $10985; + var $11097 = Kind$Parser$term; + return $11097; })), List$cons$(Kind$Parser$getwhile$((_x$7 => { - var $10986 = Kind$Parser$term; - return $10986; + var $11098 = Kind$Parser$term; + return $11098; })), List$cons$(Kind$Parser$getwhile$with((_x$7 => { - var $10987 = Kind$Parser$term; - return $10987; + var $11099 = Kind$Parser$term; + return $11099; })), List$cons$(Kind$Parser$get$((_x$7 => { - var $10988 = Kind$Parser$term; - return $10988; + var $11100 = Kind$Parser$term; + return $11100; })), List$cons$(Kind$Parser$def$((_x$7 => { - var $10989 = Kind$Parser$term; - return $10989; + var $11101 = Kind$Parser$term; + return $11101; })), List$cons$(Kind$Parser$lens$let((_x$7 => { - var $10990 = Kind$Parser$term; - return $10990; + var $11102 = Kind$Parser$term; + return $11102; })), List$cons$(Kind$Parser$use$abort$((_x$7 => { - var $10991 = Kind$Parser$term; - return $10991; + var $11103 = Kind$Parser$term; + return $11103; })), List$cons$(Kind$Parser$use$((_x$7 => { - var $10992 = Kind$Parser$term; - return $10992; - })), List$cons$(Kind$Parser$implicit, 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$mapped, List$cons$(Kind$Parser$comprehension_range, List$cons$(Kind$Parser$list, List$cons$(Kind$Parser$map, List$cons$(Kind$Parser$log$((_x$7 => { - var $10993 = Kind$Parser$term; - return $10993; + var $11104 = Kind$Parser$term; + return $11104; + })), List$cons$(Kind$Parser$implicit, List$cons$(Kind$Parser$goal_rewrite, List$cons$(Kind$Parser$goal_replace, 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$mapped, List$cons$(Kind$Parser$comprehension_range, List$cons$(Kind$Parser$list, List$cons$(Kind$Parser$map, List$cons$(Kind$Parser$log$((_x$7 => { + var $11105 = Kind$Parser$term; + return $11105; })), List$cons$(Kind$Parser$do, List$cons$(Kind$Parser$case, List$cons$(Kind$Parser$open$((_x$7 => { - var $10994 = Kind$Parser$term; - return $10994; + var $11106 = Kind$Parser$term; + return $11106; })), 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 $10996 = self.err; + var $11108 = self.err; var _reply$13 = Kind$Parser$spaces(_pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $10998 = self.err; - var self = $10996; + var $11110 = self.err; + var self = $11108; switch (self._) { case 'Maybe.some': - var $11000 = self.value; - var $11001 = Parser$Reply$error$(Parser$Error$combine$($11000, $10998)); - var $10999 = $11001; + var $11112 = self.value; + var $11113 = Parser$Reply$error$(Parser$Error$combine$($11112, $11110)); + var $11111 = $11113; break; case 'Maybe.none': - var $11002 = Parser$Reply$error$($10998); - var $10999 = $11002; + var $11114 = Parser$Reply$error$($11110); + var $11111 = $11114; break; }; - var $10997 = $10999; + var $11109 = $11111; break; case 'Parser.Reply.value': - var $11003 = self.pst; - var self = $11003; + var $11115 = self.pst; + var self = $11115; switch (self._) { case 'Parser.State.new': - var $11005 = self.err; - var $11006 = self.nam; - var $11007 = self.ini; - var $11008 = self.idx; - var $11009 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10996, $11005), $11006, $11007, $11008, $11009); - var $11010 = Parser$fail$("Expected a term.", _reply$pst$21); - var $11004 = $11010; + var $11117 = self.err; + var $11118 = self.nam; + var $11119 = self.ini; + var $11120 = self.idx; + var $11121 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($11108, $11117), $11118, $11119, $11120, $11121); + var $11122 = Parser$fail$("Expected a term.", _reply$pst$21); + var $11116 = $11122; break; }; - var $10997 = $11004; + var $11109 = $11116; break; }; - var $10995 = $10997; + var $11107 = $11109; break; }; - return $10995; - }), List$nil))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))), _pst$1); + return $11107; + }), List$nil)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $11011 = self.err; - var self = $10968; + var $11123 = self.err; + var self = $11080; switch (self._) { case 'Maybe.some': - var $11013 = self.value; - var $11014 = Parser$Reply$error$(Parser$Error$combine$($11013, $11011)); - var $11012 = $11014; + var $11125 = self.value; + var $11126 = Parser$Reply$error$(Parser$Error$combine$($11125, $11123)); + var $11124 = $11126; break; case 'Maybe.none': - var $11015 = Parser$Reply$error$($11011); - var $11012 = $11015; + var $11127 = Parser$Reply$error$($11123); + var $11124 = $11127; break; }; - var $10969 = $11012; + var $11081 = $11124; break; case 'Parser.Reply.value': - var $11016 = self.pst; - var $11017 = self.val; - var self = $11016; + var $11128 = self.pst; + var $11129 = self.val; + var self = $11128; switch (self._) { case 'Parser.State.new': - var $11019 = self.err; - var $11020 = self.nam; - var $11021 = self.ini; - var $11022 = self.idx; - var $11023 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10968, $11019), $11020, $11021, $11022, $11023); + var $11131 = self.err; + var $11132 = self.nam; + var $11133 = self.ini; + var $11134 = self.idx; + var $11135 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($11080, $11131), $11132, $11133, $11134, $11135); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $11025 = self.err; - var _reply$21 = Kind$Parser$term$suffix$($11017, _reply$pst$15); + var $11137 = self.err; + var _reply$21 = Kind$Parser$term$suffix$($11129, _reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $11027 = self.err; - var self = $11025; + var $11139 = self.err; + var self = $11137; switch (self._) { case 'Maybe.some': - var $11029 = self.value; - var $11030 = Parser$Reply$error$(Parser$Error$combine$($11029, $11027)); - var $11028 = $11030; + var $11141 = self.value; + var $11142 = Parser$Reply$error$(Parser$Error$combine$($11141, $11139)); + var $11140 = $11142; break; case 'Maybe.none': - var $11031 = Parser$Reply$error$($11027); - var $11028 = $11031; + var $11143 = Parser$Reply$error$($11139); + var $11140 = $11143; break; }; - var $11026 = $11028; + var $11138 = $11140; break; case 'Parser.Reply.value': - var $11032 = self.pst; - var $11033 = self.val; - var self = $11032; + var $11144 = self.pst; + var $11145 = self.val; + var self = $11144; 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 _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($11025, $11035), $11036, $11037, $11038, $11039); - var $11040 = Parser$Reply$value$(_reply$pst$29, $11033); - var $11034 = $11040; + var $11147 = self.err; + var $11148 = self.nam; + var $11149 = self.ini; + var $11150 = self.idx; + var $11151 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($11137, $11147), $11148, $11149, $11150, $11151); + var $11152 = Parser$Reply$value$(_reply$pst$29, $11145); + var $11146 = $11152; break; }; - var $11026 = $11034; + var $11138 = $11146; break; }; - var $11024 = $11026; + var $11136 = $11138; break; }; - var $11018 = $11024; + var $11130 = $11136; break; }; - var $10969 = $11018; + var $11081 = $11130; break; }; - var $10967 = $10969; + var $11079 = $11081; break; }; - return $10967; + return $11079; })); function Kind$Parser$name_term$(_sep$1, _pst$2) { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11042 = self.err; + var $11154 = self.err; var _reply$8 = Kind$Parser$name$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $11044 = self.err; - var self = $11042; + var $11156 = self.err; + var self = $11154; switch (self._) { case 'Maybe.some': - var $11046 = self.value; - var $11047 = Parser$Reply$error$(Parser$Error$combine$($11046, $11044)); - var $11045 = $11047; + var $11158 = self.value; + var $11159 = Parser$Reply$error$(Parser$Error$combine$($11158, $11156)); + var $11157 = $11159; break; case 'Maybe.none': - var $11048 = Parser$Reply$error$($11044); - var $11045 = $11048; + var $11160 = Parser$Reply$error$($11156); + var $11157 = $11160; break; }; - var $11043 = $11045; + var $11155 = $11157; break; case 'Parser.Reply.value': - var $11049 = self.pst; - var $11050 = self.val; - var self = $11049; + var $11161 = self.pst; + var $11162 = self.val; + var self = $11161; switch (self._) { case 'Parser.State.new': - var $11052 = self.err; - var $11053 = self.nam; - var $11054 = self.ini; - var $11055 = self.idx; - var $11056 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($11042, $11052), $11053, $11054, $11055, $11056); + var $11164 = self.err; + var $11165 = self.nam; + var $11166 = self.ini; + var $11167 = self.idx; + var $11168 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($11154, $11164), $11165, $11166, $11167, $11168); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $11058 = self.err; + var $11170 = self.err; var _reply$22 = Kind$Parser$text$(_sep$1, _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $11060 = self.err; - var self = $11058; + var $11172 = self.err; + var self = $11170; switch (self._) { case 'Maybe.some': - var $11062 = self.value; - var $11063 = Parser$Reply$error$(Parser$Error$combine$($11062, $11060)); - var $11061 = $11063; + var $11174 = self.value; + var $11175 = Parser$Reply$error$(Parser$Error$combine$($11174, $11172)); + var $11173 = $11175; break; case 'Maybe.none': - var $11064 = Parser$Reply$error$($11060); - var $11061 = $11064; + var $11176 = Parser$Reply$error$($11172); + var $11173 = $11176; break; }; - var $11059 = $11061; + var $11171 = $11173; break; case 'Parser.Reply.value': - var $11065 = self.pst; - var self = $11065; + var $11177 = self.pst; + var self = $11177; switch (self._) { case 'Parser.State.new': - var $11067 = self.err; - var $11068 = self.nam; - var $11069 = self.ini; - var $11070 = self.idx; - var $11071 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($11058, $11067), $11068, $11069, $11070, $11071); + var $11179 = self.err; + var $11180 = self.nam; + var $11181 = self.ini; + var $11182 = self.idx; + var $11183 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($11170, $11179), $11180, $11181, $11182, $11183); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $11073 = self.err; + var $11185 = self.err; var _reply$36 = Kind$Parser$term(_reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $11075 = self.err; - var self = $11073; + var $11187 = self.err; + var self = $11185; switch (self._) { case 'Maybe.some': - var $11077 = self.value; - var $11078 = Parser$Reply$error$(Parser$Error$combine$($11077, $11075)); - var $11076 = $11078; + var $11189 = self.value; + var $11190 = Parser$Reply$error$(Parser$Error$combine$($11189, $11187)); + var $11188 = $11190; break; case 'Maybe.none': - var $11079 = Parser$Reply$error$($11075); - var $11076 = $11079; + var $11191 = Parser$Reply$error$($11187); + var $11188 = $11191; break; }; - var $11074 = $11076; + var $11186 = $11188; break; case 'Parser.Reply.value': - var $11080 = self.pst; - var $11081 = self.val; - var self = $11080; + var $11192 = self.pst; + var $11193 = self.val; + var self = $11192; switch (self._) { case 'Parser.State.new': - var $11083 = self.err; - var $11084 = self.nam; - var $11085 = self.ini; - var $11086 = self.idx; - var $11087 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($11073, $11083), $11084, $11085, $11086, $11087); - var $11088 = Parser$Reply$value$(_reply$pst$44, Pair$new$($11050, $11081)); - var $11082 = $11088; + var $11195 = self.err; + var $11196 = self.nam; + var $11197 = self.ini; + var $11198 = self.idx; + var $11199 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($11185, $11195), $11196, $11197, $11198, $11199); + var $11200 = Parser$Reply$value$(_reply$pst$44, Pair$new$($11162, $11193)); + var $11194 = $11200; break; }; - var $11074 = $11082; + var $11186 = $11194; break; }; - var $11072 = $11074; + var $11184 = $11186; break; }; - var $11066 = $11072; + var $11178 = $11184; break; }; - var $11059 = $11066; + var $11171 = $11178; break; }; - var $11057 = $11059; + var $11169 = $11171; break; }; - var $11051 = $11057; + var $11163 = $11169; break; }; - var $11043 = $11051; + var $11155 = $11163; break; }; - var $11041 = $11043; + var $11153 = $11155; break; }; - return $11041; + return $11153; }; const Kind$Parser$name_term = x0 => x1 => Kind$Parser$name_term$(x0, x1); function Kind$Binder$new$(_eras$1, _name$2, _term$3) { - var $11089 = ({ + var $11201 = ({ _: 'Kind.Binder.new', 'eras': _eras$1, 'name': _name$2, 'term': _term$3 }); - return $11089; + return $11201; }; const Kind$Binder$new = x0 => x1 => x2 => Kind$Binder$new$(x0, x1, x2); function Kind$Parser$binder$homo$(_sep$1, _eras$2, _no_spaces$3) { var self = _eras$2; if (self) { - var $11091 = "<"; - var _open$4 = $11091; + var $11203 = "<"; + var _open$4 = $11203; } else { - var $11092 = "("; - var _open$4 = $11092; + var $11204 = "("; + var _open$4 = $11204; }; var self = _eras$2; if (self) { - var $11093 = ">"; - var _clos$5 = $11093; + var $11205 = ">"; + var _clos$5 = $11205; } else { - var $11094 = ")"; - var _clos$5 = $11094; + var $11206 = ")"; + var _clos$5 = $11206; }; var self = _no_spaces$3; if (self) { - var $11095 = Kind$Parser$items_now; - var _items_parser$6 = $11095; + var $11207 = Kind$Parser$items_now; + var _items_parser$6 = $11207; } else { - var $11096 = Kind$Parser$items; - var _items_parser$6 = $11096; + var $11208 = Kind$Parser$items; + var _items_parser$6 = $11208; }; - var $11090 = (_pst$7 => { + var $11202 = (_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $11098 = self.err; + var $11210 = self.err; var _reply$13 = _items_parser$6(_open$4)(Kind$Parser$name_term(_sep$1))(_clos$5)(_pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $11100 = self.err; - var self = $11098; + var $11212 = self.err; + var self = $11210; switch (self._) { case 'Maybe.some': - var $11102 = self.value; - var $11103 = Parser$Reply$error$(Parser$Error$combine$($11102, $11100)); - var $11101 = $11103; + var $11214 = self.value; + var $11215 = Parser$Reply$error$(Parser$Error$combine$($11214, $11212)); + var $11213 = $11215; break; case 'Maybe.none': - var $11104 = Parser$Reply$error$($11100); - var $11101 = $11104; + var $11216 = Parser$Reply$error$($11212); + var $11213 = $11216; break; }; - var $11099 = $11101; + var $11211 = $11213; break; case 'Parser.Reply.value': - var $11105 = self.pst; - var $11106 = self.val; - var self = $11105; + var $11217 = self.pst; + var $11218 = self.val; + var self = $11217; switch (self._) { case 'Parser.State.new': - var $11108 = self.err; - var $11109 = self.nam; - var $11110 = self.ini; - var $11111 = self.idx; - var $11112 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($11098, $11108), $11109, $11110, $11111, $11112); - var $11113 = Parser$Reply$value$(_reply$pst$21, List$mapped$($11106, (_pair$22 => { + var $11220 = self.err; + var $11221 = self.nam; + var $11222 = self.ini; + var $11223 = self.idx; + var $11224 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($11210, $11220), $11221, $11222, $11223, $11224); + var $11225 = Parser$Reply$value$(_reply$pst$21, List$mapped$($11218, (_pair$22 => { var self = _pair$22; switch (self._) { case 'Pair.new': - var $11115 = self.fst; - var $11116 = self.snd; - var $11117 = Kind$Binder$new$(_eras$2, $11115, $11116); - var $11114 = $11117; + var $11227 = self.fst; + var $11228 = self.snd; + var $11229 = Kind$Binder$new$(_eras$2, $11227, $11228); + var $11226 = $11229; break; }; - return $11114; + return $11226; }))); - var $11107 = $11113; + var $11219 = $11225; break; }; - var $11099 = $11107; + var $11211 = $11219; break; }; - var $11097 = $11099; + var $11209 = $11211; break; }; - return $11097; + return $11209; }); - return $11090; + return $11202; }; const Kind$Parser$binder$homo = x0 => x1 => x2 => Kind$Parser$binder$homo$(x0, x1, x2); @@ -34706,17 +35025,17 @@ module.exports = (function() { var self = _as$2; switch (self._) { case 'List.cons': - var $11119 = self.head; - var $11120 = self.tail; - var $11121 = List$cons$($11119, List$concat$($11120, _bs$3)); - var $11118 = $11121; + var $11231 = self.head; + var $11232 = self.tail; + var $11233 = List$cons$($11231, List$concat$($11232, _bs$3)); + var $11230 = $11233; break; case 'List.nil': - var $11122 = _bs$3; - var $11118 = $11122; + var $11234 = _bs$3; + var $11230 = $11234; break; }; - return $11118; + return $11230; }; const List$concat = x0 => x1 => List$concat$(x0, x1); @@ -34724,17 +35043,17 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $11124 = self.head; - var $11125 = self.tail; - var $11126 = List$concat$($11124, List$flatten$($11125)); - var $11123 = $11126; + var $11236 = self.head; + var $11237 = self.tail; + var $11238 = List$concat$($11236, List$flatten$($11237)); + var $11235 = $11238; break; case 'List.nil': - var $11127 = List$nil; - var $11123 = $11127; + var $11239 = List$nil; + var $11235 = $11239; break; }; - return $11123; + return $11235; }; const List$flatten = x0 => List$flatten$(x0); @@ -34742,49 +35061,49 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $11129 = self.err; + var $11241 = self.err; var _reply$9 = Parser$many1$(Parser$choice(List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$true, _no_spaces$2), List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$false, _no_spaces$2), List$nil))), _pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $11131 = self.err; - var self = $11129; + var $11243 = self.err; + var self = $11241; switch (self._) { case 'Maybe.some': - var $11133 = self.value; - var $11134 = Parser$Reply$error$(Parser$Error$combine$($11133, $11131)); - var $11132 = $11134; + var $11245 = self.value; + var $11246 = Parser$Reply$error$(Parser$Error$combine$($11245, $11243)); + var $11244 = $11246; break; case 'Maybe.none': - var $11135 = Parser$Reply$error$($11131); - var $11132 = $11135; + var $11247 = Parser$Reply$error$($11243); + var $11244 = $11247; break; }; - var $11130 = $11132; + var $11242 = $11244; break; case 'Parser.Reply.value': - var $11136 = self.pst; - var $11137 = self.val; - var self = $11136; + var $11248 = self.pst; + var $11249 = self.val; + var self = $11248; switch (self._) { case 'Parser.State.new': - var $11139 = self.err; - var $11140 = self.nam; - var $11141 = self.ini; - var $11142 = self.idx; - var $11143 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($11129, $11139), $11140, $11141, $11142, $11143); - var $11144 = Parser$Reply$value$(_reply$pst$17, List$flatten$($11137)); - var $11138 = $11144; + var $11251 = self.err; + var $11252 = self.nam; + var $11253 = self.ini; + var $11254 = self.idx; + var $11255 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($11241, $11251), $11252, $11253, $11254, $11255); + var $11256 = Parser$Reply$value$(_reply$pst$17, List$flatten$($11249)); + var $11250 = $11256; break; }; - var $11130 = $11138; + var $11242 = $11250; break; }; - var $11128 = $11130; + var $11240 = $11242; break; }; - return $11128; + return $11240; }; const Kind$Parser$binder = x0 => x1 => x2 => Kind$Parser$binder$(x0, x1, x2); const List$length = a0 => (list_length(a0)); @@ -34793,82 +35112,82 @@ module.exports = (function() { var self = _binds$1; switch (self._) { case 'List.cons': - var $11146 = self.head; - var $11147 = self.tail; - var self = $11146; + var $11258 = self.head; + var $11259 = self.tail; + var self = $11258; switch (self._) { case 'Kind.Binder.new': - var $11149 = self.eras; - var $11150 = self.name; - var $11151 = self.term; - var $11152 = Kind$Term$all$($11149, "", $11150, $11151, (_s$8 => _x$9 => { - var $11153 = Kind$Parser$forall$make$($11147, _body$2); - return $11153; + var $11261 = self.eras; + var $11262 = self.name; + var $11263 = self.term; + var $11264 = Kind$Term$all$($11261, "", $11262, $11263, (_s$8 => _x$9 => { + var $11265 = Kind$Parser$forall$make$($11259, _body$2); + return $11265; })); - var $11148 = $11152; + var $11260 = $11264; break; }; - var $11145 = $11148; + var $11257 = $11260; break; case 'List.nil': - var $11154 = _body$2; - var $11145 = $11154; + var $11266 = _body$2; + var $11257 = $11266; break; }; - return $11145; + return $11257; }; const Kind$Parser$forall$make = x0 => x1 => Kind$Parser$forall$make$(x0, x1); function List$at_last$(_index$2, _list$3) { - var $11155 = List$at$(_index$2, List$reverse$(_list$3)); - return $11155; + var $11267 = List$at$(_index$2, List$reverse$(_list$3)); + return $11267; }; const List$at_last = x0 => x1 => List$at_last$(x0, x1); function Kind$Term$var$(_name$1, _indx$2) { - var $11156 = ({ + var $11268 = ({ _: 'Kind.Term.var', 'name': _name$1, 'indx': _indx$2 }); - return $11156; + return $11268; }; 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 $11158 = Pair$new$("", 0n); - var $11157 = $11158; + var $11270 = Pair$new$("", 0n); + var $11269 = $11270; } else { - var $11159 = self.charCodeAt(0); - var $11160 = self.slice(1); - var _name_skips$4 = Kind$Context$get_name_skips$($11160); + var $11271 = self.charCodeAt(0); + var $11272 = self.slice(1); + var _name_skips$4 = Kind$Context$get_name_skips$($11272); var self = _name_skips$4; switch (self._) { case 'Pair.new': - var $11162 = self.fst; - var $11163 = self.snd; - var self = ($11159 === 94); + var $11274 = self.fst; + var $11275 = self.snd; + var self = ($11271 === 94); if (self) { - var $11165 = Pair$new$($11162, Nat$succ$($11163)); - var $11164 = $11165; + var $11277 = Pair$new$($11274, Nat$succ$($11275)); + var $11276 = $11277; } else { - var $11166 = Pair$new$(String$cons$($11159, $11162), $11163); - var $11164 = $11166; + var $11278 = Pair$new$(String$cons$($11271, $11274), $11275); + var $11276 = $11278; }; - var $11161 = $11164; + var $11273 = $11276; break; }; - var $11157 = $11161; + var $11269 = $11273; }; - return $11157; + return $11269; }; const Kind$Context$get_name_skips = x0 => Kind$Context$get_name_skips$(x0); function Kind$Name$eql$(_a$1, _b$2) { - var $11167 = (_a$1 === _b$2); - return $11167; + var $11279 = (_a$1 === _b$2); + return $11279; }; const Kind$Name$eql = x0 => x1 => Kind$Name$eql$(x0, x1); @@ -34885,36 +35204,36 @@ module.exports = (function() { var self = _ctx$3; switch (self._) { case 'List.cons': - var $11168 = self.head; - var $11169 = self.tail; - var self = $11168; + var $11280 = self.head; + var $11281 = self.tail; + var self = $11280; switch (self._) { case 'Pair.new': - var $11171 = self.fst; - var $11172 = self.snd; - var self = Kind$Name$eql$(_name$1, $11171); + var $11283 = self.fst; + var $11284 = self.snd; + var self = Kind$Name$eql$(_name$1, $11283); if (self) { var self = _skip$2; if (self === 0n) { - var $11175 = Maybe$some$($11172); - var $11174 = $11175; + var $11287 = Maybe$some$($11284); + var $11286 = $11287; } else { - var $11176 = (self - 1n); - var $11177 = Kind$Context$find$go$(_name$1, $11176, $11169); - var $11174 = $11177; + var $11288 = (self - 1n); + var $11289 = Kind$Context$find$go$(_name$1, $11288, $11281); + var $11286 = $11289; }; - var $11173 = $11174; + var $11285 = $11286; } else { - var $11178 = Kind$Context$find$go$(_name$1, _skip$2, $11169); - var $11173 = $11178; + var $11290 = Kind$Context$find$go$(_name$1, _skip$2, $11281); + var $11285 = $11290; }; - var $11170 = $11173; + var $11282 = $11285; break; }; - return $11170; + return $11282; case 'List.nil': - var $11179 = Maybe$none; - return $11179; + var $11291 = Maybe$none; + return $11291; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -34927,56 +35246,56 @@ module.exports = (function() { var self = Kind$Context$get_name_skips$(_name$1); switch (self._) { case 'Pair.new': - var $11181 = self.fst; - var $11182 = self.snd; - var $11183 = Kind$Context$find$go$($11181, $11182, _ctx$2); - var $11180 = $11183; + var $11293 = self.fst; + var $11294 = self.snd; + var $11295 = Kind$Context$find$go$($11293, $11294, _ctx$2); + var $11292 = $11295; break; }; - return $11180; + return $11292; }; const Kind$Context$find = x0 => x1 => Kind$Context$find$(x0, x1); function Kind$Path$Builder$o$(_path$1, _x$2) { - var $11184 = _path$1((_x$2 + '0')); - return $11184; + var $11296 = _path$1((_x$2 + '0')); + return $11296; }; const Kind$Path$Builder$o = x0 => x1 => Kind$Path$Builder$o$(x0, x1); function Kind$Path$Builder$i$(_path$1, _x$2) { - var $11185 = _path$1((_x$2 + '1')); - return $11185; + var $11297 = _path$1((_x$2 + '1')); + return $11297; }; const Kind$Path$Builder$i = x0 => x1 => Kind$Path$Builder$i$(x0, x1); function Kind$Path$Builder$to_bits$(_path$1) { - var $11186 = _path$1(Bits$e); - return $11186; + var $11298 = _path$1(Bits$e); + return $11298; }; const Kind$Path$Builder$to_bits = x0 => Kind$Path$Builder$to_bits$(x0); function Kind$Path$Builder$nat$(_n$1, _b$2) { var self = _n$1; if (self === 0n) { - var $11188 = Kind$Path$Builder$o(_b$2); - var $11187 = $11188; + var $11300 = Kind$Path$Builder$o(_b$2); + var $11299 = $11300; } else { - var $11189 = (self - 1n); - var $11190 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($11189, _b$2)); - var $11187 = $11190; + var $11301 = (self - 1n); + var $11302 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($11301, _b$2)); + var $11299 = $11302; }; - return $11187; + return $11299; }; const Kind$Path$Builder$nat = x0 => x1 => Kind$Path$Builder$nat$(x0, x1); function Kind$Term$set$(_expr$1, _fkey$2, _fval$3) { - var $11191 = ({ + var $11303 = ({ _: 'Kind.Term.set', 'expr': _expr$1, 'fkey': _fkey$2, 'fval': _fval$3 }); - return $11191; + return $11303; }; const Kind$Term$set = x0 => x1 => x2 => Kind$Term$set$(x0, x1, x2); @@ -34984,228 +35303,228 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.var': - var $11193 = self.name; - var $11194 = self.indx; - var self = List$at_last$($11194, _vars$1); + var $11305 = self.name; + var $11306 = self.indx; + var self = List$at_last$($11306, _vars$1); switch (self._) { case 'Maybe.some': - var $11196 = self.value; - var $11197 = Pair$snd$($11196); - var $11195 = $11197; + var $11308 = self.value; + var $11309 = Pair$snd$($11308); + var $11307 = $11309; break; case 'Maybe.none': - var $11198 = Kind$Term$var$($11193, $11194); - var $11195 = $11198; + var $11310 = Kind$Term$var$($11305, $11306); + var $11307 = $11310; break; }; - var $11192 = $11195; + var $11304 = $11307; break; case 'Kind.Term.ref': - var $11199 = self.name; - var self = Kind$Context$find$($11199, _vars$1); + var $11311 = self.name; + var self = Kind$Context$find$($11311, _vars$1); switch (self._) { case 'Maybe.some': - var $11201 = self.value; - var $11202 = $11201; - var $11200 = $11202; + var $11313 = self.value; + var $11314 = $11313; + var $11312 = $11314; break; case 'Maybe.none': - var $11203 = Kind$Term$ref$($11199); - var $11200 = $11203; + var $11315 = Kind$Term$ref$($11311); + var $11312 = $11315; break; }; - var $11192 = $11200; + var $11304 = $11312; break; case 'Kind.Term.all': - var $11204 = self.eras; - var $11205 = self.self; - var $11206 = self.name; - var $11207 = self.xtyp; - var $11208 = self.body; + var $11316 = self.eras; + var $11317 = self.self; + var $11318 = self.name; + var $11319 = self.xtyp; + var $11320 = self.body; var _vlen$9 = (list_length(_vars$1)); - var $11209 = Kind$Term$all$($11204, $11205, $11206, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11207), (_s$10 => _x$11 => { - var $11210 = Kind$Term$bind$(List$cons$(Pair$new$($11206, _x$11), List$cons$(Pair$new$($11205, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $11208(Kind$Term$var$($11205, _vlen$9))(Kind$Term$var$($11206, Nat$succ$(_vlen$9)))); - return $11210; + var $11321 = Kind$Term$all$($11316, $11317, $11318, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11319), (_s$10 => _x$11 => { + var $11322 = Kind$Term$bind$(List$cons$(Pair$new$($11318, _x$11), List$cons$(Pair$new$($11317, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $11320(Kind$Term$var$($11317, _vlen$9))(Kind$Term$var$($11318, Nat$succ$(_vlen$9)))); + return $11322; })); - var $11192 = $11209; + var $11304 = $11321; break; case 'Kind.Term.lam': - var $11211 = self.name; - var $11212 = self.body; + var $11323 = self.name; + var $11324 = self.body; var _vlen$6 = (list_length(_vars$1)); - var $11213 = Kind$Term$lam$($11211, (_x$7 => { - var $11214 = Kind$Term$bind$(List$cons$(Pair$new$($11211, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $11212(Kind$Term$var$($11211, _vlen$6))); - return $11214; + var $11325 = Kind$Term$lam$($11323, (_x$7 => { + var $11326 = Kind$Term$bind$(List$cons$(Pair$new$($11323, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $11324(Kind$Term$var$($11323, _vlen$6))); + return $11326; })); - var $11192 = $11213; + var $11304 = $11325; break; case 'Kind.Term.app': - var $11215 = self.func; - var $11216 = self.argm; - var $11217 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11215), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11216)); - var $11192 = $11217; + var $11327 = self.func; + var $11328 = self.argm; + var $11329 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11327), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11328)); + var $11304 = $11329; break; case 'Kind.Term.let': - var $11218 = self.name; - var $11219 = self.expr; - var $11220 = self.body; + var $11330 = self.name; + var $11331 = self.expr; + var $11332 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $11221 = Kind$Term$let$($11218, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11219), (_x$8 => { - var $11222 = Kind$Term$bind$(List$cons$(Pair$new$($11218, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11220(Kind$Term$var$($11218, _vlen$7))); - return $11222; + var $11333 = Kind$Term$let$($11330, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11331), (_x$8 => { + var $11334 = Kind$Term$bind$(List$cons$(Pair$new$($11330, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11332(Kind$Term$var$($11330, _vlen$7))); + return $11334; })); - var $11192 = $11221; + var $11304 = $11333; break; case 'Kind.Term.def': - var $11223 = self.name; - var $11224 = self.expr; - var $11225 = self.body; + var $11335 = self.name; + var $11336 = self.expr; + var $11337 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $11226 = Kind$Term$def$($11223, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11224), (_x$8 => { - var $11227 = Kind$Term$bind$(List$cons$(Pair$new$($11223, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11225(Kind$Term$var$($11223, _vlen$7))); - return $11227; + var $11338 = Kind$Term$def$($11335, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11336), (_x$8 => { + var $11339 = Kind$Term$bind$(List$cons$(Pair$new$($11335, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11337(Kind$Term$var$($11335, _vlen$7))); + return $11339; })); - var $11192 = $11226; + var $11304 = $11338; break; case 'Kind.Term.ann': - var $11228 = self.done; - var $11229 = self.term; - var $11230 = self.type; - var $11231 = Kind$Term$ann$($11228, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11229), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11230)); - var $11192 = $11231; + var $11340 = self.done; + var $11341 = self.term; + var $11342 = self.type; + var $11343 = Kind$Term$ann$($11340, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11341), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11342)); + var $11304 = $11343; break; case 'Kind.Term.gol': - var $11232 = self.name; - var $11233 = self.dref; - var $11234 = self.verb; - var $11235 = Kind$Term$gol$($11232, $11233, $11234); - var $11192 = $11235; + var $11344 = self.name; + var $11345 = self.dref; + var $11346 = self.verb; + var $11347 = Kind$Term$gol$($11344, $11345, $11346); + var $11304 = $11347; break; case 'Kind.Term.nat': - var $11236 = self.natx; - var $11237 = Kind$Term$nat$($11236); - var $11192 = $11237; + var $11348 = self.natx; + var $11349 = Kind$Term$nat$($11348); + var $11304 = $11349; break; case 'Kind.Term.chr': - var $11238 = self.chrx; - var $11239 = Kind$Term$chr$($11238); - var $11192 = $11239; + var $11350 = self.chrx; + var $11351 = Kind$Term$chr$($11350); + var $11304 = $11351; break; case 'Kind.Term.str': - var $11240 = self.strx; - var $11241 = Kind$Term$str$($11240); - var $11192 = $11241; + var $11352 = self.strx; + var $11353 = Kind$Term$str$($11352); + var $11304 = $11353; break; case 'Kind.Term.num': - var $11242 = self.sign; - var $11243 = self.numb; - var $11244 = self.frac; - var $11245 = Kind$Term$num$($11242, $11243, $11244); - var $11192 = $11245; + var $11354 = self.sign; + var $11355 = self.numb; + var $11356 = self.frac; + var $11357 = Kind$Term$num$($11354, $11355, $11356); + var $11304 = $11357; break; case 'Kind.Term.cse': - var $11246 = self.expr; - var $11247 = self.name; - var $11248 = self.with; - var $11249 = self.cses; - var $11250 = self.moti; - var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11246); - var _name$11 = $11247; - var _wyth$12 = List$mapped$($11248, (_with_var$12 => { + var $11358 = self.expr; + var $11359 = self.name; + var $11360 = self.with; + var $11361 = self.cses; + var $11362 = self.moti; + var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11358); + var _name$11 = $11359; + var _wyth$12 = List$mapped$($11360, (_with_var$12 => { var self = _with_var$12; switch (self._) { case 'Kind.Ann.new': - var $11253 = self.name; - var $11254 = self.term; - var $11255 = self.type; - var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $11254); - var self = $11255; + var $11365 = self.name; + var $11366 = self.term; + var $11367 = self.type; + var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $11366); + var self = $11367; switch (self._) { case 'Maybe.some': - var $11257 = self.value; - var $11258 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $11257)); - var _with_var_type$17 = $11258; + var $11369 = self.value; + var $11370 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $11369)); + var _with_var_type$17 = $11370; break; case 'Maybe.none': - var $11259 = Maybe$none; - var _with_var_type$17 = $11259; + var $11371 = Maybe$none; + var _with_var_type$17 = $11371; break; }; - var $11256 = Kind$Ann$new$($11253, _with_var_term$16, _with_var_type$17); - var $11252 = $11256; + var $11368 = Kind$Ann$new$($11365, _with_var_term$16, _with_var_type$17); + var $11364 = $11368; break; }; - return $11252; + return $11364; })); - var _cses$13 = $11249; - var _moti$14 = $11250; - var $11251 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); - var $11192 = $11251; + var _cses$13 = $11361; + var _moti$14 = $11362; + var $11363 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); + var $11304 = $11363; break; case 'Kind.Term.new': - var $11260 = self.args; - var _args$5 = List$imapped$($11260, (_idx$5 => _arg$6 => { - var $11262 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); - return $11262; + var $11372 = self.args; + var _args$5 = List$imapped$($11372, (_idx$5 => _arg$6 => { + var $11374 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); + return $11374; })); - var $11261 = Kind$Term$new$(_args$5); - var $11192 = $11261; + var $11373 = Kind$Term$new$(_args$5); + var $11304 = $11373; break; case 'Kind.Term.get': - var $11263 = self.expr; - var $11264 = self.fkey; - var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11263); - var $11265 = Kind$Term$get$(_expr$6, $11264); - var $11192 = $11265; + var $11375 = self.expr; + var $11376 = self.fkey; + var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11375); + var $11377 = Kind$Term$get$(_expr$6, $11376); + var $11304 = $11377; break; case 'Kind.Term.set': - var $11266 = self.expr; - var $11267 = self.fkey; - var $11268 = self.fval; - var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11266); - var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11268); - var $11269 = Kind$Term$set$(_expr$7, $11267, _fval$8); - var $11192 = $11269; + var $11378 = self.expr; + var $11379 = self.fkey; + var $11380 = self.fval; + var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11378); + var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11380); + var $11381 = Kind$Term$set$(_expr$7, $11379, _fval$8); + var $11304 = $11381; break; case 'Kind.Term.mut': - var $11270 = self.expr; - var $11271 = self.fkey; - var $11272 = self.ffun; - var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11270); - var _ffun$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11272); - var $11273 = Kind$Term$mut$(_expr$7, $11271, _ffun$8); - var $11192 = $11273; + var $11382 = self.expr; + var $11383 = self.fkey; + var $11384 = self.ffun; + var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11382); + var _ffun$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11384); + var $11385 = Kind$Term$mut$(_expr$7, $11383, _ffun$8); + var $11304 = $11385; break; case 'Kind.Term.ope': - var $11274 = self.name; - var $11275 = self.arg0; - var $11276 = self.arg1; - var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11275); - var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11276); - var $11277 = Kind$Term$ope$($11274, _arg0$7, _arg1$8); - var $11192 = $11277; + var $11386 = self.name; + var $11387 = self.arg0; + var $11388 = self.arg1; + var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11387); + var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11388); + var $11389 = Kind$Term$ope$($11386, _arg0$7, _arg1$8); + var $11304 = $11389; break; case 'Kind.Term.imp': - var $11278 = self.expr; - var $11279 = Kind$Term$imp$(Kind$Term$bind$(_vars$1, _path$2, $11278)); - var $11192 = $11279; + var $11390 = self.expr; + var $11391 = Kind$Term$imp$(Kind$Term$bind$(_vars$1, _path$2, $11390)); + var $11304 = $11391; break; case 'Kind.Term.ori': - var $11280 = self.orig; - var $11281 = self.expr; - var $11282 = Kind$Term$ori$($11280, Kind$Term$bind$(_vars$1, _path$2, $11281)); - var $11192 = $11282; + var $11392 = self.orig; + var $11393 = self.expr; + var $11394 = Kind$Term$ori$($11392, Kind$Term$bind$(_vars$1, _path$2, $11393)); + var $11304 = $11394; break; case 'Kind.Term.typ': - var $11283 = Kind$Term$typ; - var $11192 = $11283; + var $11395 = Kind$Term$typ; + var $11304 = $11395; break; case 'Kind.Term.hol': - var $11284 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); - var $11192 = $11284; + var $11396 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); + var $11304 = $11396; break; }; - return $11192; + return $11304; }; const Kind$Term$bind = x0 => x1 => x2 => Kind$Term$bind$(x0, x1, x2); @@ -35222,13 +35541,13 @@ module.exports = (function() { var self = _t$2; switch (self._) { case 'Trampoline.done': - var $11285 = self.value; - var $11286 = $11285; - return $11286; + var $11397 = self.value; + var $11398 = $11397; + return $11398; case 'Trampoline.wrap': - var $11287 = self.value; - var $11288 = Trampoline$call$($11287(Unit$new)); - return $11288; + var $11399 = self.value; + var $11400 = Trampoline$call$($11399(Unit$new)); + return $11400; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -35238,17 +35557,17 @@ module.exports = (function() { const Trampoline$call = x0 => Trampoline$call$(x0); function Trampoline$(_A$1) { - var $11289 = null; - return $11289; + var $11401 = null; + return $11401; }; const Trampoline = x0 => Trampoline$(x0); function Trampoline$wrap$(_value$2) { - var $11290 = ({ + var $11402 = ({ _: 'Trampoline.wrap', 'value': _value$2 }); - return $11290; + return $11402; }; const Trampoline$wrap = x0 => Trampoline$wrap$(x0); @@ -35265,90 +35584,90 @@ module.exports = (function() { var self = _bits$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $11291 = self.slice(0, -1); + var $11403 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $11293 = self.val; - var $11294 = self.lft; - var $11295 = self.rgt; - var $11296 = BitsMap$set_if_empty$cps$go$($11291, _val$3, $11294, (_lft$10 => { - var $11297 = Trampoline$wrap$((_$11 => { - var $11298 = _cont$5(BitsMap$tie$($11293, _lft$10, $11295)); - return $11298; + var $11405 = self.val; + var $11406 = self.lft; + var $11407 = self.rgt; + var $11408 = BitsMap$set_if_empty$cps$go$($11403, _val$3, $11406, (_lft$10 => { + var $11409 = Trampoline$wrap$((_$11 => { + var $11410 = _cont$5(BitsMap$tie$($11405, _lft$10, $11407)); + return $11410; })); - return $11297; + return $11409; })); - var $11292 = $11296; + var $11404 = $11408; break; case 'BitsMap.new': - var $11299 = BitsMap$set_if_empty$cps$go$($11291, _val$3, BitsMap$new, (_lft$7 => { - var $11300 = Trampoline$wrap$((_$8 => { - var $11301 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); - return $11301; + var $11411 = BitsMap$set_if_empty$cps$go$($11403, _val$3, BitsMap$new, (_lft$7 => { + var $11412 = Trampoline$wrap$((_$8 => { + var $11413 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); + return $11413; })); - return $11300; + return $11412; })); - var $11292 = $11299; + var $11404 = $11411; break; }; - return $11292; + return $11404; case 'i': - var $11302 = self.slice(0, -1); + var $11414 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $11304 = self.val; - var $11305 = self.lft; - var $11306 = self.rgt; - var $11307 = BitsMap$set_if_empty$cps$go$($11302, _val$3, $11306, (_rgt$10 => { - var $11308 = Trampoline$wrap$((_$11 => { - var $11309 = _cont$5(BitsMap$tie$($11304, $11305, _rgt$10)); - return $11309; + var $11416 = self.val; + var $11417 = self.lft; + var $11418 = self.rgt; + var $11419 = BitsMap$set_if_empty$cps$go$($11414, _val$3, $11418, (_rgt$10 => { + var $11420 = Trampoline$wrap$((_$11 => { + var $11421 = _cont$5(BitsMap$tie$($11416, $11417, _rgt$10)); + return $11421; })); - return $11308; + return $11420; })); - var $11303 = $11307; + var $11415 = $11419; break; case 'BitsMap.new': - var $11310 = BitsMap$set_if_empty$cps$go$($11302, _val$3, BitsMap$new, (_rgt$7 => { - var $11311 = Trampoline$wrap$((_$8 => { - var $11312 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); - return $11312; + var $11422 = BitsMap$set_if_empty$cps$go$($11414, _val$3, BitsMap$new, (_rgt$7 => { + var $11423 = Trampoline$wrap$((_$8 => { + var $11424 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); + return $11424; })); - return $11311; + return $11423; })); - var $11303 = $11310; + var $11415 = $11422; break; }; - return $11303; + return $11415; case 'e': var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $11314 = self.val; - var $11315 = self.lft; - var $11316 = self.rgt; - var $11317 = _cont$5(BitsMap$tie$((() => { - var self = $11314; + var $11426 = self.val; + var $11427 = self.lft; + var $11428 = self.rgt; + var $11429 = _cont$5(BitsMap$tie$((() => { + var self = $11426; switch (self._) { case 'Maybe.some': - var $11318 = self.value; - var $11319 = Maybe$some$($11318); - return $11319; + var $11430 = self.value; + var $11431 = Maybe$some$($11430); + return $11431; case 'Maybe.none': - var $11320 = Maybe$some$(_val$3); - return $11320; + var $11432 = Maybe$some$(_val$3); + return $11432; }; - })(), $11315, $11316)); - var $11313 = $11317; + })(), $11427, $11428)); + var $11425 = $11429; break; case 'BitsMap.new': - var $11321 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); - var $11313 = $11321; + var $11433 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); + var $11425 = $11433; break; }; - return $11313; + return $11425; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -35358,29 +35677,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 $11322 = ({ + var $11434 = ({ _: 'Trampoline.done', 'value': _value$2 }); - return $11322; + return $11434; }; const Trampoline$done = x0 => Trampoline$done$(x0); function BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4) { - var $11323 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); - return $11323; + var $11435 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); + return $11435; }; 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 $11324 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); - return $11324; + var $11436 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); + return $11436; }; 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 $11325 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); - return $11325; + var $11437 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); + return $11437; }; const Kind$Map$set_if_empty = x0 => x1 => x2 => Kind$Map$set_if_empty$(x0, x1, x2); const Kind$Status$init = ({ @@ -35391,13 +35710,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 $11327 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); - var $11326 = $11327; + var $11439 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); + var $11438 = $11439; } else { - var $11328 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); - var $11326 = $11328; + var $11440 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); + var $11438 = $11440; }; - return $11326; + return $11438; }; 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); @@ -35405,390 +35724,390 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $11330 = self.err; + var $11442 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $11332 = self.err; - var self = $11330; + var $11444 = self.err; + var self = $11442; switch (self._) { case 'Maybe.some': - var $11334 = self.value; - var $11335 = Parser$Reply$error$(Parser$Error$combine$($11334, $11332)); - var $11333 = $11335; + var $11446 = self.value; + var $11447 = Parser$Reply$error$(Parser$Error$combine$($11446, $11444)); + var $11445 = $11447; break; case 'Maybe.none': - var $11336 = Parser$Reply$error$($11332); - var $11333 = $11336; + var $11448 = Parser$Reply$error$($11444); + var $11445 = $11448; break; }; - var $11331 = $11333; + var $11443 = $11445; break; case 'Parser.Reply.value': - var $11337 = self.pst; - var self = $11337; + var $11449 = self.pst; + var self = $11449; switch (self._) { case 'Parser.State.new': - var $11339 = self.err; - var $11340 = self.nam; - var $11341 = self.ini; - var $11342 = self.idx; - var $11343 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11330, $11339), $11340, $11341, $11342, $11343); + var $11451 = self.err; + var $11452 = self.nam; + var $11453 = self.ini; + var $11454 = self.idx; + var $11455 = self.str; + 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 $11345 = self.err; + var $11457 = self.err; var _reply$24 = Parser$get_idx$(_reply$pst$18); var self = _reply$24; switch (self._) { case 'Parser.Reply.error': - var $11347 = self.err; - var self = $11345; + var $11459 = self.err; + var self = $11457; switch (self._) { case 'Maybe.some': - var $11349 = self.value; - var $11350 = Parser$Reply$error$(Parser$Error$combine$($11349, $11347)); - var $11348 = $11350; + var $11461 = self.value; + var $11462 = Parser$Reply$error$(Parser$Error$combine$($11461, $11459)); + var $11460 = $11462; break; case 'Maybe.none': - var $11351 = Parser$Reply$error$($11347); - var $11348 = $11351; + var $11463 = Parser$Reply$error$($11459); + var $11460 = $11463; break; }; - var $11346 = $11348; + var $11458 = $11460; break; case 'Parser.Reply.value': - var $11352 = self.pst; - var $11353 = self.val; - var self = $11352; + var $11464 = self.pst; + var $11465 = self.val; + var self = $11464; switch (self._) { case 'Parser.State.new': - var $11355 = self.err; - var $11356 = self.nam; - var $11357 = self.ini; - var $11358 = self.idx; - var $11359 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11345, $11355), $11356, $11357, $11358, $11359); + var $11467 = self.err; + var $11468 = self.nam; + var $11469 = self.ini; + var $11470 = self.idx; + var $11471 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11457, $11467), $11468, $11469, $11470, $11471); var self = _reply$pst$32; switch (self._) { case 'Parser.State.new': - var $11361 = self.err; + var $11473 = self.err; var _reply$38 = Kind$Parser$name1$(_reply$pst$32); var self = _reply$38; switch (self._) { case 'Parser.Reply.error': - var $11363 = self.err; - var self = $11361; + var $11475 = self.err; + var self = $11473; switch (self._) { case 'Maybe.some': - var $11365 = self.value; - var $11366 = Parser$Reply$error$(Parser$Error$combine$($11365, $11363)); - var $11364 = $11366; + var $11477 = self.value; + var $11478 = Parser$Reply$error$(Parser$Error$combine$($11477, $11475)); + var $11476 = $11478; break; case 'Maybe.none': - var $11367 = Parser$Reply$error$($11363); - var $11364 = $11367; + var $11479 = Parser$Reply$error$($11475); + var $11476 = $11479; break; }; - var $11362 = $11364; + var $11474 = $11476; break; case 'Parser.Reply.value': - var $11368 = self.pst; - var $11369 = self.val; - var self = $11368; + var $11480 = self.pst; + var $11481 = self.val; + var self = $11480; switch (self._) { case 'Parser.State.new': - var $11371 = self.err; - var $11372 = self.nam; - var $11373 = self.ini; - var $11374 = self.idx; - var $11375 = self.str; - var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($11361, $11371), $11372, $11373, $11374, $11375); + var $11483 = self.err; + var $11484 = self.nam; + var $11485 = self.ini; + var $11486 = self.idx; + var $11487 = self.str; + var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($11473, $11483), $11484, $11485, $11486, $11487); var self = _reply$pst$46; switch (self._) { case 'Parser.State.new': - var $11377 = self.err; + var $11489 = self.err; var _reply$52 = Parser$many$(Kind$Parser$binder(":")(Bool$false))(_reply$pst$46); var self = _reply$52; switch (self._) { case 'Parser.Reply.error': - var $11379 = self.err; - var self = $11377; + var $11491 = self.err; + var self = $11489; switch (self._) { case 'Maybe.some': - var $11381 = self.value; - var $11382 = Parser$Reply$error$(Parser$Error$combine$($11381, $11379)); - var $11380 = $11382; + var $11493 = self.value; + var $11494 = Parser$Reply$error$(Parser$Error$combine$($11493, $11491)); + var $11492 = $11494; break; case 'Maybe.none': - var $11383 = Parser$Reply$error$($11379); - var $11380 = $11383; + var $11495 = Parser$Reply$error$($11491); + var $11492 = $11495; break; }; - var $11378 = $11380; + var $11490 = $11492; break; case 'Parser.Reply.value': - var $11384 = self.pst; - var $11385 = self.val; - var self = $11384; + var $11496 = self.pst; + var $11497 = self.val; + var self = $11496; switch (self._) { case 'Parser.State.new': - var $11387 = self.err; - var $11388 = self.nam; - var $11389 = self.ini; - var $11390 = self.idx; - var $11391 = self.str; - var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($11377, $11387), $11388, $11389, $11390, $11391); - var _args$61 = List$flatten$($11385); + var $11499 = self.err; + var $11500 = self.nam; + var $11501 = self.ini; + var $11502 = self.idx; + var $11503 = self.str; + var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($11489, $11499), $11500, $11501, $11502, $11503); + var _args$61 = List$flatten$($11497); var self = _reply$pst$60; switch (self._) { case 'Parser.State.new': - var $11393 = self.err; + var $11505 = self.err; var _reply$67 = Kind$Parser$text$(":", _reply$pst$60); var self = _reply$67; switch (self._) { case 'Parser.Reply.error': - var $11395 = self.err; - var self = $11393; + var $11507 = self.err; + var self = $11505; switch (self._) { case 'Maybe.some': - var $11397 = self.value; - var $11398 = Parser$Reply$error$(Parser$Error$combine$($11397, $11395)); - var $11396 = $11398; + var $11509 = self.value; + var $11510 = Parser$Reply$error$(Parser$Error$combine$($11509, $11507)); + var $11508 = $11510; break; case 'Maybe.none': - var $11399 = Parser$Reply$error$($11395); - var $11396 = $11399; + var $11511 = Parser$Reply$error$($11507); + var $11508 = $11511; break; }; - var $11394 = $11396; + var $11506 = $11508; break; case 'Parser.Reply.value': - var $11400 = self.pst; - var self = $11400; + var $11512 = self.pst; + var self = $11512; switch (self._) { case 'Parser.State.new': - var $11402 = self.err; - var $11403 = self.nam; - var $11404 = self.ini; - var $11405 = self.idx; - var $11406 = self.str; - var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($11393, $11402), $11403, $11404, $11405, $11406); + var $11514 = self.err; + var $11515 = self.nam; + var $11516 = self.ini; + var $11517 = self.idx; + var $11518 = self.str; + var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($11505, $11514), $11515, $11516, $11517, $11518); var self = _reply$pst$75; switch (self._) { case 'Parser.State.new': - var $11408 = self.err; + var $11520 = self.err; var _reply$81 = Kind$Parser$term(_reply$pst$75); var self = _reply$81; switch (self._) { case 'Parser.Reply.error': - var $11410 = self.err; - var self = $11408; + var $11522 = self.err; + var self = $11520; switch (self._) { case 'Maybe.some': - var $11412 = self.value; - var $11413 = Parser$Reply$error$(Parser$Error$combine$($11412, $11410)); - var $11411 = $11413; + var $11524 = self.value; + var $11525 = Parser$Reply$error$(Parser$Error$combine$($11524, $11522)); + var $11523 = $11525; break; case 'Maybe.none': - var $11414 = Parser$Reply$error$($11410); - var $11411 = $11414; + var $11526 = Parser$Reply$error$($11522); + var $11523 = $11526; break; }; - var $11409 = $11411; + var $11521 = $11523; break; case 'Parser.Reply.value': - var $11415 = self.pst; - var $11416 = self.val; - var self = $11415; + var $11527 = self.pst; + var $11528 = self.val; + var self = $11527; switch (self._) { case 'Parser.State.new': - var $11418 = self.err; - var $11419 = self.nam; - var $11420 = self.ini; - var $11421 = self.idx; - var $11422 = self.str; - var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($11408, $11418), $11419, $11420, $11421, $11422); + var $11530 = self.err; + var $11531 = self.nam; + var $11532 = self.ini; + var $11533 = self.idx; + var $11534 = self.str; + var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($11520, $11530), $11531, $11532, $11533, $11534); var self = _reply$pst$89; switch (self._) { case 'Parser.State.new': - var $11424 = self.err; + var $11536 = self.err; var _reply$95 = Kind$Parser$term(_reply$pst$89); var self = _reply$95; switch (self._) { case 'Parser.Reply.error': - var $11426 = self.err; - var self = $11424; + var $11538 = self.err; + var self = $11536; switch (self._) { case 'Maybe.some': - var $11428 = self.value; - var $11429 = Parser$Reply$error$(Parser$Error$combine$($11428, $11426)); - var $11427 = $11429; + var $11540 = self.value; + var $11541 = Parser$Reply$error$(Parser$Error$combine$($11540, $11538)); + var $11539 = $11541; break; case 'Maybe.none': - var $11430 = Parser$Reply$error$($11426); - var $11427 = $11430; + var $11542 = Parser$Reply$error$($11538); + var $11539 = $11542; break; }; - var $11425 = $11427; + var $11537 = $11539; break; case 'Parser.Reply.value': - var $11431 = self.pst; - var $11432 = self.val; - var self = $11431; + var $11543 = self.pst; + var $11544 = self.val; + var self = $11543; switch (self._) { case 'Parser.State.new': - var $11434 = self.err; - var $11435 = self.nam; - var $11436 = self.ini; - var $11437 = self.idx; - var $11438 = self.str; - var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($11424, $11434), $11435, $11436, $11437, $11438); + var $11546 = self.err; + var $11547 = self.nam; + var $11548 = self.ini; + var $11549 = self.idx; + var $11550 = self.str; + var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($11536, $11546), $11547, $11548, $11549, $11550); var self = _reply$pst$103; switch (self._) { case 'Parser.State.new': - var $11440 = self.err; + var $11552 = self.err; var _reply$109 = Parser$get_idx$(_reply$pst$103); var self = _reply$109; switch (self._) { case 'Parser.Reply.error': - var $11442 = self.err; - var self = $11440; + var $11554 = self.err; + var self = $11552; switch (self._) { case 'Maybe.some': - var $11444 = self.value; - var $11445 = Parser$Reply$error$(Parser$Error$combine$($11444, $11442)); - var $11443 = $11445; + var $11556 = self.value; + var $11557 = Parser$Reply$error$(Parser$Error$combine$($11556, $11554)); + var $11555 = $11557; break; case 'Maybe.none': - var $11446 = Parser$Reply$error$($11442); - var $11443 = $11446; + var $11558 = Parser$Reply$error$($11554); + var $11555 = $11558; break; }; - var $11441 = $11443; + var $11553 = $11555; break; case 'Parser.Reply.value': - var $11447 = self.pst; - var $11448 = self.val; - var self = $11447; + var $11559 = self.pst; + var $11560 = self.val; + var self = $11559; switch (self._) { case 'Parser.State.new': - var $11450 = self.err; - var $11451 = self.nam; - var $11452 = self.ini; - var $11453 = self.idx; - var $11454 = self.str; - var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($11440, $11450), $11451, $11452, $11453, $11454); - var _orig$118 = Pair$new$($11353, $11448); + var $11562 = self.err; + var $11563 = self.nam; + var $11564 = self.ini; + var $11565 = self.idx; + var $11566 = self.str; + var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($11552, $11562), $11563, $11564, $11565, $11566); + var _orig$118 = Pair$new$($11465, $11560); var _arit$119 = (list_length(_args$61)); - var _type$120 = Kind$Parser$forall$make$(_args$61, $11416); + var _type$120 = Kind$Parser$forall$make$(_args$61, $11528); var _term$121 = Kind$Parser$lambda$make$(List$mapped$(_args$61, (_x$121 => { var self = _x$121; switch (self._) { case 'Kind.Binder.new': - var $11457 = self.name; - var $11458 = $11457; - var $11456 = $11458; + var $11569 = self.name; + var $11570 = $11569; + var $11568 = $11570; break; }; - return $11456; - })), $11432); + return $11568; + })), $11544); var _type$122 = Kind$Term$bind$(List$nil, (_x$122 => { - var $11459 = (_x$122 + '1'); - return $11459; + var $11571 = (_x$122 + '1'); + return $11571; }), _type$120); var _term$123 = Kind$Term$bind$(List$nil, (_x$123 => { - var $11460 = (_x$123 + '0'); - return $11460; + var $11572 = (_x$123 + '0'); + return $11572; }), _term$121); - var _defs$124 = Kind$Map$def$(_file$1, _code$2, _orig$118, $11369, _term$123, _type$122, Bool$false, _arit$119, Bool$false, _defs$3); - var $11455 = Parser$Reply$value$(_reply$pst$117, _defs$124); - var $11449 = $11455; + var _defs$124 = Kind$Map$def$(_file$1, _code$2, _orig$118, $11481, _term$123, _type$122, Bool$false, _arit$119, Bool$false, _defs$3); + var $11567 = Parser$Reply$value$(_reply$pst$117, _defs$124); + var $11561 = $11567; break; }; - var $11441 = $11449; + var $11553 = $11561; break; }; - var $11439 = $11441; + var $11551 = $11553; break; }; - var $11433 = $11439; + var $11545 = $11551; break; }; - var $11425 = $11433; + var $11537 = $11545; break; }; - var $11423 = $11425; + var $11535 = $11537; break; }; - var $11417 = $11423; + var $11529 = $11535; break; }; - var $11409 = $11417; + var $11521 = $11529; break; }; - var $11407 = $11409; + var $11519 = $11521; break; }; - var $11401 = $11407; + var $11513 = $11519; break; }; - var $11394 = $11401; + var $11506 = $11513; break; }; - var $11392 = $11394; + var $11504 = $11506; break; }; - var $11386 = $11392; + var $11498 = $11504; break; }; - var $11378 = $11386; + var $11490 = $11498; break; }; - var $11376 = $11378; + var $11488 = $11490; break; }; - var $11370 = $11376; + var $11482 = $11488; break; }; - var $11362 = $11370; + var $11474 = $11482; break; }; - var $11360 = $11362; + var $11472 = $11474; break; }; - var $11354 = $11360; + var $11466 = $11472; break; }; - var $11346 = $11354; + var $11458 = $11466; break; }; - var $11344 = $11346; + var $11456 = $11458; break; }; - var $11338 = $11344; + var $11450 = $11456; break; }; - var $11331 = $11338; + var $11443 = $11450; break; }; - var $11329 = $11331; + var $11441 = $11443; break; }; - return $11329; + return $11441; }; 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 $11461 = ({ + var $11573 = ({ _: 'Kind.Parser.ADT.Constructor.new', 'name': _name$1, 'args': _args$2, 'inds': _inds$3 }); - return $11461; + return $11573; }; const Kind$Parser$ADT$Constructor$new = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$new$(x0, x1, x2); @@ -35796,190 +36115,190 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11463 = self.err; + var $11575 = self.err; var _reply$8 = Kind$Parser$name1$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $11465 = self.err; - var self = $11463; + var $11577 = self.err; + var self = $11575; switch (self._) { case 'Maybe.some': - var $11467 = self.value; - var $11468 = Parser$Reply$error$(Parser$Error$combine$($11467, $11465)); - var $11466 = $11468; + var $11579 = self.value; + var $11580 = Parser$Reply$error$(Parser$Error$combine$($11579, $11577)); + var $11578 = $11580; break; case 'Maybe.none': - var $11469 = Parser$Reply$error$($11465); - var $11466 = $11469; + var $11581 = Parser$Reply$error$($11577); + var $11578 = $11581; break; }; - var $11464 = $11466; + var $11576 = $11578; break; case 'Parser.Reply.value': - var $11470 = self.pst; - var $11471 = self.val; - var self = $11470; + var $11582 = self.pst; + var $11583 = self.val; + var self = $11582; switch (self._) { case 'Parser.State.new': - var $11473 = self.err; - var $11474 = self.nam; - var $11475 = self.ini; - var $11476 = self.idx; - var $11477 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($11463, $11473), $11474, $11475, $11476, $11477); + var $11585 = self.err; + var $11586 = self.nam; + var $11587 = self.ini; + var $11588 = self.idx; + var $11589 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($11575, $11585), $11586, $11587, $11588, $11589); var self = _reply$pst$16; switch (self._) { case 'Parser.State.new': - var $11479 = self.err; + var $11591 = self.err; var _reply$22 = Parser$maybe$(Kind$Parser$binder(":")(Bool$false), _reply$pst$16); var self = _reply$22; switch (self._) { case 'Parser.Reply.error': - var $11481 = self.err; - var self = $11479; + var $11593 = self.err; + var self = $11591; switch (self._) { case 'Maybe.some': - var $11483 = self.value; - var $11484 = Parser$Reply$error$(Parser$Error$combine$($11483, $11481)); - var $11482 = $11484; + var $11595 = self.value; + var $11596 = Parser$Reply$error$(Parser$Error$combine$($11595, $11593)); + var $11594 = $11596; break; case 'Maybe.none': - var $11485 = Parser$Reply$error$($11481); - var $11482 = $11485; + var $11597 = Parser$Reply$error$($11593); + var $11594 = $11597; break; }; - var $11480 = $11482; + var $11592 = $11594; break; case 'Parser.Reply.value': - var $11486 = self.pst; - var $11487 = self.val; - var self = $11486; + var $11598 = self.pst; + var $11599 = self.val; + var self = $11598; switch (self._) { case 'Parser.State.new': - var $11489 = self.err; - var $11490 = self.nam; - var $11491 = self.ini; - var $11492 = self.idx; - var $11493 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($11479, $11489), $11490, $11491, $11492, $11493); + var $11601 = self.err; + var $11602 = self.nam; + var $11603 = self.ini; + var $11604 = self.idx; + var $11605 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($11591, $11601), $11602, $11603, $11604, $11605); var self = _reply$pst$30; switch (self._) { case 'Parser.State.new': - var $11495 = self.err; + var $11607 = self.err; var _reply$36 = Parser$maybe$((_pst$36 => { var self = _pst$36; switch (self._) { case 'Parser.State.new': - var $11498 = self.err; + var $11610 = self.err; var _reply$42 = Kind$Parser$text$("~", _pst$36); var self = _reply$42; switch (self._) { case 'Parser.Reply.error': - var $11500 = self.err; - var self = $11498; + var $11612 = self.err; + var self = $11610; switch (self._) { case 'Maybe.some': - var $11502 = self.value; - var $11503 = Parser$Reply$error$(Parser$Error$combine$($11502, $11500)); - var $11501 = $11503; + var $11614 = self.value; + var $11615 = Parser$Reply$error$(Parser$Error$combine$($11614, $11612)); + var $11613 = $11615; break; case 'Maybe.none': - var $11504 = Parser$Reply$error$($11500); - var $11501 = $11504; + var $11616 = Parser$Reply$error$($11612); + var $11613 = $11616; break; }; - var $11499 = $11501; + var $11611 = $11613; break; case 'Parser.Reply.value': - var $11505 = self.pst; - var self = $11505; + var $11617 = self.pst; + var self = $11617; switch (self._) { case 'Parser.State.new': - var $11507 = self.err; - var $11508 = self.nam; - var $11509 = self.ini; - var $11510 = self.idx; - var $11511 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11498, $11507), $11508, $11509, $11510, $11511); - var $11512 = Kind$Parser$binder$("=", Bool$false, _reply$pst$50); - var $11506 = $11512; + var $11619 = self.err; + var $11620 = self.nam; + var $11621 = self.ini; + var $11622 = self.idx; + var $11623 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11610, $11619), $11620, $11621, $11622, $11623); + var $11624 = Kind$Parser$binder$("=", Bool$false, _reply$pst$50); + var $11618 = $11624; break; }; - var $11499 = $11506; + var $11611 = $11618; break; }; - var $11497 = $11499; + var $11609 = $11611; break; }; - return $11497; + return $11609; }), _reply$pst$30); var self = _reply$36; switch (self._) { case 'Parser.Reply.error': - var $11513 = self.err; - var self = $11495; + var $11625 = self.err; + var self = $11607; switch (self._) { case 'Maybe.some': - var $11515 = self.value; - var $11516 = Parser$Reply$error$(Parser$Error$combine$($11515, $11513)); - var $11514 = $11516; + var $11627 = self.value; + var $11628 = Parser$Reply$error$(Parser$Error$combine$($11627, $11625)); + var $11626 = $11628; break; case 'Maybe.none': - var $11517 = Parser$Reply$error$($11513); - var $11514 = $11517; + var $11629 = Parser$Reply$error$($11625); + var $11626 = $11629; break; }; - var $11496 = $11514; + var $11608 = $11626; break; case 'Parser.Reply.value': - var $11518 = self.pst; - var $11519 = self.val; - var self = $11518; + var $11630 = self.pst; + var $11631 = self.val; + var self = $11630; switch (self._) { case 'Parser.State.new': - var $11521 = self.err; - var $11522 = self.nam; - var $11523 = self.ini; - var $11524 = self.idx; - var $11525 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($11495, $11521), $11522, $11523, $11524, $11525); - var _args$45 = Maybe$default$($11487, List$nil); - var _inds$46 = Maybe$default$($11519, List$nil); - var $11526 = Parser$Reply$value$(_reply$pst$44, Kind$Parser$ADT$Constructor$new$($11471, _args$45, _inds$46)); - var $11520 = $11526; + var $11633 = self.err; + var $11634 = self.nam; + var $11635 = self.ini; + var $11636 = self.idx; + var $11637 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($11607, $11633), $11634, $11635, $11636, $11637); + var _args$45 = Maybe$default$($11599, List$nil); + var _inds$46 = Maybe$default$($11631, List$nil); + var $11638 = Parser$Reply$value$(_reply$pst$44, Kind$Parser$ADT$Constructor$new$($11583, _args$45, _inds$46)); + var $11632 = $11638; break; }; - var $11496 = $11520; + var $11608 = $11632; break; }; - var $11494 = $11496; + var $11606 = $11608; break; }; - var $11488 = $11494; + var $11600 = $11606; break; }; - var $11480 = $11488; + var $11592 = $11600; break; }; - var $11478 = $11480; + var $11590 = $11592; break; }; - var $11472 = $11478; + var $11584 = $11590; break; }; - var $11464 = $11472; + var $11576 = $11584; break; }; - var $11462 = $11464; + var $11574 = $11576; break; }; - return $11462; + return $11574; }; 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 $11527 = ({ + var $11639 = ({ _: 'Kind.Parser.ADT.Datatype.new', 'name': _name$1, 'pars': _pars$2, @@ -35987,7 +36306,7 @@ module.exports = (function() { 'ctrs': _ctrs$4, 'deri': _deri$5 }); - return $11527; + return $11639; }; const Kind$Parser$ADT$Datatype$new = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Datatype$new$(x0, x1, x2, x3, x4); @@ -35995,374 +36314,374 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $11529 = self.err; + var $11641 = self.err; var _reply$7 = Kind$Parser$text$("type ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $11531 = self.err; - var self = $11529; + var $11643 = self.err; + var self = $11641; switch (self._) { case 'Maybe.some': - var $11533 = self.value; - var $11534 = Parser$Reply$error$(Parser$Error$combine$($11533, $11531)); - var $11532 = $11534; + var $11645 = self.value; + var $11646 = Parser$Reply$error$(Parser$Error$combine$($11645, $11643)); + var $11644 = $11646; break; case 'Maybe.none': - var $11535 = Parser$Reply$error$($11531); - var $11532 = $11535; + var $11647 = Parser$Reply$error$($11643); + var $11644 = $11647; break; }; - var $11530 = $11532; + var $11642 = $11644; break; case 'Parser.Reply.value': - var $11536 = self.pst; - var self = $11536; + var $11648 = self.pst; + var self = $11648; switch (self._) { case 'Parser.State.new': - var $11538 = self.err; - var $11539 = self.nam; - var $11540 = self.ini; - var $11541 = self.idx; - var $11542 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($11529, $11538), $11539, $11540, $11541, $11542); + var $11650 = self.err; + var $11651 = self.nam; + var $11652 = self.ini; + var $11653 = self.idx; + var $11654 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($11641, $11650), $11651, $11652, $11653, $11654); var self = _reply$pst$15; switch (self._) { case 'Parser.State.new': - var $11544 = self.err; + var $11656 = self.err; var _reply$21 = Kind$Parser$name1$(_reply$pst$15); var self = _reply$21; switch (self._) { case 'Parser.Reply.error': - var $11546 = self.err; - var self = $11544; + var $11658 = self.err; + var self = $11656; switch (self._) { case 'Maybe.some': - var $11548 = self.value; - var $11549 = Parser$Reply$error$(Parser$Error$combine$($11548, $11546)); - var $11547 = $11549; + var $11660 = self.value; + var $11661 = Parser$Reply$error$(Parser$Error$combine$($11660, $11658)); + var $11659 = $11661; break; case 'Maybe.none': - var $11550 = Parser$Reply$error$($11546); - var $11547 = $11550; + var $11662 = Parser$Reply$error$($11658); + var $11659 = $11662; break; }; - var $11545 = $11547; + var $11657 = $11659; break; case 'Parser.Reply.value': - var $11551 = self.pst; - var $11552 = self.val; - var self = $11551; + var $11663 = self.pst; + var $11664 = self.val; + var self = $11663; switch (self._) { case 'Parser.State.new': - var $11554 = self.err; - var $11555 = self.nam; - var $11556 = self.ini; - var $11557 = self.idx; - var $11558 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($11544, $11554), $11555, $11556, $11557, $11558); + var $11666 = self.err; + var $11667 = self.nam; + var $11668 = self.ini; + var $11669 = self.idx; + var $11670 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($11656, $11666), $11667, $11668, $11669, $11670); var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $11560 = self.err; + var $11672 = self.err; var _reply$35 = Parser$maybe$(Kind$Parser$binder(":")(Bool$false), _reply$pst$29); var self = _reply$35; switch (self._) { case 'Parser.Reply.error': - var $11562 = self.err; - var self = $11560; + var $11674 = self.err; + var self = $11672; switch (self._) { case 'Maybe.some': - var $11564 = self.value; - var $11565 = Parser$Reply$error$(Parser$Error$combine$($11564, $11562)); - var $11563 = $11565; + var $11676 = self.value; + var $11677 = Parser$Reply$error$(Parser$Error$combine$($11676, $11674)); + var $11675 = $11677; break; case 'Maybe.none': - var $11566 = Parser$Reply$error$($11562); - var $11563 = $11566; + var $11678 = Parser$Reply$error$($11674); + var $11675 = $11678; break; }; - var $11561 = $11563; + var $11673 = $11675; break; case 'Parser.Reply.value': - var $11567 = self.pst; - var $11568 = self.val; - var self = $11567; + var $11679 = self.pst; + var $11680 = self.val; + var self = $11679; switch (self._) { case 'Parser.State.new': - var $11570 = self.err; - var $11571 = self.nam; - var $11572 = self.ini; - var $11573 = self.idx; - var $11574 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($11560, $11570), $11571, $11572, $11573, $11574); + var $11682 = self.err; + var $11683 = self.nam; + var $11684 = self.ini; + var $11685 = self.idx; + var $11686 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($11672, $11682), $11683, $11684, $11685, $11686); var self = _reply$pst$43; switch (self._) { case 'Parser.State.new': - var $11576 = self.err; + var $11688 = self.err; var _reply$49 = Parser$maybe$((_pst$49 => { var self = _pst$49; switch (self._) { case 'Parser.State.new': - var $11579 = self.err; + var $11691 = self.err; var _reply$55 = Kind$Parser$text$("~", _pst$49); var self = _reply$55; switch (self._) { case 'Parser.Reply.error': - var $11581 = self.err; - var self = $11579; + var $11693 = self.err; + var self = $11691; switch (self._) { case 'Maybe.some': - var $11583 = self.value; - var $11584 = Parser$Reply$error$(Parser$Error$combine$($11583, $11581)); - var $11582 = $11584; + var $11695 = self.value; + var $11696 = Parser$Reply$error$(Parser$Error$combine$($11695, $11693)); + var $11694 = $11696; break; case 'Maybe.none': - var $11585 = Parser$Reply$error$($11581); - var $11582 = $11585; + var $11697 = Parser$Reply$error$($11693); + var $11694 = $11697; break; }; - var $11580 = $11582; + var $11692 = $11694; break; case 'Parser.Reply.value': - var $11586 = self.pst; - var self = $11586; + var $11698 = self.pst; + var self = $11698; switch (self._) { case 'Parser.State.new': - var $11588 = self.err; - var $11589 = self.nam; - var $11590 = self.ini; - var $11591 = self.idx; - var $11592 = self.str; - var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($11579, $11588), $11589, $11590, $11591, $11592); - var $11593 = Kind$Parser$binder$(":", Bool$false, _reply$pst$63); - var $11587 = $11593; + var $11700 = self.err; + var $11701 = self.nam; + var $11702 = self.ini; + var $11703 = self.idx; + var $11704 = self.str; + var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($11691, $11700), $11701, $11702, $11703, $11704); + var $11705 = Kind$Parser$binder$(":", Bool$false, _reply$pst$63); + var $11699 = $11705; break; }; - var $11580 = $11587; + var $11692 = $11699; break; }; - var $11578 = $11580; + var $11690 = $11692; break; }; - return $11578; + return $11690; }), _reply$pst$43); var self = _reply$49; switch (self._) { case 'Parser.Reply.error': - var $11594 = self.err; - var self = $11576; + var $11706 = self.err; + var self = $11688; switch (self._) { case 'Maybe.some': - var $11596 = self.value; - var $11597 = Parser$Reply$error$(Parser$Error$combine$($11596, $11594)); - var $11595 = $11597; + var $11708 = self.value; + var $11709 = Parser$Reply$error$(Parser$Error$combine$($11708, $11706)); + var $11707 = $11709; break; case 'Maybe.none': - var $11598 = Parser$Reply$error$($11594); - var $11595 = $11598; + var $11710 = Parser$Reply$error$($11706); + var $11707 = $11710; break; }; - var $11577 = $11595; + var $11689 = $11707; break; case 'Parser.Reply.value': - var $11599 = self.pst; - var $11600 = self.val; - var self = $11599; + var $11711 = self.pst; + var $11712 = self.val; + var self = $11711; switch (self._) { case 'Parser.State.new': - var $11602 = self.err; - var $11603 = self.nam; - var $11604 = self.ini; - var $11605 = self.idx; - var $11606 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($11576, $11602), $11603, $11604, $11605, $11606); - var _pars$58 = Maybe$default$($11568, List$nil); - var _inds$59 = Maybe$default$($11600, List$nil); + var $11714 = self.err; + var $11715 = self.nam; + var $11716 = self.ini; + var $11717 = self.idx; + var $11718 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($11688, $11714), $11715, $11716, $11717, $11718); + var _pars$58 = Maybe$default$($11680, List$nil); + var _inds$59 = Maybe$default$($11712, List$nil); var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $11608 = self.err; - var _reply$65 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($11552), "}")(_reply$pst$57); + var $11720 = self.err; + var _reply$65 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($11664), "}")(_reply$pst$57); var self = _reply$65; switch (self._) { case 'Parser.Reply.error': - var $11610 = self.err; - var self = $11608; + var $11722 = self.err; + var self = $11720; switch (self._) { case 'Maybe.some': - var $11612 = self.value; - var $11613 = Parser$Reply$error$(Parser$Error$combine$($11612, $11610)); - var $11611 = $11613; + var $11724 = self.value; + var $11725 = Parser$Reply$error$(Parser$Error$combine$($11724, $11722)); + var $11723 = $11725; break; case 'Maybe.none': - var $11614 = Parser$Reply$error$($11610); - var $11611 = $11614; + var $11726 = Parser$Reply$error$($11722); + var $11723 = $11726; break; }; - var $11609 = $11611; + var $11721 = $11723; break; case 'Parser.Reply.value': - var $11615 = self.pst; - var $11616 = self.val; - var self = $11615; + var $11727 = self.pst; + var $11728 = self.val; + var self = $11727; switch (self._) { case 'Parser.State.new': - var $11618 = self.err; - var $11619 = self.nam; - var $11620 = self.ini; - var $11621 = self.idx; - var $11622 = self.str; - var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($11608, $11618), $11619, $11620, $11621, $11622); + var $11730 = self.err; + var $11731 = self.nam; + var $11732 = self.ini; + var $11733 = self.idx; + var $11734 = self.str; + var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($11720, $11730), $11731, $11732, $11733, $11734); var self = _reply$pst$73; switch (self._) { case 'Parser.State.new': - var $11624 = self.err; + var $11736 = self.err; var _reply$79 = Parser$maybe$((_pst$79 => { var self = _pst$79; switch (self._) { case 'Parser.State.new': - var $11627 = self.err; + var $11739 = self.err; var _reply$85 = Kind$Parser$text$("deriving", _pst$79); var self = _reply$85; switch (self._) { case 'Parser.Reply.error': - var $11629 = self.err; - var self = $11627; + var $11741 = self.err; + var self = $11739; switch (self._) { case 'Maybe.some': - var $11631 = self.value; - var $11632 = Parser$Reply$error$(Parser$Error$combine$($11631, $11629)); - var $11630 = $11632; + var $11743 = self.value; + var $11744 = Parser$Reply$error$(Parser$Error$combine$($11743, $11741)); + var $11742 = $11744; break; case 'Maybe.none': - var $11633 = Parser$Reply$error$($11629); - var $11630 = $11633; + var $11745 = Parser$Reply$error$($11741); + var $11742 = $11745; break; }; - var $11628 = $11630; + var $11740 = $11742; break; case 'Parser.Reply.value': - var $11634 = self.pst; - var self = $11634; + var $11746 = self.pst; + var self = $11746; switch (self._) { case 'Parser.State.new': - var $11636 = self.err; - var $11637 = self.nam; - var $11638 = self.ini; - var $11639 = self.idx; - var $11640 = self.str; - var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($11627, $11636), $11637, $11638, $11639, $11640); - var $11641 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$93); - var $11635 = $11641; + var $11748 = self.err; + var $11749 = self.nam; + var $11750 = self.ini; + var $11751 = self.idx; + var $11752 = self.str; + var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($11739, $11748), $11749, $11750, $11751, $11752); + var $11753 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$93); + var $11747 = $11753; break; }; - var $11628 = $11635; + var $11740 = $11747; break; }; - var $11626 = $11628; + var $11738 = $11740; break; }; - return $11626; + return $11738; }), _reply$pst$73); var self = _reply$79; switch (self._) { case 'Parser.Reply.error': - var $11642 = self.err; - var self = $11624; + var $11754 = self.err; + var self = $11736; switch (self._) { case 'Maybe.some': - var $11644 = self.value; - var $11645 = Parser$Reply$error$(Parser$Error$combine$($11644, $11642)); - var $11643 = $11645; + var $11756 = self.value; + var $11757 = Parser$Reply$error$(Parser$Error$combine$($11756, $11754)); + var $11755 = $11757; break; case 'Maybe.none': - var $11646 = Parser$Reply$error$($11642); - var $11643 = $11646; + var $11758 = Parser$Reply$error$($11754); + var $11755 = $11758; break; }; - var $11625 = $11643; + var $11737 = $11755; break; case 'Parser.Reply.value': - var $11647 = self.pst; - var $11648 = self.val; - var self = $11647; + var $11759 = self.pst; + var $11760 = self.val; + var self = $11759; switch (self._) { case 'Parser.State.new': - var $11650 = self.err; - var $11651 = self.nam; - var $11652 = self.ini; - var $11653 = self.idx; - var $11654 = self.str; - var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($11624, $11650), $11651, $11652, $11653, $11654); - var self = $11648; + var $11762 = self.err; + var $11763 = self.nam; + var $11764 = self.ini; + var $11765 = self.idx; + var $11766 = self.str; + var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($11736, $11762), $11763, $11764, $11765, $11766); + var self = $11760; switch (self._) { case 'Maybe.some': - var $11656 = self.value; - var $11657 = $11656; - var _deri$88 = $11657; + var $11768 = self.value; + var $11769 = $11768; + var _deri$88 = $11769; break; case 'Maybe.none': - var $11658 = List$nil; - var _deri$88 = $11658; + var $11770 = List$nil; + var _deri$88 = $11770; break; }; - var $11655 = Parser$Reply$value$(_reply$pst$87, Kind$Parser$ADT$Datatype$new$($11552, _pars$58, _inds$59, $11616, _deri$88)); - var $11649 = $11655; + var $11767 = Parser$Reply$value$(_reply$pst$87, Kind$Parser$ADT$Datatype$new$($11664, _pars$58, _inds$59, $11728, _deri$88)); + var $11761 = $11767; break; }; - var $11625 = $11649; + var $11737 = $11761; break; }; - var $11623 = $11625; + var $11735 = $11737; break; }; - var $11617 = $11623; + var $11729 = $11735; break; }; - var $11609 = $11617; + var $11721 = $11729; break; }; - var $11607 = $11609; + var $11719 = $11721; break; }; - var $11601 = $11607; + var $11713 = $11719; break; }; - var $11577 = $11601; + var $11689 = $11713; break; }; - var $11575 = $11577; + var $11687 = $11689; break; }; - var $11569 = $11575; + var $11681 = $11687; break; }; - var $11561 = $11569; + var $11673 = $11681; break; }; - var $11559 = $11561; + var $11671 = $11673; break; }; - var $11553 = $11559; + var $11665 = $11671; break; }; - var $11545 = $11553; + var $11657 = $11665; break; }; - var $11543 = $11545; + var $11655 = $11657; break; }; - var $11537 = $11543; + var $11649 = $11655; break; }; - var $11530 = $11537; + var $11642 = $11649; break; }; - var $11528 = $11530; + var $11640 = $11642; break; }; - return $11528; + return $11640; }; const Kind$Parser$ADT$adt = x0 => Kind$Parser$ADT$adt$(x0); @@ -36370,83 +36689,83 @@ module.exports = (function() { var self = _inds$3; switch (self._) { case 'List.cons': - var $11660 = self.head; - var $11661 = self.tail; - var self = $11660; + var $11772 = self.head; + var $11773 = self.tail; + var self = $11772; switch (self._) { case 'Kind.Binder.new': - var $11663 = self.eras; - var $11664 = self.name; - var $11665 = self.term; - var $11666 = Kind$Term$all$($11663, "", $11664, $11665, (_s$9 => _x$10 => { - var $11667 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $11661); - return $11667; + var $11775 = self.eras; + var $11776 = self.name; + var $11777 = self.term; + var $11778 = Kind$Term$all$($11775, "", $11776, $11777, (_s$9 => _x$10 => { + var $11779 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $11773); + return $11779; })); - var $11662 = $11666; + var $11774 = $11778; break; }; - var $11659 = $11662; + var $11771 = $11774; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11669 = self.pars; - var $11670 = self.inds; + var $11781 = self.pars; + var $11782 = self.inds; var _slf$9 = Kind$Term$ref$(_name$2); var _slf$10 = (() => { - var $11673 = _slf$9; - var $11674 = $11669; - let _slf$11 = $11673; + var $11785 = _slf$9; + var $11786 = $11781; + let _slf$11 = $11785; let _v$10; - while ($11674._ === 'List.cons') { - _v$10 = $11674.head; - var $11673 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { + while ($11786._ === 'List.cons') { + _v$10 = $11786.head; + var $11785 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $11675 = self.name; - var $11676 = $11675; - return $11676; + var $11787 = self.name; + var $11788 = $11787; + return $11788; }; })())); - _slf$11 = $11673; - $11674 = $11674.tail; + _slf$11 = $11785; + $11786 = $11786.tail; } return _slf$11; })(); var _slf$11 = (() => { - var $11678 = _slf$10; - var $11679 = $11670; - let _slf$12 = $11678; + var $11790 = _slf$10; + var $11791 = $11782; + let _slf$12 = $11790; let _v$11; - while ($11679._ === 'List.cons') { - _v$11 = $11679.head; - var $11678 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { + while ($11791._ === 'List.cons') { + _v$11 = $11791.head; + var $11790 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { var self = _v$11; switch (self._) { case 'Kind.Binder.new': - var $11680 = self.name; - var $11681 = $11680; - return $11681; + var $11792 = self.name; + var $11793 = $11792; + return $11793; }; })())); - _slf$12 = $11678; - $11679 = $11679.tail; + _slf$12 = $11790; + $11791 = $11791.tail; } return _slf$12; })(); - var $11671 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { - var $11682 = Kind$Term$typ; - return $11682; + var $11783 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { + var $11794 = Kind$Term$typ; + return $11794; })); - var $11668 = $11671; + var $11780 = $11783; break; }; - var $11659 = $11668; + var $11771 = $11780; break; }; - return $11659; + return $11771; }; const Kind$Parser$ADT$Datatype$build_term$motive$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$motive$go$(x0, x1, x2); @@ -36454,13 +36773,13 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11684 = self.name; - var $11685 = self.inds; - var $11686 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $11684, $11685); - var $11683 = $11686; + var $11796 = self.name; + var $11797 = self.inds; + var $11798 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $11796, $11797); + var $11795 = $11798; break; }; - return $11683; + return $11795; }; const Kind$Parser$ADT$Datatype$build_term$motive = x0 => Kind$Parser$ADT$Datatype$build_term$motive$(x0); @@ -36477,13 +36796,13 @@ module.exports = (function() { var self = _xs$1; switch (self._) { case 'List.cons': - var $11687 = self.head; - var $11688 = self.tail; - var $11689 = String$flatten$go$($11688, (_res$2 + $11687)); - return $11689; + var $11799 = self.head; + var $11800 = self.tail; + var $11801 = String$flatten$go$($11800, (_res$2 + $11799)); + return $11801; case 'List.nil': - var $11690 = _res$2; - return $11690; + var $11802 = _res$2; + return $11802; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -36493,8 +36812,8 @@ module.exports = (function() { const String$flatten$go = x0 => x1 => String$flatten$go$(x0, x1); function String$flatten$(_xs$1) { - var $11691 = String$flatten$go$(_xs$1, ""); - return $11691; + var $11803 = String$flatten$go$(_xs$1, ""); + return $11803; }; const String$flatten = x0 => String$flatten$(x0); @@ -36502,116 +36821,116 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $11693 = self.head; - var $11694 = self.tail; - var self = $11693; + var $11805 = self.head; + var $11806 = self.tail; + var self = $11805; switch (self._) { case 'Kind.Binder.new': - var $11696 = self.eras; - var $11697 = self.name; - var $11698 = self.term; - var _eras$9 = $11696; - var _name$10 = $11697; - var _xtyp$11 = $11698; - var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11694); - var $11699 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { - var $11700 = _body$12; - return $11700; + var $11808 = self.eras; + var $11809 = self.name; + var $11810 = self.term; + var _eras$9 = $11808; + var _name$10 = $11809; + var _xtyp$11 = $11810; + var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11806); + var $11811 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { + var $11812 = _body$12; + return $11812; })); - var $11695 = $11699; + var $11807 = $11811; break; }; - var $11692 = $11695; + var $11804 = $11807; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11702 = self.name; - var $11703 = self.pars; + var $11814 = self.name; + var $11815 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11705 = self.name; - var $11706 = self.args; - var $11707 = self.inds; + var $11817 = self.name; + var $11818 = self.args; + var $11819 = self.inds; var _ret$12 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$13 = (() => { - var $11710 = _ret$12; - var $11711 = $11707; - let _ret$14 = $11710; + var $11822 = _ret$12; + var $11823 = $11819; + let _ret$14 = $11822; let _v$13; - while ($11711._ === 'List.cons') { - _v$13 = $11711.head; - var $11710 = Kind$Term$app$(_ret$14, (() => { + while ($11823._ === 'List.cons') { + _v$13 = $11823.head; + var $11822 = Kind$Term$app$(_ret$14, (() => { var self = _v$13; switch (self._) { case 'Kind.Binder.new': - var $11712 = self.term; - var $11713 = $11712; - return $11713; + var $11824 = self.term; + var $11825 = $11824; + return $11825; }; })()); - _ret$14 = $11710; - $11711 = $11711.tail; + _ret$14 = $11822; + $11823 = $11823.tail; } return _ret$14; })(); - var _ctr$14 = String$flatten$(List$cons$($11702, List$cons$(Kind$Name$read$("."), List$cons$($11705, List$nil)))); + var _ctr$14 = String$flatten$(List$cons$($11814, List$cons$(Kind$Name$read$("."), List$cons$($11817, List$nil)))); var _slf$15 = Kind$Term$ref$(_ctr$14); var _slf$16 = (() => { - var $11715 = _slf$15; - var $11716 = $11703; - let _slf$17 = $11715; + var $11827 = _slf$15; + var $11828 = $11815; + let _slf$17 = $11827; let _v$16; - while ($11716._ === 'List.cons') { - _v$16 = $11716.head; - var $11715 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { + while ($11828._ === 'List.cons') { + _v$16 = $11828.head; + var $11827 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $11717 = self.name; - var $11718 = $11717; - return $11718; + var $11829 = self.name; + var $11830 = $11829; + return $11830; }; })())); - _slf$17 = $11715; - $11716 = $11716.tail; + _slf$17 = $11827; + $11828 = $11828.tail; } return _slf$17; })(); var _slf$17 = (() => { - var $11720 = _slf$16; - var $11721 = $11706; - let _slf$18 = $11720; + var $11832 = _slf$16; + var $11833 = $11818; + let _slf$18 = $11832; let _v$17; - while ($11721._ === 'List.cons') { - _v$17 = $11721.head; - var $11720 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { + while ($11833._ === 'List.cons') { + _v$17 = $11833.head; + var $11832 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { var self = _v$17; switch (self._) { case 'Kind.Binder.new': - var $11722 = self.name; - var $11723 = $11722; - return $11723; + var $11834 = self.name; + var $11835 = $11834; + return $11835; }; })())); - _slf$18 = $11720; - $11721 = $11721.tail; + _slf$18 = $11832; + $11833 = $11833.tail; } return _slf$18; })(); - var $11708 = Kind$Term$app$(_ret$13, _slf$17); - var $11704 = $11708; + var $11820 = Kind$Term$app$(_ret$13, _slf$17); + var $11816 = $11820; break; }; - var $11701 = $11704; + var $11813 = $11816; break; }; - var $11692 = $11701; + var $11804 = $11813; break; }; - return $11692; + return $11804; }; const Kind$Parser$ADT$Datatype$build_term$constructor$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructor$go$(x0, x1, x2); @@ -36619,12 +36938,12 @@ module.exports = (function() { var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11725 = self.args; - var $11726 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11725); - var $11724 = $11726; + var $11837 = self.args; + var $11838 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11837); + var $11836 = $11838; break; }; - return $11724; + return $11836; }; const Kind$Parser$ADT$Datatype$build_term$constructor = x0 => x1 => Kind$Parser$ADT$Datatype$build_term$constructor$(x0, x1); @@ -36632,56 +36951,56 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $11728 = self.head; - var $11729 = self.tail; - var self = $11728; + var $11840 = self.head; + var $11841 = self.tail; + var self = $11840; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11731 = self.name; - var $11732 = Kind$Term$all$(Bool$false, "", $11731, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $11728), (_s$9 => _x$10 => { - var $11733 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $11729); - return $11733; + var $11843 = self.name; + var $11844 = Kind$Term$all$(Bool$false, "", $11843, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $11840), (_s$9 => _x$10 => { + var $11845 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $11841); + return $11845; })); - var $11730 = $11732; + var $11842 = $11844; break; }; - var $11727 = $11730; + var $11839 = $11842; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11735 = self.inds; + var $11847 = self.inds; var _ret$9 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$10 = (() => { - var $11738 = _ret$9; - var $11739 = $11735; - let _ret$11 = $11738; + var $11850 = _ret$9; + var $11851 = $11847; + let _ret$11 = $11850; let _v$10; - while ($11739._ === 'List.cons') { - _v$10 = $11739.head; - var $11738 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { + while ($11851._ === 'List.cons') { + _v$10 = $11851.head; + var $11850 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $11740 = self.name; - var $11741 = $11740; - return $11741; + var $11852 = self.name; + var $11853 = $11852; + return $11853; }; })())); - _ret$11 = $11738; - $11739 = $11739.tail; + _ret$11 = $11850; + $11851 = $11851.tail; } return _ret$11; })(); - var $11736 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); - var $11734 = $11736; + var $11848 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); + var $11846 = $11848; break; }; - var $11727 = $11734; + var $11839 = $11846; break; }; - return $11727; + return $11839; }; const Kind$Parser$ADT$Datatype$build_term$constructors$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructors$go$(x0, x1, x2); @@ -36689,13 +37008,13 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11743 = self.name; - var $11744 = self.ctrs; - var $11745 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $11743, $11744); - var $11742 = $11745; + var $11855 = self.name; + var $11856 = self.ctrs; + var $11857 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $11855, $11856); + var $11854 = $11857; break; }; - return $11742; + return $11854; }; const Kind$Parser$ADT$Datatype$build_term$constructors = x0 => Kind$Parser$ADT$Datatype$build_term$constructors$(x0); @@ -36703,52 +37022,52 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $11747 = self.head; - var $11748 = self.tail; - var self = $11747; + var $11859 = self.head; + var $11860 = self.tail; + var self = $11859; switch (self._) { case 'Kind.Binder.new': - var $11750 = self.name; - var $11751 = Kind$Term$lam$($11750, (_x$10 => { - var $11752 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $11748, _inds$4); - return $11752; + var $11862 = self.name; + var $11863 = Kind$Term$lam$($11862, (_x$10 => { + var $11864 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $11860, _inds$4); + return $11864; })); - var $11749 = $11751; + var $11861 = $11863; break; }; - var $11746 = $11749; + var $11858 = $11861; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $11754 = self.head; - var $11755 = self.tail; - var self = $11754; + var $11866 = self.head; + var $11867 = self.tail; + var self = $11866; switch (self._) { case 'Kind.Binder.new': - var $11757 = self.name; - var $11758 = Kind$Term$lam$($11757, (_x$10 => { - var $11759 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $11755); - return $11759; + var $11869 = self.name; + var $11870 = Kind$Term$lam$($11869, (_x$10 => { + var $11871 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $11867); + return $11871; })); - var $11756 = $11758; + var $11868 = $11870; break; }; - var $11753 = $11756; + var $11865 = $11868; break; case 'List.nil': - var $11760 = 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 $11761 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); - return $11761; + var $11872 = 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 $11873 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); + return $11873; })); - var $11753 = $11760; + var $11865 = $11872; break; }; - var $11746 = $11753; + var $11858 = $11865; break; }; - return $11746; + return $11858; }; const Kind$Parser$ADT$Datatype$build_term$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_term$go$(x0, x1, x2, x3); @@ -36756,14 +37075,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11763 = self.name; - var $11764 = self.pars; - var $11765 = self.inds; - var $11766 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $11763, $11764, $11765); - var $11762 = $11766; + var $11875 = self.name; + var $11876 = self.pars; + var $11877 = self.inds; + var $11878 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $11875, $11876, $11877); + var $11874 = $11878; break; }; - return $11762; + return $11874; }; const Kind$Parser$ADT$Datatype$build_term = x0 => Kind$Parser$ADT$Datatype$build_term$(x0); @@ -36771,51 +37090,51 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $11768 = self.head; - var $11769 = self.tail; - var self = $11768; + var $11880 = self.head; + var $11881 = self.tail; + var self = $11880; switch (self._) { case 'Kind.Binder.new': - var $11771 = self.name; - var $11772 = self.term; - var $11773 = Kind$Term$all$(Bool$false, "", $11771, $11772, (_s$10 => _x$11 => { - var $11774 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $11769, _inds$4); - return $11774; + var $11883 = self.name; + var $11884 = self.term; + var $11885 = Kind$Term$all$(Bool$false, "", $11883, $11884, (_s$10 => _x$11 => { + var $11886 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $11881, _inds$4); + return $11886; })); - var $11770 = $11773; + var $11882 = $11885; break; }; - var $11767 = $11770; + var $11879 = $11882; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $11776 = self.head; - var $11777 = self.tail; - var self = $11776; + var $11888 = self.head; + var $11889 = self.tail; + var self = $11888; switch (self._) { case 'Kind.Binder.new': - var $11779 = self.name; - var $11780 = self.term; - var $11781 = Kind$Term$all$(Bool$false, "", $11779, $11780, (_s$10 => _x$11 => { - var $11782 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $11777); - return $11782; + var $11891 = self.name; + var $11892 = self.term; + var $11893 = Kind$Term$all$(Bool$false, "", $11891, $11892, (_s$10 => _x$11 => { + var $11894 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $11889); + return $11894; })); - var $11778 = $11781; + var $11890 = $11893; break; }; - var $11775 = $11778; + var $11887 = $11890; break; case 'List.nil': - var $11783 = Kind$Term$typ; - var $11775 = $11783; + var $11895 = Kind$Term$typ; + var $11887 = $11895; break; }; - var $11767 = $11775; + var $11879 = $11887; break; }; - return $11767; + return $11879; }; const Kind$Parser$ADT$Datatype$build_type$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_type$go$(x0, x1, x2, x3); @@ -36823,14 +37142,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11785 = self.name; - var $11786 = self.pars; - var $11787 = self.inds; - var $11788 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $11785, $11786, $11787); - var $11784 = $11788; + var $11897 = self.name; + var $11898 = self.pars; + var $11899 = self.inds; + var $11900 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $11897, $11898, $11899); + var $11896 = $11900; break; }; - return $11784; + return $11896; }; const Kind$Parser$ADT$Datatype$build_type = x0 => Kind$Parser$ADT$Datatype$build_type$(x0); @@ -36838,57 +37157,57 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $11790 = self.head; - var $11791 = self.tail; - var self = $11790; + var $11902 = self.head; + var $11903 = self.tail; + var self = $11902; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11793 = self.name; - var $11794 = Kind$Term$lam$($11793, (_x$9 => { - var $11795 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11791); - return $11795; + var $11905 = self.name; + var $11906 = Kind$Term$lam$($11905, (_x$9 => { + var $11907 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11903); + return $11907; })); - var $11792 = $11794; + var $11904 = $11906; break; }; - var $11789 = $11792; + var $11901 = $11904; break; case 'List.nil': var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11797 = self.name; - var $11798 = self.args; - var _ret$7 = Kind$Term$ref$($11797); + var $11909 = self.name; + var $11910 = self.args; + var _ret$7 = Kind$Term$ref$($11909); var _ret$8 = (() => { - var $11801 = _ret$7; - var $11802 = $11798; - let _ret$9 = $11801; + var $11913 = _ret$7; + var $11914 = $11910; + let _ret$9 = $11913; let _arg$8; - while ($11802._ === 'List.cons') { - _arg$8 = $11802.head; - var $11801 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { + while ($11914._ === 'List.cons') { + _arg$8 = $11914.head; + var $11913 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { var self = _arg$8; switch (self._) { case 'Kind.Binder.new': - var $11803 = self.name; - var $11804 = $11803; - return $11804; + var $11915 = self.name; + var $11916 = $11915; + return $11916; }; })())); - _ret$9 = $11801; - $11802 = $11802.tail; + _ret$9 = $11913; + $11914 = $11914.tail; } return _ret$9; })(); - var $11799 = _ret$8; - var $11796 = $11799; + var $11911 = _ret$8; + var $11908 = $11911; break; }; - var $11789 = $11796; + var $11901 = $11908; break; }; - return $11789; + return $11901; }; const Kind$Parser$ADT$Constructor$build_term$opt$go = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$build_term$opt$go$(x0, x1, x2); @@ -36896,12 +37215,12 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11806 = self.ctrs; - var $11807 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11806); - var $11805 = $11807; + var $11918 = self.ctrs; + var $11919 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11918); + var $11917 = $11919; break; }; - return $11805; + return $11917; }; const Kind$Parser$ADT$Constructor$build_term$opt = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$opt$(x0, x1); @@ -36909,52 +37228,52 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $11809 = self.head; - var $11810 = self.tail; - var self = $11809; + var $11921 = self.head; + var $11922 = self.tail; + var self = $11921; switch (self._) { case 'Kind.Binder.new': - var $11812 = self.name; - var $11813 = Kind$Term$lam$($11812, (_x$11 => { - var $11814 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $11810, _args$5); - return $11814; + var $11924 = self.name; + var $11925 = Kind$Term$lam$($11924, (_x$11 => { + var $11926 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $11922, _args$5); + return $11926; })); - var $11811 = $11813; + var $11923 = $11925; break; }; - var $11808 = $11811; + var $11920 = $11923; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $11816 = self.head; - var $11817 = self.tail; - var self = $11816; + var $11928 = self.head; + var $11929 = self.tail; + var self = $11928; switch (self._) { case 'Kind.Binder.new': - var $11819 = self.name; - var $11820 = Kind$Term$lam$($11819, (_x$11 => { - var $11821 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $11817); - return $11821; + var $11931 = self.name; + var $11932 = Kind$Term$lam$($11931, (_x$11 => { + var $11933 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $11929); + return $11933; })); - var $11818 = $11820; + var $11930 = $11932; break; }; - var $11815 = $11818; + var $11927 = $11930; break; case 'List.nil': - var $11822 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { - var $11823 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); - return $11823; + var $11934 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { + var $11935 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); + return $11935; })); - var $11815 = $11822; + var $11927 = $11934; break; }; - var $11808 = $11815; + var $11920 = $11927; break; }; - return $11808; + return $11920; }; 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); @@ -36962,20 +37281,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11825 = self.name; - var $11826 = self.pars; + var $11937 = self.name; + var $11938 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11828 = self.args; - var $11829 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $11825, $11826, $11828); - var $11827 = $11829; + var $11940 = self.args; + var $11941 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $11937, $11938, $11940); + var $11939 = $11941; break; }; - var $11824 = $11827; + var $11936 = $11939; break; }; - return $11824; + return $11936; }; const Kind$Parser$ADT$Constructor$build_term = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$(x0, x1); @@ -36983,110 +37302,110 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $11831 = self.head; - var $11832 = self.tail; - var self = $11831; + var $11943 = self.head; + var $11944 = self.tail; + var self = $11943; switch (self._) { case 'Kind.Binder.new': - var $11834 = self.eras; - var $11835 = self.name; - var $11836 = self.term; - var $11837 = Kind$Term$all$($11834, "", $11835, $11836, (_s$11 => _x$12 => { - var $11838 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $11832, _args$5); - return $11838; + var $11946 = self.eras; + var $11947 = self.name; + var $11948 = self.term; + var $11949 = Kind$Term$all$($11946, "", $11947, $11948, (_s$11 => _x$12 => { + var $11950 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $11944, _args$5); + return $11950; })); - var $11833 = $11837; + var $11945 = $11949; break; }; - var $11830 = $11833; + var $11942 = $11945; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $11840 = self.head; - var $11841 = self.tail; - var self = $11840; + var $11952 = self.head; + var $11953 = self.tail; + var self = $11952; switch (self._) { case 'Kind.Binder.new': - var $11843 = self.eras; - var $11844 = self.name; - var $11845 = self.term; - var $11846 = Kind$Term$all$($11843, "", $11844, $11845, (_s$11 => _x$12 => { - var $11847 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $11841); - return $11847; + var $11955 = self.eras; + var $11956 = self.name; + var $11957 = self.term; + var $11958 = Kind$Term$all$($11955, "", $11956, $11957, (_s$11 => _x$12 => { + var $11959 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $11953); + return $11959; })); - var $11842 = $11846; + var $11954 = $11958; break; }; - var $11839 = $11842; + var $11951 = $11954; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11849 = self.pars; + var $11961 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11851 = self.inds; + var $11963 = self.inds; var _type$14 = Kind$Term$ref$(_name$3); var _type$15 = (() => { - var $11854 = _type$14; - var $11855 = $11849; - let _type$16 = $11854; + var $11966 = _type$14; + var $11967 = $11961; + let _type$16 = $11966; let _v$15; - while ($11855._ === 'List.cons') { - _v$15 = $11855.head; - var $11854 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { + while ($11967._ === 'List.cons') { + _v$15 = $11967.head; + var $11966 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { var self = _v$15; switch (self._) { case 'Kind.Binder.new': - var $11856 = self.name; - var $11857 = $11856; - return $11857; + var $11968 = self.name; + var $11969 = $11968; + return $11969; }; })())); - _type$16 = $11854; - $11855 = $11855.tail; + _type$16 = $11966; + $11967 = $11967.tail; } return _type$16; })(); var _type$16 = (() => { - var $11859 = _type$15; - var $11860 = $11851; - let _type$17 = $11859; + var $11971 = _type$15; + var $11972 = $11963; + let _type$17 = $11971; let _v$16; - while ($11860._ === 'List.cons') { - _v$16 = $11860.head; - var $11859 = Kind$Term$app$(_type$17, (() => { + while ($11972._ === 'List.cons') { + _v$16 = $11972.head; + var $11971 = Kind$Term$app$(_type$17, (() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $11861 = self.term; - var $11862 = $11861; - return $11862; + var $11973 = self.term; + var $11974 = $11973; + return $11974; }; })()); - _type$17 = $11859; - $11860 = $11860.tail; + _type$17 = $11971; + $11972 = $11972.tail; } return _type$17; })(); - var $11852 = _type$16; - var $11850 = $11852; + var $11964 = _type$16; + var $11962 = $11964; break; }; - var $11848 = $11850; + var $11960 = $11962; break; }; - var $11839 = $11848; + var $11951 = $11960; break; }; - var $11830 = $11839; + var $11942 = $11951; break; }; - return $11830; + return $11942; }; 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); @@ -37094,20 +37413,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11864 = self.name; - var $11865 = self.pars; + var $11976 = self.name; + var $11977 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11867 = self.args; - var $11868 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $11864, $11865, $11867); - var $11866 = $11868; + var $11979 = self.args; + var $11980 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $11976, $11977, $11979); + var $11978 = $11980; break; }; - var $11863 = $11866; + var $11975 = $11978; break; }; - return $11863; + return $11975; }; const Kind$Parser$ADT$Constructor$build_type = x0 => x1 => Kind$Parser$ADT$Constructor$build_type$(x0, x1); @@ -37124,18 +37443,18 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.app': - var $11869 = self.func; - var $11870 = self.argm; - var $11871 = Kind$Term$get_args$go$($11869, List$cons$($11870, _args$2)); - return $11871; + var $11981 = self.func; + var $11982 = self.argm; + var $11983 = Kind$Term$get_args$go$($11981, List$cons$($11982, _args$2)); + return $11983; case 'Kind.Term.imp': - var $11872 = self.expr; - var $11873 = Kind$Term$get_args$go$($11872, _args$2); - return $11873; + var $11984 = self.expr; + var $11985 = Kind$Term$get_args$go$($11984, _args$2); + return $11985; case 'Kind.Term.ori': - var $11874 = self.expr; - var $11875 = Kind$Term$get_args$go$($11874, _args$2); - return $11875; + var $11986 = self.expr; + var $11987 = Kind$Term$get_args$go$($11986, _args$2); + return $11987; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -37156,8 +37475,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $11876 = Pair$new$(_term$1, _args$2); - return $11876; + var $11988 = Pair$new$(_term$1, _args$2); + return $11988; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -37167,466 +37486,18 @@ 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 $11877 = Kind$Term$get_args$go$(_term$1, List$nil); - return $11877; + var $11989 = Kind$Term$get_args$go$(_term$1, List$nil); + return $11989; }; const Kind$Term$get_args = x0 => Kind$Term$get_args$(x0); function Kind$Parser$ADT$Derive$stringifier$term$cont$(_call$1, _rest$2) { - var self = Kind$Term$get_args$(_call$1); - switch (self._) { - case 'Pair.new': - var $11879 = self.fst; - var $11880 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11879) + ".stringifier")); - var _term$6 = (() => { - var $11883 = _term$5; - var $11884 = $11880; - let _term$7 = $11883; - let _par$6; - while ($11884._ === 'List.cons') { - _par$6 = $11884.head; - var $11883 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - _term$7 = $11883; - $11884 = $11884.tail; - } - return _term$7; - })(); - var _term$7 = (() => { - var $11886 = _term$6; - var $11887 = $11880; - let _term$8 = $11886; - let _par$7; - while ($11887._ === 'List.cons') { - _par$7 = $11887.head; - var $11886 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); - _term$8 = $11886; - $11887 = $11887.tail; - } - return _term$8; - })(); - var self = _rest$2; - switch (self._) { - case 'Maybe.some': - var $11888 = self.value; - var self = $11888; - switch (self._) { - case 'Pair.new': - var $11890 = self.fst; - var $11891 = self.snd; - var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($11890)); - var _term$12 = Kind$Term$app$(_term$11, $11891); - var $11892 = _term$12; - var $11889 = $11892; - break; - }; - var $11881 = $11889; - break; - case 'Maybe.none': - var $11893 = _term$7; - var $11881 = $11893; - break; - }; - var $11878 = $11881; - break; - }; - return $11878; - }; - const Kind$Parser$ADT$Derive$stringifier$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$cont$(x0, x1); - - function Kind$Parser$ADT$Derive$stringifier$term$args$(_args$1, _fst$2) { - var self = _args$1; - switch (self._) { - case 'List.cons': - var $11895 = self.head; - var $11896 = self.tail; - var self = $11895; - switch (self._) { - case 'Kind.Binder.new': - var $11898 = self.name; - var $11899 = self.term; - var self = Kind$Term$get_args$($11899); - switch (self._) { - case 'Pair.new': - var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($11896, Bool$false); - var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($11899, Maybe$some$(Pair$new$(("x." + $11898), _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 $11902 = "("; - return $11902; - } else { - var $11903 = ","; - return $11903; - }; - })())), _term$11); - var $11901 = _term$12; - var $11900 = $11901; - break; - }; - var $11897 = $11900; - break; - }; - var $11894 = $11897; - break; - case 'List.nil': - var _term$3 = Kind$Term$ref$("str"); - var self = _fst$2; - if (self) { - var $11905 = _term$3; - var _term$4 = $11905; - } else { - var $11906 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); - var _term$4 = $11906; - }; - var $11904 = _term$4; - var $11894 = $11904; - break; - }; - return $11894; - }; - const Kind$Parser$ADT$Derive$stringifier$term$args = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$args$(x0, x1); - - function Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, _ctr$2) { - var self = _ctr$2; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $11908 = self.name; - var $11909 = self.args; - var _term$6 = Kind$Term$ref$("Stringifier.text"); - var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $11908)))); - var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($11909, Bool$true)); - var $11910 = Pair$new$($11908, _term$8); - var $11907 = $11910; - break; - }; - return $11907; - }; - const Kind$Parser$ADT$Derive$stringifier$ctr = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$ctr$(x0, x1); - - function Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, _ctrs$2) { - var self = _ctrs$2; - switch (self._) { - case 'List.cons': - var $11912 = self.head; - var $11913 = self.tail; - var $11914 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $11912), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $11913)); - var $11911 = $11914; - break; - case 'List.nil': - var $11915 = List$nil; - var $11911 = $11915; - break; - }; - return $11911; - }; - const Kind$Parser$ADT$Derive$stringifier$term$ctrs = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$ctrs$(x0, x1); - - function Kind$Parser$ADT$Derive$stringifier$term$(_adt$1) { - var self = _adt$1; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11917 = self.name; - var $11918 = self.pars; - var $11919 = self.inds; - var $11920 = self.ctrs; - var self = (List$is_empty$($11918) && List$is_empty$($11919)); - if (self) { - var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $11923 = Kind$Term$lam$("str", (_str$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($11917, $11920); - var _cses$10 = Kind$Map$new; - var _cses$11 = (() => { - var $11926 = _cses$10; - var $11927 = _ctrs$9; - let _cses$12 = $11926; - let _ctr$11; - while ($11927._ === 'List.cons') { - _ctr$11 = $11927.head; - var self = _ctr$11; - switch (self._) { - case 'Pair.new': - var $11928 = self.fst; - var $11929 = self.snd; - var $11930 = Kind$Map$set$($11928, $11929, _cses$12); - var $11926 = $11930; - break; - }; - _cses$12 = $11926; - $11927 = $11927.tail; - } - return _cses$12; - })(); - var $11924 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $11924; - })); - return $11923; - })); - var $11922 = Maybe$some$(_term$7); - var $11921 = $11922; - } else { - var $11931 = Maybe$none; - var $11921 = $11931; - }; - var $11916 = $11921; - break; - }; - return $11916; - }; - const Kind$Parser$ADT$Derive$stringifier$term = x0 => Kind$Parser$ADT$Derive$stringifier$term$(x0); - - function Kind$Parser$ADT$Derive$stringifier$type$(_adt$1) { - var self = _adt$1; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11933 = self.name; - var $11934 = self.pars; - var $11935 = self.inds; - var self = (List$is_empty$($11934) && List$is_empty$($11935)); - if (self) { - var $11937 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($11933))); - var $11936 = $11937; - } else { - var $11938 = Maybe$none; - var $11936 = $11938; - }; - var $11932 = $11936; - break; - }; - return $11932; - }; - 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 $11939 = ({ - _: 'Kind.Parser.ADT.Derived.new', - 'name': _name$1, - 'arit': _arit$2, - 'term': _term$3, - 'type': _type$4 - }); - return $11939; - }; - const Kind$Parser$ADT$Derived$new = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Derived$new$(x0, x1, x2, x3); - - function Kind$Parser$ADT$Derive$parser$term$cont$(_call$1) { - var self = Kind$Term$get_args$(_call$1); - switch (self._) { - case 'Pair.new': - var $11941 = self.fst; - var $11942 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($11941) + ".parser")); - var _term$5 = (() => { - var $11945 = _term$4; - var $11946 = $11942; - let _term$6 = $11945; - let _par$5; - while ($11946._ === 'List.cons') { - _par$5 = $11946.head; - var $11945 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $11945; - $11946 = $11946.tail; - } - return _term$6; - })(); - var _term$6 = (() => { - var $11948 = _term$5; - var $11949 = $11942; - let _term$7 = $11948; - let _par$6; - while ($11949._ === 'List.cons') { - _par$6 = $11949.head; - var $11948 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); - _term$7 = $11948; - $11949 = $11949.tail; - } - return _term$7; - })(); - var $11943 = _term$6; - var $11940 = $11943; - break; - }; - return $11940; - }; - const Kind$Parser$ADT$Derive$parser$term$cont = x0 => Kind$Parser$ADT$Derive$parser$term$cont$(x0); - - function Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, _args$3, _vars$4, _fst$5) { - var self = _args$3; - switch (self._) { - case 'List.cons': - var $11951 = self.head; - var $11952 = self.tail; - var self = $11951; - switch (self._) { - case 'Kind.Binder.new': - var $11954 = self.name; - var $11955 = 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)); - var _cont$14 = Kind$Term$ref$("Parser.prefix"); - var _cont$15 = Kind$Term$app$(_cont$14, Kind$Term$hol$(Bits$e)); - var _cont$16 = Kind$Term$app$(_cont$15, Kind$Term$str$((() => { - var self = _fst$5; - if (self) { - var $11957 = "("; - return $11957; - } else { - var $11958 = ","; - return $11958; - }; - })())); - var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($11955)); - var _term$18 = Kind$Term$app$(_term$13, _cont$17); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($11954, (_x$19 => { - var $11959 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $11952, List$cons$(_x$19, _vars$4), Bool$false); - return $11959; - }))); - var $11956 = _term$19; - var $11953 = $11956; - break; - }; - var $11950 = $11953; - 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 $11961 = Kind$Term$app$(_func$10, _var$9); - return $11961; - })); - var _body$10 = Kind$Term$app$(_body$7, _func$9); - var self = _fst$5; - if (self) { - var $11962 = _body$10; - var $11960 = $11962; - } 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 $11964 = _body$10; - return $11964; - }))); - var $11963 = _term$15; - var $11960 = $11963; - }; - var $11950 = $11960; - break; - }; - return $11950; - }; - 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); - - function Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, _cses$2) { - var self = _adt$1; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11966 = self.name; - var self = _cses$2; - switch (self._) { - case 'List.cons': - var $11968 = self.head; - var $11969 = self.tail; - var self = $11968; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $11971 = self.name; - var $11972 = self.args; - var _cnam$13 = ($11966 + ("." + $11971)); - 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 $11974 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $11972, List$nil, Bool$true); - return $11974; - }))); - 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, $11969)); - var $11973 = _list$22; - var $11970 = $11973; - break; - }; - var $11967 = $11970; - break; - case 'List.nil': - var _fail$8 = Kind$Term$ref$("Parser.fail"); - var _fail$9 = Kind$Term$app$(_fail$8, Kind$Term$hol$(Bits$e)); - var _fail$10 = Kind$Term$app$(_fail$9, Kind$Term$str$("")); - var _term$11 = Kind$Term$ref$("List.cons"); - 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 $11975 = _term$14; - var $11967 = $11975; - break; - }; - var $11965 = $11967; - break; - }; - return $11965; - }; - const Kind$Parser$ADT$Derive$parser$term$cses = x0 => x1 => Kind$Parser$ADT$Derive$parser$term$cses$(x0, x1); - - function Kind$Parser$ADT$Derive$parser$term$(_adt$1) { - var self = _adt$1; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11977 = self.pars; - var $11978 = self.inds; - var $11979 = self.ctrs; - var self = (List$is_empty$($11977) && List$is_empty$($11978)); - 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, $11979)); - var $11981 = Maybe$some$(_term$9); - var $11980 = $11981; - } else { - var $11982 = Maybe$none; - var $11980 = $11982; - }; - var $11976 = $11980; - break; - }; - return $11976; - }; - const Kind$Parser$ADT$Derive$parser$term = x0 => Kind$Parser$ADT$Derive$parser$term$(x0); - - function Kind$Parser$ADT$Derive$parser$type$(_adt$1) { - var self = _adt$1; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11984 = self.name; - var $11985 = self.pars; - var $11986 = self.inds; - var self = (List$is_empty$($11985) && List$is_empty$($11986)); - if (self) { - var $11988 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($11984))); - var $11987 = $11988; - } else { - var $11989 = Maybe$none; - var $11987 = $11989; - }; - var $11983 = $11987; - break; - }; - return $11983; - }; - const Kind$Parser$ADT$Derive$parser$type = x0 => Kind$Parser$ADT$Derive$parser$type$(x0); - - function Kind$Parser$ADT$Derive$serializer$term$cont$(_call$1, _rest$2) { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': var $11991 = self.fst; var $11992 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11991) + ".serializer")); + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11991) + ".stringifier")); var _term$6 = (() => { var $11995 = _term$5; var $11996 = $11992; @@ -37647,7 +37518,7 @@ module.exports = (function() { let _par$7; while ($11999._ === 'List.cons') { _par$7 = $11999.head; - var $11998 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); + var $11998 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); _term$8 = $11998; $11999 = $11999.tail; } @@ -37680,9 +37551,9 @@ module.exports = (function() { }; return $11990; }; - const Kind$Parser$ADT$Derive$serializer$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$serializer$term$cont$(x0, x1); + const Kind$Parser$ADT$Derive$stringifier$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$cont$(x0, x1); - function Kind$Parser$ADT$Derive$serializer$term$args$(_args$1) { + function Kind$Parser$ADT$Derive$stringifier$term$args$(_args$1, _fst$2) { var self = _args$1; switch (self._) { case 'List.cons': @@ -37696,9 +37567,19 @@ module.exports = (function() { var self = Kind$Term$get_args$($12011); switch (self._) { case 'Pair.new': - var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($12008); - var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($12011, Maybe$some$(Pair$new$(("x." + $12010), _rest$9))); - var $12013 = _term$10; + var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($12008, Bool$false); + var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($12011, Maybe$some$(Pair$new$(("x." + $12010), _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 $12014 = "("; + return $12014; + } else { + var $12015 = ","; + return $12015; + }; + })())), _term$11); + var $12013 = _term$12; var $12012 = $12013; break; }; @@ -37708,33 +37589,471 @@ module.exports = (function() { var $12006 = $12009; break; case 'List.nil': - var $12014 = Kind$Term$ref$("bs"); - var $12006 = $12014; + var _term$3 = Kind$Term$ref$("str"); + var self = _fst$2; + if (self) { + var $12017 = _term$3; + var _term$4 = $12017; + } else { + var $12018 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); + var _term$4 = $12018; + }; + var $12016 = _term$4; + var $12006 = $12016; break; }; return $12006; }; + const Kind$Parser$ADT$Derive$stringifier$term$args = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$args$(x0, x1); + + function Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, _ctr$2) { + var self = _ctr$2; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $12020 = self.name; + var $12021 = self.args; + var _term$6 = Kind$Term$ref$("Stringifier.text"); + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $12020)))); + var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($12021, Bool$true)); + var $12022 = Pair$new$($12020, _term$8); + var $12019 = $12022; + break; + }; + return $12019; + }; + const Kind$Parser$ADT$Derive$stringifier$ctr = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$ctr$(x0, x1); + + function Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, _ctrs$2) { + var self = _ctrs$2; + switch (self._) { + case 'List.cons': + var $12024 = self.head; + var $12025 = self.tail; + var $12026 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $12024), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $12025)); + var $12023 = $12026; + break; + case 'List.nil': + var $12027 = List$nil; + var $12023 = $12027; + break; + }; + return $12023; + }; + const Kind$Parser$ADT$Derive$stringifier$term$ctrs = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$ctrs$(x0, x1); + + function Kind$Parser$ADT$Derive$stringifier$term$(_adt$1) { + var self = _adt$1; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12029 = self.name; + var $12030 = self.pars; + var $12031 = self.inds; + var $12032 = self.ctrs; + var self = (List$is_empty$($12030) && List$is_empty$($12031)); + if (self) { + var _term$7 = Kind$Term$lam$("x", (_x$7 => { + var $12035 = Kind$Term$lam$("str", (_str$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($12029, $12032); + var _cses$10 = Kind$Map$new; + var _cses$11 = (() => { + var $12038 = _cses$10; + var $12039 = _ctrs$9; + let _cses$12 = $12038; + let _ctr$11; + while ($12039._ === 'List.cons') { + _ctr$11 = $12039.head; + var self = _ctr$11; + switch (self._) { + case 'Pair.new': + var $12040 = self.fst; + var $12041 = self.snd; + var $12042 = Kind$Map$set$($12040, $12041, _cses$12); + var $12038 = $12042; + break; + }; + _cses$12 = $12038; + $12039 = $12039.tail; + } + return _cses$12; + })(); + var $12036 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $12036; + })); + return $12035; + })); + var $12034 = Maybe$some$(_term$7); + var $12033 = $12034; + } else { + var $12043 = Maybe$none; + var $12033 = $12043; + }; + var $12028 = $12033; + break; + }; + return $12028; + }; + const Kind$Parser$ADT$Derive$stringifier$term = x0 => Kind$Parser$ADT$Derive$stringifier$term$(x0); + + function Kind$Parser$ADT$Derive$stringifier$type$(_adt$1) { + var self = _adt$1; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12045 = self.name; + var $12046 = self.pars; + var $12047 = self.inds; + var self = (List$is_empty$($12046) && List$is_empty$($12047)); + if (self) { + var $12049 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($12045))); + var $12048 = $12049; + } else { + var $12050 = Maybe$none; + var $12048 = $12050; + }; + var $12044 = $12048; + break; + }; + return $12044; + }; + 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 $12051 = ({ + _: 'Kind.Parser.ADT.Derived.new', + 'name': _name$1, + 'arit': _arit$2, + 'term': _term$3, + 'type': _type$4 + }); + return $12051; + }; + const Kind$Parser$ADT$Derived$new = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Derived$new$(x0, x1, x2, x3); + + function Kind$Parser$ADT$Derive$parser$term$cont$(_call$1) { + var self = Kind$Term$get_args$(_call$1); + switch (self._) { + case 'Pair.new': + var $12053 = self.fst; + var $12054 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12053) + ".parser")); + var _term$5 = (() => { + var $12057 = _term$4; + var $12058 = $12054; + let _term$6 = $12057; + let _par$5; + while ($12058._ === 'List.cons') { + _par$5 = $12058.head; + var $12057 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $12057; + $12058 = $12058.tail; + } + return _term$6; + })(); + var _term$6 = (() => { + var $12060 = _term$5; + var $12061 = $12054; + let _term$7 = $12060; + let _par$6; + while ($12061._ === 'List.cons') { + _par$6 = $12061.head; + var $12060 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); + _term$7 = $12060; + $12061 = $12061.tail; + } + return _term$7; + })(); + var $12055 = _term$6; + var $12052 = $12055; + break; + }; + return $12052; + }; + const Kind$Parser$ADT$Derive$parser$term$cont = x0 => Kind$Parser$ADT$Derive$parser$term$cont$(x0); + + function Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, _args$3, _vars$4, _fst$5) { + var self = _args$3; + switch (self._) { + case 'List.cons': + var $12063 = self.head; + var $12064 = self.tail; + var self = $12063; + switch (self._) { + case 'Kind.Binder.new': + var $12066 = self.name; + var $12067 = 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)); + var _cont$14 = Kind$Term$ref$("Parser.prefix"); + var _cont$15 = Kind$Term$app$(_cont$14, Kind$Term$hol$(Bits$e)); + var _cont$16 = Kind$Term$app$(_cont$15, Kind$Term$str$((() => { + var self = _fst$5; + if (self) { + var $12069 = "("; + return $12069; + } else { + var $12070 = ","; + return $12070; + }; + })())); + var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($12067)); + var _term$18 = Kind$Term$app$(_term$13, _cont$17); + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($12066, (_x$19 => { + var $12071 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $12064, List$cons$(_x$19, _vars$4), Bool$false); + return $12071; + }))); + var $12068 = _term$19; + var $12065 = $12068; + break; + }; + var $12062 = $12065; + 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 $12073 = Kind$Term$app$(_func$10, _var$9); + return $12073; + })); + var _body$10 = Kind$Term$app$(_body$7, _func$9); + var self = _fst$5; + if (self) { + var $12074 = _body$10; + var $12072 = $12074; + } 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 $12076 = _body$10; + return $12076; + }))); + var $12075 = _term$15; + var $12072 = $12075; + }; + var $12062 = $12072; + break; + }; + return $12062; + }; + 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); + + function Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, _cses$2) { + var self = _adt$1; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12078 = self.name; + var self = _cses$2; + switch (self._) { + case 'List.cons': + var $12080 = self.head; + var $12081 = self.tail; + var self = $12080; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $12083 = self.name; + var $12084 = self.args; + var _cnam$13 = ($12078 + ("." + $12083)); + 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 $12086 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $12084, List$nil, Bool$true); + return $12086; + }))); + 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, $12081)); + var $12085 = _list$22; + var $12082 = $12085; + break; + }; + var $12079 = $12082; + break; + case 'List.nil': + var _fail$8 = Kind$Term$ref$("Parser.fail"); + var _fail$9 = Kind$Term$app$(_fail$8, Kind$Term$hol$(Bits$e)); + var _fail$10 = Kind$Term$app$(_fail$9, Kind$Term$str$("")); + var _term$11 = Kind$Term$ref$("List.cons"); + 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 $12087 = _term$14; + var $12079 = $12087; + break; + }; + var $12077 = $12079; + break; + }; + return $12077; + }; + const Kind$Parser$ADT$Derive$parser$term$cses = x0 => x1 => Kind$Parser$ADT$Derive$parser$term$cses$(x0, x1); + + function Kind$Parser$ADT$Derive$parser$term$(_adt$1) { + var self = _adt$1; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12089 = self.pars; + var $12090 = self.inds; + var $12091 = self.ctrs; + var self = (List$is_empty$($12089) && List$is_empty$($12090)); + 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, $12091)); + var $12093 = Maybe$some$(_term$9); + var $12092 = $12093; + } else { + var $12094 = Maybe$none; + var $12092 = $12094; + }; + var $12088 = $12092; + break; + }; + return $12088; + }; + const Kind$Parser$ADT$Derive$parser$term = x0 => Kind$Parser$ADT$Derive$parser$term$(x0); + + function Kind$Parser$ADT$Derive$parser$type$(_adt$1) { + var self = _adt$1; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12096 = self.name; + var $12097 = self.pars; + var $12098 = self.inds; + var self = (List$is_empty$($12097) && List$is_empty$($12098)); + if (self) { + var $12100 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($12096))); + var $12099 = $12100; + } else { + var $12101 = Maybe$none; + var $12099 = $12101; + }; + var $12095 = $12099; + break; + }; + return $12095; + }; + const Kind$Parser$ADT$Derive$parser$type = x0 => Kind$Parser$ADT$Derive$parser$type$(x0); + + function Kind$Parser$ADT$Derive$serializer$term$cont$(_call$1, _rest$2) { + var self = Kind$Term$get_args$(_call$1); + switch (self._) { + case 'Pair.new': + var $12103 = self.fst; + var $12104 = self.snd; + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($12103) + ".serializer")); + var _term$6 = (() => { + var $12107 = _term$5; + var $12108 = $12104; + let _term$7 = $12107; + let _par$6; + while ($12108._ === 'List.cons') { + _par$6 = $12108.head; + var $12107 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); + _term$7 = $12107; + $12108 = $12108.tail; + } + return _term$7; + })(); + var _term$7 = (() => { + var $12110 = _term$6; + var $12111 = $12104; + let _term$8 = $12110; + let _par$7; + while ($12111._ === 'List.cons') { + _par$7 = $12111.head; + var $12110 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); + _term$8 = $12110; + $12111 = $12111.tail; + } + return _term$8; + })(); + var self = _rest$2; + switch (self._) { + case 'Maybe.some': + var $12112 = self.value; + var self = $12112; + switch (self._) { + case 'Pair.new': + var $12114 = self.fst; + var $12115 = self.snd; + var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($12114)); + var _term$12 = Kind$Term$app$(_term$11, $12115); + var $12116 = _term$12; + var $12113 = $12116; + break; + }; + var $12105 = $12113; + break; + case 'Maybe.none': + var $12117 = _term$7; + var $12105 = $12117; + break; + }; + var $12102 = $12105; + break; + }; + return $12102; + }; + const Kind$Parser$ADT$Derive$serializer$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$serializer$term$cont$(x0, x1); + + function Kind$Parser$ADT$Derive$serializer$term$args$(_args$1) { + var self = _args$1; + switch (self._) { + case 'List.cons': + var $12119 = self.head; + var $12120 = self.tail; + var self = $12119; + switch (self._) { + case 'Kind.Binder.new': + var $12122 = self.name; + var $12123 = self.term; + var self = Kind$Term$get_args$($12123); + switch (self._) { + case 'Pair.new': + var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($12120); + var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($12123, Maybe$some$(Pair$new$(("x." + $12122), _rest$9))); + var $12125 = _term$10; + var $12124 = $12125; + break; + }; + var $12121 = $12124; + break; + }; + var $12118 = $12121; + break; + case 'List.nil': + var $12126 = Kind$Term$ref$("bs"); + var $12118 = $12126; + break; + }; + return $12118; + }; const Kind$Parser$ADT$Derive$serializer$term$args = x0 => Kind$Parser$ADT$Derive$serializer$term$args$(x0); function Kind$Parser$ADT$Derive$serializer$ctr$bits$(_bs$1, _rest$2) { var self = _bs$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $12016 = self.slice(0, -1); - var $12017 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12016, _rest$2)); - var $12015 = $12017; + var $12128 = self.slice(0, -1); + var $12129 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12128, _rest$2)); + var $12127 = $12129; break; case 'i': - var $12018 = self.slice(0, -1); - var $12019 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12018, _rest$2)); - var $12015 = $12019; + var $12130 = self.slice(0, -1); + var $12131 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12130, _rest$2)); + var $12127 = $12131; break; case 'e': - var $12020 = _rest$2; - var $12015 = $12020; + var $12132 = _rest$2; + var $12127 = $12132; break; }; - return $12015; + return $12127; }; const Kind$Parser$ADT$Derive$serializer$ctr$bits = x0 => x1 => Kind$Parser$ADT$Derive$serializer$ctr$bits$(x0, x1); @@ -37742,15 +38061,15 @@ module.exports = (function() { var self = _ctr$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12022 = self.name; - var $12023 = self.args; - var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($12023); + var $12134 = self.name; + var $12135 = self.args; + var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($12135); var _term$8 = Kind$Parser$ADT$Derive$serializer$ctr$bits$(_header$3, _term$7); - var $12024 = Pair$new$($12022, _term$8); - var $12021 = $12024; + var $12136 = Pair$new$($12134, _term$8); + var $12133 = $12136; break; }; - return $12021; + return $12133; }; const Kind$Parser$ADT$Derive$serializer$ctr = x0 => x1 => x2 => Kind$Parser$ADT$Derive$serializer$ctr$(x0, x1, x2); @@ -37758,31 +38077,31 @@ module.exports = (function() { var self = _ctrs$2; switch (self._) { case 'List.cons': - var $12026 = self.head; - var $12027 = self.tail; - var $12028 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $12026, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $12027, Bits$inc$(_header$3))); - var $12025 = $12028; + var $12138 = self.head; + var $12139 = self.tail; + var $12140 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $12138, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $12139, Bits$inc$(_header$3))); + var $12137 = $12140; break; case 'List.nil': - var $12029 = List$nil; - var $12025 = $12029; + var $12141 = List$nil; + var $12137 = $12141; break; }; - return $12025; + return $12137; }; 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 $12031 = Bits$e; - var $12030 = $12031; + var $12143 = Bits$e; + var $12142 = $12143; } else { - var $12032 = (self - 1n); - var $12033 = (Bits$zeros$($12032) + '0'); - var $12030 = $12033; + var $12144 = (self - 1n); + var $12145 = (Bits$zeros$($12144) + '0'); + var $12142 = $12145; }; - return $12030; + return $12142; }; const Bits$zeros = x0 => Bits$zeros$(x0); const Nat$div = a0 => a1 => (a0 / a1); @@ -37790,14 +38109,14 @@ module.exports = (function() { function Nat$bitlen$(_n$1) { var self = _n$1; if (self === 0n) { - var $12035 = 0n; - var $12034 = $12035; + var $12147 = 0n; + var $12146 = $12147; } else { - var $12036 = (self - 1n); - var $12037 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); - var $12034 = $12037; + var $12148 = (self - 1n); + var $12149 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); + var $12146 = $12149; }; - return $12034; + return $12146; }; const Nat$bitlen = x0 => Nat$bitlen$(x0); @@ -37805,52 +38124,52 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12039 = self.name; - var $12040 = self.pars; - var $12041 = self.inds; - var $12042 = self.ctrs; - var self = (List$is_empty$($12040) && List$is_empty$($12041)); + var $12151 = self.name; + var $12152 = self.pars; + var $12153 = self.inds; + var $12154 = self.ctrs; + var self = (List$is_empty$($12152) && List$is_empty$($12153)); if (self) { var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $12045 = Kind$Term$lam$("bs", (_bs$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($12039, $12042, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12042)))))); + var $12157 = Kind$Term$lam$("bs", (_bs$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($12151, $12154, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12154)))))); var _cses$10 = Kind$Map$new; var _cses$11 = (() => { - var $12048 = _cses$10; - var $12049 = _ctrs$9; - let _cses$12 = $12048; + var $12160 = _cses$10; + var $12161 = _ctrs$9; + let _cses$12 = $12160; let _ctr$11; - while ($12049._ === 'List.cons') { - _ctr$11 = $12049.head; + while ($12161._ === 'List.cons') { + _ctr$11 = $12161.head; var self = _ctr$11; switch (self._) { case 'Pair.new': - var $12050 = self.fst; - var $12051 = self.snd; - var $12052 = Kind$Map$set$($12050, $12051, _cses$12); - var $12048 = $12052; + var $12162 = self.fst; + var $12163 = self.snd; + var $12164 = Kind$Map$set$($12162, $12163, _cses$12); + var $12160 = $12164; break; }; - _cses$12 = $12048; - $12049 = $12049.tail; + _cses$12 = $12160; + $12161 = $12161.tail; } return _cses$12; })(); - var $12046 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $12046; + var $12158 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $12158; })); - return $12045; + return $12157; })); - var $12044 = Maybe$some$(_term$7); - var $12043 = $12044; + var $12156 = Maybe$some$(_term$7); + var $12155 = $12156; } else { - var $12053 = Maybe$none; - var $12043 = $12053; + var $12165 = Maybe$none; + var $12155 = $12165; }; - var $12038 = $12043; + var $12150 = $12155; break; }; - return $12038; + return $12150; }; const Kind$Parser$ADT$Derive$serializer$term = x0 => Kind$Parser$ADT$Derive$serializer$term$(x0); @@ -37858,21 +38177,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12055 = self.name; - var $12056 = self.pars; - var $12057 = self.inds; - var self = (List$is_empty$($12056) && List$is_empty$($12057)); + var $12167 = self.name; + var $12168 = self.pars; + var $12169 = self.inds; + var self = (List$is_empty$($12168) && List$is_empty$($12169)); if (self) { - var $12059 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($12055))); - var $12058 = $12059; + var $12171 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($12167))); + var $12170 = $12171; } else { - var $12060 = Maybe$none; - var $12058 = $12060; + var $12172 = Maybe$none; + var $12170 = $12172; }; - var $12054 = $12058; + var $12166 = $12170; break; }; - return $12054; + return $12166; }; const Kind$Parser$ADT$Derive$serializer$type = x0 => Kind$Parser$ADT$Derive$serializer$type$(x0); @@ -37880,21 +38199,21 @@ module.exports = (function() { var self = _bits$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $12062 = self.slice(0, -1); - var $12063 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($12062)); - var $12061 = $12063; + var $12174 = self.slice(0, -1); + var $12175 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($12174)); + var $12173 = $12175; break; case 'i': - var $12064 = self.slice(0, -1); - var $12065 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($12064)); - var $12061 = $12065; + var $12176 = self.slice(0, -1); + var $12177 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($12176)); + var $12173 = $12177; break; case 'e': - var $12066 = Kind$Term$ref$("Bits.e"); - var $12061 = $12066; + var $12178 = Kind$Term$ref$("Bits.e"); + var $12173 = $12178; break; }; - return $12061; + return $12173; }; const Kind$Parser$ADT$Derive$serializer$term$bits = x0 => Kind$Parser$ADT$Derive$serializer$term$bits$(x0); @@ -37902,40 +38221,40 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $12068 = self.fst; - var $12069 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12068) + ".deserializer")); + var $12180 = self.fst; + var $12181 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12180) + ".deserializer")); var _term$5 = (() => { - var $12072 = _term$4; - var $12073 = $12069; - let _term$6 = $12072; + var $12184 = _term$4; + var $12185 = $12181; + let _term$6 = $12184; let _par$5; - while ($12073._ === 'List.cons') { - _par$5 = $12073.head; - var $12072 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $12072; - $12073 = $12073.tail; + while ($12185._ === 'List.cons') { + _par$5 = $12185.head; + var $12184 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $12184; + $12185 = $12185.tail; } return _term$6; })(); var _term$6 = (() => { - var $12075 = _term$5; - var $12076 = $12069; - let _term$7 = $12075; + var $12187 = _term$5; + var $12188 = $12181; + let _term$7 = $12187; let _par$6; - while ($12076._ === 'List.cons') { - _par$6 = $12076.head; - var $12075 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); - _term$7 = $12075; - $12076 = $12076.tail; + while ($12188._ === 'List.cons') { + _par$6 = $12188.head; + var $12187 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); + _term$7 = $12187; + $12188 = $12188.tail; } return _term$7; })(); - var $12070 = _term$6; - var $12067 = $12070; + var $12182 = _term$6; + var $12179 = $12182; break; }; - return $12067; + return $12179; }; const Kind$Parser$ADT$Derive$deserializer$term$cont = x0 => Kind$Parser$ADT$Derive$deserializer$term$cont$(x0); @@ -37943,41 +38262,41 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $12078 = self.head; - var $12079 = self.tail; - var self = $12078; + var $12190 = self.head; + var $12191 = self.tail; + var self = $12190; switch (self._) { case 'Kind.Binder.new': - var $12081 = self.name; - var $12082 = self.term; + var $12193 = self.name; + var $12194 = 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$($12082)); - var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($12081, (_x$15 => { - var $12084 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $12079, List$cons$(_x$15, _vars$4), Bool$false); - return $12084; + var _term$14 = Kind$Term$app$(_term$13, Kind$Parser$ADT$Derive$deserializer$term$cont$($12194)); + var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($12193, (_x$15 => { + var $12196 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $12191, List$cons$(_x$15, _vars$4), Bool$false); + return $12196; }))); - var $12083 = _term$15; - var $12080 = $12083; + var $12195 = _term$15; + var $12192 = $12195; break; }; - var $12077 = $12080; + var $12189 = $12192; 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 $12086 = Kind$Term$app$(_func$10, _var$9); - return $12086; + var $12198 = Kind$Term$app$(_func$10, _var$9); + return $12198; })); var _body$10 = Kind$Term$app$(_body$7, _func$9); - var $12085 = _body$10; - var $12077 = $12085; + var $12197 = _body$10; + var $12189 = $12197; break; }; - return $12077; + return $12189; }; 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); @@ -37985,45 +38304,45 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12088 = self.name; + var $12200 = self.name; var self = _cses$2; switch (self._) { case 'List.cons': - var $12090 = self.head; - var $12091 = self.tail; - var self = $12090; + var $12202 = self.head; + var $12203 = self.tail; + var self = $12202; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12093 = self.name; - var $12094 = self.args; - var _cnam$14 = ($12088 + ("." + $12093)); + var $12205 = self.name; + var $12206 = self.args; + var _cnam$14 = ($12200 + ("." + $12205)); 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 $12096 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $12094, List$nil, Bool$true); - return $12096; + var $12208 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $12206, List$nil, Bool$true); + return $12208; }))); 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, $12091, Bits$inc$(_header$3))); - var $12095 = _list$23; - var $12092 = $12095; + var _list$23 = Kind$Term$app$(_list$22, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12203, Bits$inc$(_header$3))); + var $12207 = _list$23; + var $12204 = $12207; break; }; - var $12089 = $12092; + var $12201 = $12204; break; case 'List.nil': - var $12097 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var $12089 = $12097; + var $12209 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var $12201 = $12209; break; }; - var $12087 = $12089; + var $12199 = $12201; break; }; - return $12087; + return $12199; }; const Kind$Parser$ADT$Derive$deserializer$term$cses = x0 => x1 => x2 => Kind$Parser$ADT$Derive$deserializer$term$cses$(x0, x1, x2); @@ -38031,24 +38350,24 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12099 = self.pars; - var $12100 = self.inds; - var $12101 = self.ctrs; - var self = (List$is_empty$($12099) && List$is_empty$($12100)); + var $12211 = self.pars; + var $12212 = self.inds; + var $12213 = self.ctrs; + var self = (List$is_empty$($12211) && List$is_empty$($12212)); 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, $12101, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12101))))))); - var $12103 = Maybe$some$(_term$9); - var $12102 = $12103; + var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12213, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12213))))))); + var $12215 = Maybe$some$(_term$9); + var $12214 = $12215; } else { - var $12104 = Maybe$none; - var $12102 = $12104; + var $12216 = Maybe$none; + var $12214 = $12216; }; - var $12098 = $12102; + var $12210 = $12214; break; }; - return $12098; + return $12210; }; const Kind$Parser$ADT$Derive$deserializer$term = x0 => Kind$Parser$ADT$Derive$deserializer$term$(x0); @@ -38056,21 +38375,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12106 = self.name; - var $12107 = self.pars; - var $12108 = self.inds; - var self = (List$is_empty$($12107) && List$is_empty$($12108)); + var $12218 = self.name; + var $12219 = self.pars; + var $12220 = self.inds; + var self = (List$is_empty$($12219) && List$is_empty$($12220)); if (self) { - var $12110 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($12106))); - var $12109 = $12110; + var $12222 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($12218))); + var $12221 = $12222; } else { - var $12111 = Maybe$none; - var $12109 = $12111; + var $12223 = Maybe$none; + var $12221 = $12223; }; - var $12105 = $12109; + var $12217 = $12221; break; }; - return $12105; + return $12217; }; const Kind$Parser$ADT$Derive$deserializer$type = x0 => Kind$Parser$ADT$Derive$deserializer$type$(x0); @@ -38078,104 +38397,104 @@ module.exports = (function() { var self = _adt$2; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12113 = self.name; + var $12225 = self.name; var self = (_deri$1 === "stringifier"); if (self) { - var _name$8 = ($12113 + ("." + _deri$1)); - var $12115 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12116 = _m$bind$9; - return $12116; + var _name$8 = ($12225 + ("." + _deri$1)); + var $12227 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12228 = _m$bind$9; + return $12228; }))(Kind$Parser$ADT$Derive$stringifier$term$(_adt$2))((_term$9 => { - var $12117 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12118 = _m$bind$10; - return $12118; + var $12229 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12230 = _m$bind$10; + return $12230; }))(Kind$Parser$ADT$Derive$stringifier$type$(_adt$2))((_type$10 => { - var $12119 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12120 = _m$pure$12; - return $12120; + var $12231 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12232 = _m$pure$12; + return $12232; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12119; + return $12231; })); - return $12117; + return $12229; })); - var $12114 = $12115; + var $12226 = $12227; } else { var self = (_deri$1 === "parser"); if (self) { - var _name$8 = ($12113 + ("." + _deri$1)); - var $12122 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12123 = _m$bind$9; - return $12123; + var _name$8 = ($12225 + ("." + _deri$1)); + var $12234 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12235 = _m$bind$9; + return $12235; }))(Kind$Parser$ADT$Derive$parser$term$(_adt$2))((_term$9 => { - var $12124 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12125 = _m$bind$10; - return $12125; + var $12236 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12237 = _m$bind$10; + return $12237; }))(Kind$Parser$ADT$Derive$parser$type$(_adt$2))((_type$10 => { - var $12126 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12127 = _m$pure$12; - return $12127; + var $12238 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12239 = _m$pure$12; + return $12239; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12126; + return $12238; })); - return $12124; + return $12236; })); - var $12121 = $12122; + var $12233 = $12234; } else { var self = (_deri$1 === "serializer"); if (self) { - var _name$8 = ($12113 + ("." + _deri$1)); - var $12129 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12130 = _m$bind$9; - return $12130; + var _name$8 = ($12225 + ("." + _deri$1)); + var $12241 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12242 = _m$bind$9; + return $12242; }))(Kind$Parser$ADT$Derive$serializer$term$(_adt$2))((_term$9 => { - var $12131 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12132 = _m$bind$10; - return $12132; + var $12243 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12244 = _m$bind$10; + return $12244; }))(Kind$Parser$ADT$Derive$serializer$type$(_adt$2))((_type$10 => { - var $12133 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12134 = _m$pure$12; - return $12134; + var $12245 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12246 = _m$pure$12; + return $12246; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12133; + return $12245; })); - return $12131; + return $12243; })); - var $12128 = $12129; + var $12240 = $12241; } else { var self = (_deri$1 === "deserializer"); if (self) { - var _name$8 = ($12113 + ("." + _deri$1)); - var $12136 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12137 = _m$bind$9; - return $12137; + var _name$8 = ($12225 + ("." + _deri$1)); + var $12248 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12249 = _m$bind$9; + return $12249; }))(Kind$Parser$ADT$Derive$deserializer$term$(_adt$2))((_term$9 => { - var $12138 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12139 = _m$bind$10; - return $12139; + var $12250 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12251 = _m$bind$10; + return $12251; }))(Kind$Parser$ADT$Derive$deserializer$type$(_adt$2))((_type$10 => { - var $12140 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12141 = _m$pure$12; - return $12141; + var $12252 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12253 = _m$pure$12; + return $12253; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12140; + return $12252; })); - return $12138; + return $12250; })); - var $12135 = $12136; + var $12247 = $12248; } else { - var $12142 = Maybe$none; - var $12135 = $12142; + var $12254 = Maybe$none; + var $12247 = $12254; }; - var $12128 = $12135; + var $12240 = $12247; }; - var $12121 = $12128; + var $12233 = $12240; }; - var $12114 = $12121; + var $12226 = $12233; }; - var $12112 = $12114; + var $12224 = $12226; break; }; - return $12112; + return $12224; }; const Kind$Parser$ADT$Derive$by_name = x0 => x1 => Kind$Parser$ADT$Derive$by_name$(x0, x1); @@ -38183,302 +38502,302 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $12144 = self.err; + var $12256 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $12146 = self.err; - var self = $12144; + var $12258 = self.err; + var self = $12256; switch (self._) { case 'Maybe.some': - var $12148 = self.value; - var $12149 = Parser$Reply$error$(Parser$Error$combine$($12148, $12146)); - var $12147 = $12149; + var $12260 = self.value; + var $12261 = Parser$Reply$error$(Parser$Error$combine$($12260, $12258)); + var $12259 = $12261; break; case 'Maybe.none': - var $12150 = Parser$Reply$error$($12146); - var $12147 = $12150; + var $12262 = Parser$Reply$error$($12258); + var $12259 = $12262; break; }; - var $12145 = $12147; + var $12257 = $12259; break; case 'Parser.Reply.value': - var $12151 = self.pst; - var self = $12151; + var $12263 = self.pst; + var self = $12263; switch (self._) { case 'Parser.State.new': - var $12153 = self.err; - var $12154 = self.nam; - var $12155 = self.ini; - var $12156 = self.idx; - var $12157 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12144, $12153), $12154, $12155, $12156, $12157); + var $12265 = self.err; + var $12266 = self.nam; + var $12267 = self.ini; + var $12268 = self.idx; + var $12269 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12256, $12265), $12266, $12267, $12268, $12269); var self = _reply$pst$18; switch (self._) { case 'Parser.State.new': - var $12159 = self.err; + var $12271 = self.err; var _reply$24 = Parser$get_idx$(_reply$pst$18); var self = _reply$24; switch (self._) { case 'Parser.Reply.error': - var $12161 = self.err; - var self = $12159; + var $12273 = self.err; + var self = $12271; switch (self._) { case 'Maybe.some': - var $12163 = self.value; - var $12164 = Parser$Reply$error$(Parser$Error$combine$($12163, $12161)); - var $12162 = $12164; + var $12275 = self.value; + var $12276 = Parser$Reply$error$(Parser$Error$combine$($12275, $12273)); + var $12274 = $12276; break; case 'Maybe.none': - var $12165 = Parser$Reply$error$($12161); - var $12162 = $12165; + var $12277 = Parser$Reply$error$($12273); + var $12274 = $12277; break; }; - var $12160 = $12162; + var $12272 = $12274; break; case 'Parser.Reply.value': - var $12166 = self.pst; - var $12167 = self.val; - var self = $12166; + var $12278 = self.pst; + var $12279 = self.val; + var self = $12278; switch (self._) { case 'Parser.State.new': - var $12169 = self.err; - var $12170 = self.nam; - var $12171 = self.ini; - var $12172 = self.idx; - var $12173 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($12159, $12169), $12170, $12171, $12172, $12173); + var $12281 = self.err; + var $12282 = self.nam; + var $12283 = self.ini; + var $12284 = self.idx; + var $12285 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($12271, $12281), $12282, $12283, $12284, $12285); var self = _reply$pst$32; switch (self._) { case 'Parser.State.new': - var $12175 = self.err; + var $12287 = self.err; var _reply$38 = Kind$Parser$ADT$adt$(_reply$pst$32); var self = _reply$38; switch (self._) { case 'Parser.Reply.error': - var $12177 = self.err; - var self = $12175; + var $12289 = self.err; + var self = $12287; switch (self._) { case 'Maybe.some': - var $12179 = self.value; - var $12180 = Parser$Reply$error$(Parser$Error$combine$($12179, $12177)); - var $12178 = $12180; + var $12291 = self.value; + var $12292 = Parser$Reply$error$(Parser$Error$combine$($12291, $12289)); + var $12290 = $12292; break; case 'Maybe.none': - var $12181 = Parser$Reply$error$($12177); - var $12178 = $12181; + var $12293 = Parser$Reply$error$($12289); + var $12290 = $12293; break; }; - var $12176 = $12178; + var $12288 = $12290; break; case 'Parser.Reply.value': - var $12182 = self.pst; - var $12183 = self.val; - var self = $12182; + var $12294 = self.pst; + var $12295 = self.val; + var self = $12294; switch (self._) { case 'Parser.State.new': - var $12185 = self.err; - var $12186 = self.nam; - var $12187 = self.ini; - var $12188 = self.idx; - var $12189 = self.str; - var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($12175, $12185), $12186, $12187, $12188, $12189); + var $12297 = self.err; + var $12298 = self.nam; + var $12299 = self.ini; + var $12300 = self.idx; + var $12301 = self.str; + var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($12287, $12297), $12298, $12299, $12300, $12301); var self = _reply$pst$46; switch (self._) { case 'Parser.State.new': - var $12191 = self.err; + var $12303 = self.err; var _reply$52 = Parser$get_idx$(_reply$pst$46); var self = _reply$52; switch (self._) { case 'Parser.Reply.error': - var $12193 = self.err; - var self = $12191; + var $12305 = self.err; + var self = $12303; switch (self._) { case 'Maybe.some': - var $12195 = self.value; - var $12196 = Parser$Reply$error$(Parser$Error$combine$($12195, $12193)); - var $12194 = $12196; + var $12307 = self.value; + var $12308 = Parser$Reply$error$(Parser$Error$combine$($12307, $12305)); + var $12306 = $12308; break; case 'Maybe.none': - var $12197 = Parser$Reply$error$($12193); - var $12194 = $12197; + var $12309 = Parser$Reply$error$($12305); + var $12306 = $12309; break; }; - var $12192 = $12194; + var $12304 = $12306; break; case 'Parser.Reply.value': - var $12198 = self.pst; - var $12199 = self.val; - var self = $12198; + var $12310 = self.pst; + var $12311 = self.val; + var self = $12310; switch (self._) { case 'Parser.State.new': - var $12201 = self.err; - var $12202 = self.nam; - var $12203 = self.ini; - var $12204 = self.idx; - var $12205 = self.str; - var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($12191, $12201), $12202, $12203, $12204, $12205); - var _orig$61 = Pair$new$($12167, $12199); - var self = $12183; + var $12313 = self.err; + var $12314 = self.nam; + var $12315 = self.ini; + var $12316 = self.idx; + var $12317 = self.str; + var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($12303, $12313), $12314, $12315, $12316, $12317); + var _orig$61 = Pair$new$($12279, $12311); + var self = $12295; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12207 = self.name; - var $12208 = self.pars; - var $12209 = self.inds; - var $12210 = self.ctrs; - var $12211 = self.deri; - var _term$67 = Kind$Parser$ADT$Datatype$build_term$($12183); + var $12319 = self.name; + var $12320 = self.pars; + var $12321 = self.inds; + var $12322 = self.ctrs; + var $12323 = self.deri; + var _term$67 = Kind$Parser$ADT$Datatype$build_term$($12295); var _term$68 = Kind$Term$bind$(List$nil, (_x$68 => { - var $12213 = (_x$68 + '1'); - return $12213; + var $12325 = (_x$68 + '1'); + return $12325; }), _term$67); - var _type$69 = Kind$Parser$ADT$Datatype$build_type$($12183); + var _type$69 = Kind$Parser$ADT$Datatype$build_type$($12295); var _type$70 = Kind$Term$bind$(List$nil, (_x$70 => { - var $12214 = (_x$70 + '0'); - return $12214; + var $12326 = (_x$70 + '0'); + return $12326; }), _type$69); - var _arit$71 = ((list_length($12208)) + (list_length($12209))); - var _defs$72 = Kind$Map$def$(_file$1, _code$2, _orig$61, $12207, _term$68, _type$70, Bool$false, _arit$71, Bool$false, _defs$3); - var _defs$73 = List$fold$($12210, _defs$72, (_ctr$73 => _defs$74 => { - var _typ_name$75 = $12207; + var _arit$71 = ((list_length($12320)) + (list_length($12321))); + var _defs$72 = Kind$Map$def$(_file$1, _code$2, _orig$61, $12319, _term$68, _type$70, Bool$false, _arit$71, Bool$false, _defs$3); + var _defs$73 = List$fold$($12322, _defs$72, (_ctr$73 => _defs$74 => { + var _typ_name$75 = $12319; var _ctr_arit$76 = (_arit$71 + (list_length((() => { var self = _ctr$73; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12216 = self.args; - var $12217 = $12216; - return $12217; + var $12328 = self.args; + var $12329 = $12328; + return $12329; }; })()))); 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 $12218 = self.name; - var $12219 = $12218; - return $12219; + var $12330 = self.name; + var $12331 = $12330; + return $12331; }; })(), List$nil)))); - var _ctr_term$78 = Kind$Parser$ADT$Constructor$build_term$($12183, _ctr$73); + var _ctr_term$78 = Kind$Parser$ADT$Constructor$build_term$($12295, _ctr$73); var _ctr_term$79 = Kind$Term$bind$(List$nil, (_x$79 => { - var $12220 = (_x$79 + '1'); - return $12220; + var $12332 = (_x$79 + '1'); + return $12332; }), _ctr_term$78); - var _ctr_type$80 = Kind$Parser$ADT$Constructor$build_type$($12183, _ctr$73); + var _ctr_type$80 = Kind$Parser$ADT$Constructor$build_type$($12295, _ctr$73); var _ctr_type$81 = Kind$Term$bind$(List$nil, (_x$81 => { - var $12221 = (_x$81 + '0'); - return $12221; + var $12333 = (_x$81 + '0'); + return $12333; }), _ctr_type$80); - var $12215 = 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 $12215; + var $12327 = 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 $12327; })); - var _defs$74 = List$fold$($12211, Either$right$(_defs$73), (_deri$74 => _defs$75 => { + var _defs$74 = List$fold$($12323, Either$right$(_defs$73), (_deri$74 => _defs$75 => { var self = _defs$75; switch (self._) { case 'Either.left': - var $12223 = self.value; - var $12224 = Either$left$($12223); - var $12222 = $12224; + var $12335 = self.value; + var $12336 = Either$left$($12335); + var $12334 = $12336; break; case 'Either.right': - var $12225 = self.value; - var self = Kind$Parser$ADT$Derive$by_name$(_deri$74, $12183); + var $12337 = self.value; + var self = Kind$Parser$ADT$Derive$by_name$(_deri$74, $12295); switch (self._) { case 'Maybe.some': - var $12227 = self.value; - var self = $12227; + var $12339 = self.value; + var self = $12339; switch (self._) { case 'Kind.Parser.ADT.Derived.new': - var $12229 = self.name; - var $12230 = self.arit; - var $12231 = self.term; - var $12232 = self.type; - var _name$82 = $12229; - var _term$83 = $12231; + var $12341 = self.name; + var $12342 = self.arit; + var $12343 = self.term; + var $12344 = self.type; + var _name$82 = $12341; + var _term$83 = $12343; var _term$84 = Kind$Term$bind$(List$nil, (_x$84 => { - var $12234 = (_x$84 + '1'); - return $12234; + var $12346 = (_x$84 + '1'); + return $12346; }), _term$83); - var _type$85 = $12232; + var _type$85 = $12344; var _type$86 = Kind$Term$bind$(List$nil, (_x$86 => { - var $12235 = (_x$86 + '0'); - return $12235; + var $12347 = (_x$86 + '0'); + return $12347; }), _type$85); - var _arit$87 = $12230; - var $12233 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$61, _name$82, _term$84, _type$86, Bool$false, _arit$87, Bool$false, $12225)); - var $12228 = $12233; + var _arit$87 = $12342; + var $12345 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$61, _name$82, _term$84, _type$86, Bool$false, _arit$87, Bool$false, $12337)); + var $12340 = $12345; break; }; - var $12226 = $12228; + var $12338 = $12340; break; case 'Maybe.none': - var $12236 = Either$left$(("Can\'t derive \'" + (_deri$74 + ("\' for \'" + ($12207 + "\' type."))))); - var $12226 = $12236; + var $12348 = Either$left$(("Can\'t derive \'" + (_deri$74 + ("\' for \'" + ($12319 + "\' type."))))); + var $12338 = $12348; break; }; - var $12222 = $12226; + var $12334 = $12338; break; }; - return $12222; + return $12334; })); var self = _defs$74; switch (self._) { case 'Either.left': - var $12237 = self.value; - var $12238 = Parser$fail($12237); - var $12212 = $12238; + var $12349 = self.value; + var $12350 = Parser$fail($12349); + var $12324 = $12350; break; case 'Either.right': - var $12239 = self.value; - var $12240 = (_pst$76 => { - var $12241 = Parser$Reply$value$(_pst$76, $12239); - return $12241; + var $12351 = self.value; + var $12352 = (_pst$76 => { + var $12353 = Parser$Reply$value$(_pst$76, $12351); + return $12353; }); - var $12212 = $12240; + var $12324 = $12352; break; }; - var $12206 = $12212; + var $12318 = $12324; break; }; - var $12206 = $12206(_reply$pst$60); - var $12200 = $12206; + var $12318 = $12318(_reply$pst$60); + var $12312 = $12318; break; }; - var $12192 = $12200; + var $12304 = $12312; break; }; - var $12190 = $12192; + var $12302 = $12304; break; }; - var $12184 = $12190; + var $12296 = $12302; break; }; - var $12176 = $12184; + var $12288 = $12296; break; }; - var $12174 = $12176; + var $12286 = $12288; break; }; - var $12168 = $12174; + var $12280 = $12286; break; }; - var $12160 = $12168; + var $12272 = $12280; break; }; - var $12158 = $12160; + var $12270 = $12272; break; }; - var $12152 = $12158; + var $12264 = $12270; break; }; - var $12145 = $12152; + var $12257 = $12264; break; }; - var $12143 = $12145; + var $12255 = $12257; break; }; - return $12143; + return $12255; }; const Kind$Parser$file$adt = x0 => x1 => x2 => x3 => Kind$Parser$file$adt$(x0, x1, x2, x3); @@ -38486,91 +38805,91 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $12243 = self.err; + var $12355 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $12245 = self.err; - var self = $12243; + var $12357 = self.err; + var self = $12355; switch (self._) { case 'Maybe.some': - var $12247 = self.value; - var $12248 = Parser$Reply$error$(Parser$Error$combine$($12247, $12245)); - var $12246 = $12248; + var $12359 = self.value; + var $12360 = Parser$Reply$error$(Parser$Error$combine$($12359, $12357)); + var $12358 = $12360; break; case 'Maybe.none': - var $12249 = Parser$Reply$error$($12245); - var $12246 = $12249; + var $12361 = Parser$Reply$error$($12357); + var $12358 = $12361; break; }; - var $12244 = $12246; + var $12356 = $12358; break; case 'Parser.Reply.value': - var $12250 = self.pst; - var self = $12250; + var $12362 = self.pst; + var self = $12362; switch (self._) { case 'Parser.State.new': - var $12252 = self.err; - var $12253 = self.nam; - var $12254 = self.ini; - var $12255 = self.idx; - var $12256 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12243, $12252), $12253, $12254, $12255, $12256); + var $12364 = self.err; + var $12365 = self.nam; + var $12366 = self.ini; + var $12367 = self.idx; + var $12368 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12355, $12364), $12365, $12366, $12367, $12368); var self = _reply$pst$18; switch (self._) { case 'Parser.State.new': - var $12258 = self.err; + var $12370 = self.err; var _reply$24 = Parser$eof$(_reply$pst$18); var self = _reply$24; switch (self._) { case 'Parser.Reply.error': - var $12260 = self.err; - var self = $12258; + var $12372 = self.err; + var self = $12370; switch (self._) { case 'Maybe.some': - var $12262 = self.value; - var $12263 = Parser$Reply$error$(Parser$Error$combine$($12262, $12260)); - var $12261 = $12263; + var $12374 = self.value; + var $12375 = Parser$Reply$error$(Parser$Error$combine$($12374, $12372)); + var $12373 = $12375; break; case 'Maybe.none': - var $12264 = Parser$Reply$error$($12260); - var $12261 = $12264; + var $12376 = Parser$Reply$error$($12372); + var $12373 = $12376; break; }; - var $12259 = $12261; + var $12371 = $12373; break; case 'Parser.Reply.value': - var $12265 = self.pst; - var self = $12265; + var $12377 = self.pst; + var self = $12377; switch (self._) { case 'Parser.State.new': - var $12267 = self.err; - var $12268 = self.nam; - var $12269 = self.ini; - var $12270 = self.idx; - var $12271 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($12258, $12267), $12268, $12269, $12270, $12271); - var $12272 = Parser$Reply$value$(_reply$pst$32, _defs$3); - var $12266 = $12272; + var $12379 = self.err; + var $12380 = self.nam; + var $12381 = self.ini; + var $12382 = self.idx; + var $12383 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($12370, $12379), $12380, $12381, $12382, $12383); + var $12384 = Parser$Reply$value$(_reply$pst$32, _defs$3); + var $12378 = $12384; break; }; - var $12259 = $12266; + var $12371 = $12378; break; }; - var $12257 = $12259; + var $12369 = $12371; break; }; - var $12251 = $12257; + var $12363 = $12369; break; }; - var $12244 = $12251; + var $12356 = $12363; break; }; - var $12242 = $12244; + var $12354 = $12356; break; }; - return $12242; + return $12354; }; const Kind$Parser$file$end = x0 => x1 => x2 => x3 => Kind$Parser$file$end$(x0, x1, x2, x3); @@ -38578,151 +38897,151 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $12274 = self.err; + var $12386 = self.err; var _reply$10 = Parser$is_eof$(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $12276 = self.err; - var self = $12274; + var $12388 = self.err; + var self = $12386; switch (self._) { case 'Maybe.some': - var $12278 = self.value; - var $12279 = Parser$Reply$error$(Parser$Error$combine$($12278, $12276)); - var $12277 = $12279; + var $12390 = self.value; + var $12391 = Parser$Reply$error$(Parser$Error$combine$($12390, $12388)); + var $12389 = $12391; break; case 'Maybe.none': - var $12280 = Parser$Reply$error$($12276); - var $12277 = $12280; + var $12392 = Parser$Reply$error$($12388); + var $12389 = $12392; break; }; - var $12275 = $12277; + var $12387 = $12389; break; case 'Parser.Reply.value': - var $12281 = self.pst; - var $12282 = self.val; - var self = $12281; + var $12393 = self.pst; + var $12394 = self.val; + var self = $12393; switch (self._) { case 'Parser.State.new': - var $12284 = self.err; - var $12285 = self.nam; - var $12286 = self.ini; - var $12287 = self.idx; - var $12288 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12274, $12284), $12285, $12286, $12287, $12288); - var self = $12282; + var $12396 = self.err; + var $12397 = self.nam; + var $12398 = self.ini; + var $12399 = self.idx; + var $12400 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12386, $12396), $12397, $12398, $12399, $12400); + var self = $12394; if (self) { - var $12290 = (_pst$19 => { - var $12291 = Parser$Reply$value$(_pst$19, _defs$3); - return $12291; + var $12402 = (_pst$19 => { + var $12403 = Parser$Reply$value$(_pst$19, _defs$3); + return $12403; }); - var $12289 = $12290; + var $12401 = $12402; } else { - var $12292 = (_pst$19 => { + var $12404 = (_pst$19 => { var self = _pst$19; switch (self._) { case 'Parser.State.new': - var $12294 = self.err; + var $12406 = 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.Reply.error': - var $12296 = self.err; - var self = $12294; + var $12408 = self.err; + var self = $12406; switch (self._) { case 'Maybe.some': - var $12298 = self.value; - var $12299 = Parser$Reply$error$(Parser$Error$combine$($12298, $12296)); - var $12297 = $12299; + var $12410 = self.value; + var $12411 = Parser$Reply$error$(Parser$Error$combine$($12410, $12408)); + var $12409 = $12411; break; case 'Maybe.none': - var $12300 = Parser$Reply$error$($12296); - var $12297 = $12300; + var $12412 = Parser$Reply$error$($12408); + var $12409 = $12412; break; }; - var $12295 = $12297; + var $12407 = $12409; break; case 'Parser.Reply.value': - var $12301 = self.pst; - var $12302 = self.val; - var self = $12301; + var $12413 = self.pst; + var $12414 = self.val; + var self = $12413; switch (self._) { case 'Parser.State.new': - var $12304 = self.err; - var $12305 = self.nam; - var $12306 = self.ini; - var $12307 = self.idx; - var $12308 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($12294, $12304), $12305, $12306, $12307, $12308); + var $12416 = self.err; + var $12417 = self.nam; + var $12418 = self.ini; + var $12419 = self.idx; + var $12420 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($12406, $12416), $12417, $12418, $12419, $12420); var self = _reply$pst$33; switch (self._) { case 'Parser.State.new': - var $12310 = self.err; - var _reply$39 = Kind$Parser$file$(_file$1, _code$2, $12302, _reply$pst$33); + var $12422 = self.err; + var _reply$39 = Kind$Parser$file$(_file$1, _code$2, $12414, _reply$pst$33); var self = _reply$39; switch (self._) { case 'Parser.Reply.error': - var $12312 = self.err; - var self = $12310; + var $12424 = self.err; + var self = $12422; switch (self._) { case 'Maybe.some': - var $12314 = self.value; - var $12315 = Parser$Reply$error$(Parser$Error$combine$($12314, $12312)); - var $12313 = $12315; + var $12426 = self.value; + var $12427 = Parser$Reply$error$(Parser$Error$combine$($12426, $12424)); + var $12425 = $12427; break; case 'Maybe.none': - var $12316 = Parser$Reply$error$($12312); - var $12313 = $12316; + var $12428 = Parser$Reply$error$($12424); + var $12425 = $12428; break; }; - var $12311 = $12313; + var $12423 = $12425; break; case 'Parser.Reply.value': - var $12317 = self.pst; - var $12318 = self.val; - var self = $12317; + var $12429 = self.pst; + var $12430 = self.val; + var self = $12429; switch (self._) { case 'Parser.State.new': - var $12320 = self.err; - var $12321 = self.nam; - var $12322 = self.ini; - var $12323 = self.idx; - var $12324 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($12310, $12320), $12321, $12322, $12323, $12324); - var $12325 = Parser$Reply$value$(_reply$pst$47, $12318); - var $12319 = $12325; + var $12432 = self.err; + var $12433 = self.nam; + var $12434 = self.ini; + var $12435 = self.idx; + var $12436 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($12422, $12432), $12433, $12434, $12435, $12436); + var $12437 = Parser$Reply$value$(_reply$pst$47, $12430); + var $12431 = $12437; break; }; - var $12311 = $12319; + var $12423 = $12431; break; }; - var $12309 = $12311; + var $12421 = $12423; break; }; - var $12303 = $12309; + var $12415 = $12421; break; }; - var $12295 = $12303; + var $12407 = $12415; break; }; - var $12293 = $12295; + var $12405 = $12407; break; }; - return $12293; + return $12405; }); - var $12289 = $12292; + var $12401 = $12404; }; - var $12289 = $12289(_reply$pst$18); - var $12283 = $12289; + var $12401 = $12401(_reply$pst$18); + var $12395 = $12401; break; }; - var $12275 = $12283; + var $12387 = $12395; break; }; - var $12273 = $12275; + var $12385 = $12387; break; }; - return $12273; + return $12385; }; const Kind$Parser$file = x0 => x1 => x2 => x3 => Kind$Parser$file$(x0, x1, x2, x3); @@ -38730,38 +39049,38 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.cons': - var $12327 = self.head; - var $12328 = self.tail; - var $12329 = String$flatten$(List$cons$((() => { + var $12439 = self.head; + var $12440 = self.tail; + var $12441 = String$flatten$(List$cons$((() => { var self = _fst$3; if (self) { - var $12330 = ""; - return $12330; + var $12442 = ""; + return $12442; } else { - var $12331 = _sep$1; - return $12331; + var $12443 = _sep$1; + return $12443; }; - })(), List$cons$($12327, List$cons$(String$join$go$(_sep$1, $12328, Bool$false), List$nil)))); - var $12326 = $12329; + })(), List$cons$($12439, List$cons$(String$join$go$(_sep$1, $12440, Bool$false), List$nil)))); + var $12438 = $12441; break; case 'List.nil': - var $12332 = ""; - var $12326 = $12332; + var $12444 = ""; + var $12438 = $12444; break; }; - return $12326; + return $12438; }; const String$join$go = x0 => x1 => x2 => String$join$go$(x0, x1, x2); function String$join$(_sep$1, _list$2) { - var $12333 = String$join$go$(_sep$1, _list$2, Bool$true); - return $12333; + var $12445 = String$join$go$(_sep$1, _list$2, Bool$true); + return $12445; }; const String$join = x0 => x1 => String$join$(x0, x1); function Kind$Code$highlight$end$(_col$1, _row$2, _res$3) { - var $12334 = String$join$("\u{a}", _res$3); - return $12334; + var $12446 = String$join$("\u{a}", _res$3); + return $12446; }; const Kind$Code$highlight$end = x0 => x1 => x2 => Kind$Code$highlight$end$(x0, x1, x2); @@ -38769,79 +39088,66 @@ module.exports = (function() { var self = _m$2; switch (self._) { case 'Maybe.some': - var $12336 = self.value; - var $12337 = _f$5($12336); - var $12335 = $12337; + var $12448 = self.value; + var $12449 = _f$5($12448); + var $12447 = $12449; break; case 'Maybe.none': - var $12338 = _a$4; - var $12335 = $12338; + var $12450 = _a$4; + var $12447 = $12450; break; }; - return $12335; + return $12447; }; 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 $12340 = Bool$true; - var $12339 = $12340; + var $12452 = Bool$true; + var $12451 = $12452; } else { - var $12341 = (self - 1n); - var $12342 = Bool$false; - var $12339 = $12342; + var $12453 = (self - 1n); + var $12454 = Bool$false; + var $12451 = $12454; }; - return $12339; + return $12451; }; const Nat$is_zero = x0 => Nat$is_zero$(x0); - - function Nat$double$(_n$1) { - var self = _n$1; - if (self === 0n) { - var $12344 = Nat$zero; - var $12343 = $12344; - } else { - var $12345 = (self - 1n); - var $12346 = Nat$succ$(Nat$succ$(Nat$double$($12345))); - var $12343 = $12346; - }; - return $12343; - }; - const Nat$double = x0 => Nat$double$(x0); + const Nat$double = a0 => (a0 * 2n); function String$pad_right$(_size$1, _chr$2, _str$3) { var self = _size$1; if (self === 0n) { - var $12348 = _str$3; - var $12347 = $12348; + var $12456 = _str$3; + var $12455 = $12456; } else { - var $12349 = (self - 1n); + var $12457 = (self - 1n); var self = _str$3; if (self.length === 0) { - var $12351 = String$cons$(_chr$2, String$pad_right$($12349, _chr$2, "")); - var $12350 = $12351; + var $12459 = String$cons$(_chr$2, String$pad_right$($12457, _chr$2, "")); + var $12458 = $12459; } else { - var $12352 = self.charCodeAt(0); - var $12353 = self.slice(1); - var $12354 = String$cons$($12352, String$pad_right$($12349, _chr$2, $12353)); - var $12350 = $12354; + var $12460 = self.charCodeAt(0); + var $12461 = self.slice(1); + var $12462 = String$cons$($12460, String$pad_right$($12457, _chr$2, $12461)); + var $12458 = $12462; }; - var $12347 = $12350; + var $12455 = $12458; }; - return $12347; + return $12455; }; const String$pad_right = x0 => x1 => x2 => String$pad_right$(x0, x1, x2); function String$pad_left$(_size$1, _chr$2, _str$3) { - var $12355 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); - return $12355; + var $12463 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); + return $12463; }; const String$pad_left = x0 => x1 => x2 => String$pad_left$(x0, x1, x2); function Kind$Code$color$(_col$1, _str$2) { - var $12356 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); - return $12356; + var $12464 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); + return $12464; }; const Kind$Code$color = x0 => x1 => Kind$Code$color$(x0, x1); @@ -38849,25 +39155,25 @@ module.exports = (function() { var self = _xs$3; switch (self._) { case 'List.cons': - var $12358 = self.head; - var $12359 = self.tail; + var $12466 = self.head; + var $12467 = self.tail; var self = _n$2; if (self === 0n) { - var $12361 = List$nil; - var $12360 = $12361; + var $12469 = List$nil; + var $12468 = $12469; } else { - var $12362 = (self - 1n); - var $12363 = List$cons$($12358, List$take$($12362, $12359)); - var $12360 = $12363; + var $12470 = (self - 1n); + var $12471 = List$cons$($12466, List$take$($12470, $12467)); + var $12468 = $12471; }; - var $12357 = $12360; + var $12465 = $12468; break; case 'List.nil': - var $12364 = List$nil; - var $12357 = $12364; + var $12472 = List$nil; + var $12465 = $12472; break; }; - return $12357; + return $12465; }; const List$take = x0 => x1 => List$take$(x0, x1); @@ -38884,39 +39190,39 @@ module.exports = (function() { var _spa$10 = 3n; var self = _code$1; if (self.length === 0) { - var $12366 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $12365 = $12366; + var $12474 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $12473 = $12474; } else { - var $12367 = self.charCodeAt(0); - var $12368 = self.slice(1); - var self = ($12367 === 10); + var $12475 = self.charCodeAt(0); + var $12476 = self.slice(1); + var self = ($12475 === 10); if (self) { var _stp$13 = Maybe$extract$(_lft$7, Bool$false, Nat$is_zero); var self = _stp$13; if (self) { - var $12371 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $12370 = $12371; + var $12479 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $12478 = $12479; } else { - var _siz$14 = Nat$succ$(Nat$double$(_spa$10)); + var _siz$14 = Nat$succ$((_spa$10 * 2n)); var self = _ix1$4; if (self === 0n) { var self = _lft$7; switch (self._) { case 'Maybe.some': - var $12374 = self.value; - var $12375 = Maybe$some$(Nat$pred$($12374)); - var $12373 = $12375; + var $12482 = self.value; + var $12483 = Maybe$some$(Nat$pred$($12482)); + var $12481 = $12483; break; case 'Maybe.none': - var $12376 = Maybe$some$(_spa$10); - var $12373 = $12376; + var $12484 = Maybe$some$(_spa$10); + var $12481 = $12484; break; }; - var _lft$15 = $12373; + var _lft$15 = $12481; } else { - var $12377 = (self - 1n); - var $12378 = _lft$7; - var _lft$15 = $12378; + var $12485 = (self - 1n); + var $12486 = _lft$7; + var _lft$15 = $12486; }; var _ixi$16 = Nat$pred$(_ixi$2); var _ix0$17 = Nat$pred$(_ix0$3); @@ -38925,46 +39231,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 $12372 = Kind$Code$highlight$go$($12368, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); - var $12370 = $12372; + var $12480 = Kind$Code$highlight$go$($12476, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); + var $12478 = $12480; }; - var $12369 = $12370; + var $12477 = $12478; } else { - var _chr$13 = String$cons$($12367, String$nil); + var _chr$13 = String$cons$($12475, String$nil); var self = (Nat$is_zero$(_ix0$3) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $12380 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); - var _chr$14 = $12380; + var $12488 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); + var _chr$14 = $12488; } else { var self = (Nat$is_zero$(_ixi$2) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $12382 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); - var $12381 = $12382; + var $12490 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); + var $12489 = $12490; } else { - var $12383 = _chr$13; - var $12381 = $12383; + var $12491 = _chr$13; + var $12489 = $12491; }; - var _chr$14 = $12381; + var _chr$14 = $12489; }; var self = (_ix0$3 === 1n); if (self) { - var $12384 = List$take$(_spa$10, _res$9); - var _res$15 = $12384; + var $12492 = List$take$(_spa$10, _res$9); + var _res$15 = $12492; } else { - var $12385 = _res$9; - var _res$15 = $12385; + var $12493 = _res$9; + var _res$15 = $12493; }; 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 $12379 = Kind$Code$highlight$go$($12368, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); - var $12369 = $12379; + var $12487 = Kind$Code$highlight$go$($12476, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); + var $12477 = $12487; }; - var $12365 = $12369; + var $12473 = $12477; }; - return $12365; + return $12473; })(); if (R.ctr === 'TCO') arg = R.arg; else return R; @@ -38973,8 +39279,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 $12386 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); - return $12386; + var $12494 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); + return $12494; }; const Kind$Code$highlight = x0 => x1 => x2 => x3 => Kind$Code$highlight$(x0, x1, x2, x3); @@ -38982,41 +39288,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 $12388 = self.err; - var self = $12388; + var $12496 = self.err; + var self = $12496; switch (self._) { case 'Parser.Error.new': - var $12390 = self.nam; - var $12391 = self.ini; - var $12392 = self.idx; - var $12393 = self.msg; - var _err$9 = ($12393 + (() => { - var self = $12390; + var $12498 = self.nam; + var $12499 = self.ini; + var $12500 = self.idx; + var $12501 = self.msg; + var _err$9 = ($12501 + (() => { + var self = $12498; if (self.length === 0) { - var $12395 = ""; - return $12395; + var $12503 = ""; + return $12503; } else { - var $12396 = self.charCodeAt(0); - var $12397 = self.slice(1); - var $12398 = (" Inside " + ($12390 + ":")); - return $12398; + var $12504 = self.charCodeAt(0); + var $12505 = self.slice(1); + var $12506 = (" Inside " + ($12498 + ":")); + return $12506; }; })()); - var _hig$10 = Kind$Code$highlight$(_code$2, $12391, $12392, Nat$succ$($12392)); + var _hig$10 = Kind$Code$highlight$(_code$2, $12499, $12500, Nat$succ$($12500)); var _str$11 = String$flatten$(List$cons$(_err$9, List$cons$("\u{a}", List$cons$(_hig$10, List$nil)))); - var $12394 = Either$left$(_str$11); - var $12389 = $12394; + var $12502 = Either$left$(_str$11); + var $12497 = $12502; break; }; - var $12387 = $12389; + var $12495 = $12497; break; case 'Parser.Reply.value': - var $12399 = self.val; - var $12400 = Either$right$($12399); - var $12387 = $12400; + var $12507 = self.val; + var $12508 = Either$right$($12507); + var $12495 = $12508; break; }; - return $12387; + return $12495; }; const Kind$Defs$read = x0 => x1 => x2 => Kind$Defs$read$(x0, x1, x2); @@ -39024,52 +39330,52 @@ module.exports = (function() { var self = _files$2; switch (self._) { case 'List.cons': - var $12402 = self.head; - var $12403 = self.tail; - var $12404 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $12405 = _m$bind$6; - return $12405; - }))(Kind$Synth$get_kind_code$($12402))((_code$6 => { - var _read$7 = Kind$Defs$read$($12402, _code$6, _defs$3); + var $12510 = self.head; + var $12511 = self.tail; + var $12512 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $12513 = _m$bind$6; + return $12513; + }))(Kind$Synth$get_kind_code$($12510))((_code$6 => { + var _read$7 = Kind$Defs$read$($12510, _code$6, _defs$3); var self = _read$7; switch (self._) { case 'Either.right': - var $12407 = self.value; - var _defs$9 = $12407; + var $12515 = self.value; + var _defs$9 = $12515; var self = Kind$Map$get$(_name$1, _defs$9); switch (self._) { case 'Maybe.none': - var $12409 = Kind$Synth$load$go$(_name$1, $12403, _defs$9); - var $12408 = $12409; + var $12517 = Kind$Synth$load$go$(_name$1, $12511, _defs$9); + var $12516 = $12517; break; case 'Maybe.some': - var $12410 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $12411 = _m$pure$12; - return $12411; + var $12518 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $12519 = _m$pure$12; + return $12519; }))(Maybe$some$(_defs$9)); - var $12408 = $12410; + var $12516 = $12518; break; }; - var $12406 = $12408; + var $12514 = $12516; break; case 'Either.left': - var $12412 = Kind$Synth$load$go$(_name$1, $12403, _defs$3); - var $12406 = $12412; + var $12520 = Kind$Synth$load$go$(_name$1, $12511, _defs$3); + var $12514 = $12520; break; }; - return $12406; + return $12514; })); - var $12401 = $12404; + var $12509 = $12512; break; case 'List.nil': - var $12413 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $12414 = _m$pure$5; - return $12414; + var $12521 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $12522 = _m$pure$5; + return $12522; }))(Maybe$none); - var $12401 = $12413; + var $12509 = $12521; break; }; - return $12401; + return $12509; }; const Kind$Synth$load$go = x0 => x1 => x2 => Kind$Synth$load$go$(x0, x1, x2); @@ -39077,19 +39383,19 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $12416 = self.head; - var $12417 = self.tail; - var _head$5 = (_last$2 + ($12416 + ".kind")); - var _tail$6 = Kind$Synth$files_of$make$($12417, (_last$2 + ($12416 + "/"))); - var $12418 = List$cons$(_head$5, _tail$6); - var $12415 = $12418; + var $12524 = self.head; + var $12525 = self.tail; + var _head$5 = (_last$2 + ($12524 + ".kind")); + var _tail$6 = Kind$Synth$files_of$make$($12525, (_last$2 + ($12524 + "/"))); + var $12526 = List$cons$(_head$5, _tail$6); + var $12523 = $12526; break; case 'List.nil': - var $12419 = List$nil; - var $12415 = $12419; + var $12527 = List$nil; + var $12523 = $12527; break; }; - return $12415; + return $12523; }; const Kind$Synth$files_of$make = x0 => x1 => Kind$Synth$files_of$make$(x0, x1); @@ -39105,13 +39411,13 @@ module.exports = (function() { var R = (() => { var self = _xs$1; if (self.length === 0) { - var $12420 = _n$2; - return $12420; + var $12528 = _n$2; + return $12528; } else { - var $12421 = self.charCodeAt(0); - var $12422 = self.slice(1); - var $12423 = String$length$go$($12422, Nat$succ$(_n$2)); - return $12423; + var $12529 = self.charCodeAt(0); + var $12530 = self.slice(1); + var $12531 = String$length$go$($12530, Nat$succ$(_n$2)); + return $12531; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39121,70 +39427,70 @@ module.exports = (function() { const String$length$go = x0 => x1 => String$length$go$(x0, x1); function String$length$(_xs$1) { - var $12424 = String$length$go$(_xs$1, 0n); - return $12424; + var $12532 = String$length$go$(_xs$1, 0n); + return $12532; }; 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 $12426 = List$cons$(_last$3, List$nil); - var $12425 = $12426; + var $12534 = List$cons$(_last$3, List$nil); + var $12533 = $12534; } else { - var $12427 = self.charCodeAt(0); - var $12428 = self.slice(1); + var $12535 = self.charCodeAt(0); + var $12536 = 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 $12430 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); - var $12429 = $12430; + var $12538 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); + var $12537 = $12538; } else { - var _next$6 = String$cons$($12427, String$nil); - var $12431 = String$split$go$($12428, _match$2, (_last$3 + _next$6)); - var $12429 = $12431; + var _next$6 = String$cons$($12535, String$nil); + var $12539 = String$split$go$($12536, _match$2, (_last$3 + _next$6)); + var $12537 = $12539; }; - var $12425 = $12429; + var $12533 = $12537; }; - return $12425; + return $12533; }; const String$split$go = x0 => x1 => x2 => String$split$go$(x0, x1, x2); function String$split$(_xs$1, _match$2) { - var $12432 = String$split$go$(_xs$1, _match$2, ""); - return $12432; + var $12540 = String$split$go$(_xs$1, _match$2, ""); + return $12540; }; const String$split = x0 => x1 => String$split$(x0, x1); function Kind$Synth$files_of$(_name$1) { - var $12433 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); - return $12433; + var $12541 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); + return $12541; }; const Kind$Synth$files_of = x0 => Kind$Synth$files_of$(x0); function Kind$Synth$load$(_name$1, _defs$2) { - var $12434 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $12435 = _m$bind$3; - return $12435; + var $12542 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $12543 = _m$bind$3; + return $12543; }))(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 $12437 = self.value; - var $12438 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $12439 = _m$pure$6; - return $12439; - }))(Maybe$some$($12437)); - var $12436 = $12438; + var $12545 = self.value; + var $12546 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $12547 = _m$pure$6; + return $12547; + }))(Maybe$some$($12545)); + var $12544 = $12546; break; case 'Maybe.none': - var $12440 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); - var $12436 = $12440; + var $12548 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); + var $12544 = $12548; break; }; - return $12436; + return $12544; })); - return $12434; + return $12542; }; const Kind$Synth$load = x0 => x1 => Kind$Synth$load$(x0, x1); const Kind$Status$wait = ({ @@ -39192,46 +39498,46 @@ module.exports = (function() { }); function Kind$Check$(_V$1) { - var $12441 = null; - return $12441; + var $12549 = null; + return $12549; }; const Kind$Check = x0 => Kind$Check$(x0); function Kind$Check$result$(_value$2, _errors$3) { - var $12442 = ({ + var $12550 = ({ _: 'Kind.Check.result', 'value': _value$2, 'errors': _errors$3 }); - return $12442; + return $12550; }; const Kind$Check$result = x0 => x1 => Kind$Check$result$(x0, x1); function Kind$Error$undefined_reference$(_origin$1, _name$2) { - var $12443 = ({ + var $12551 = ({ _: 'Kind.Error.undefined_reference', 'origin': _origin$1, 'name': _name$2 }); - return $12443; + return $12551; }; const Kind$Error$undefined_reference = x0 => x1 => Kind$Error$undefined_reference$(x0, x1); function Kind$Error$waiting$(_name$1) { - var $12444 = ({ + var $12552 = ({ _: 'Kind.Error.waiting', 'name': _name$1 }); - return $12444; + return $12552; }; const Kind$Error$waiting = x0 => Kind$Error$waiting$(x0); function Kind$Error$indirect$(_name$1) { - var $12445 = ({ + var $12553 = ({ _: 'Kind.Error.indirect', 'name': _name$1 }); - return $12445; + return $12553; }; const Kind$Error$indirect = x0 => Kind$Error$indirect$(x0); @@ -39239,38 +39545,38 @@ module.exports = (function() { var self = _m$2; switch (self._) { case 'Maybe.some': - var $12447 = self.value; - var $12448 = Maybe$some$(_f$4($12447)); - var $12446 = $12448; + var $12555 = self.value; + var $12556 = Maybe$some$(_f$4($12555)); + var $12554 = $12556; break; case 'Maybe.none': - var $12449 = Maybe$none; - var $12446 = $12449; + var $12557 = Maybe$none; + var $12554 = $12557; break; }; - return $12446; + return $12554; }; const Maybe$mapped = x0 => x1 => Maybe$mapped$(x0, x1); function Kind$Path$Maybe$Builder$o$(_path$1) { - var $12450 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); - return $12450; + var $12558 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); + return $12558; }; const Kind$Path$Maybe$Builder$o = x0 => Kind$Path$Maybe$Builder$o$(x0); function Kind$Path$Maybe$Builder$i$(_path$1) { - var $12451 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); - return $12451; + var $12559 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); + return $12559; }; const Kind$Path$Maybe$Builder$i = x0 => Kind$Path$Maybe$Builder$i$(x0); function Kind$Error$patch$(_path$1, _term$2) { - var $12452 = ({ + var $12560 = ({ _: 'Kind.Error.patch', 'path': _path$1, 'term': _term$2 }); - return $12452; + return $12560; }; const Kind$Error$patch = x0 => x1 => Kind$Error$patch$(x0, x1); @@ -39278,34 +39584,34 @@ module.exports = (function() { var self = _path$1; switch (self._) { case 'Maybe.some': - var $12454 = self.value; - var $12455 = $12454(Bits$e); - var $12453 = $12455; + var $12562 = self.value; + var $12563 = $12562(Bits$e); + var $12561 = $12563; break; case 'Maybe.none': - var $12456 = Bits$e; - var $12453 = $12456; + var $12564 = Bits$e; + var $12561 = $12564; break; }; - return $12453; + return $12561; }; 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 $12457 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); - return $12457; + var $12565 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); + return $12565; }; 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 $12458 = ({ + var $12566 = ({ _: 'Kind.Error.type_mismatch', 'origin': _origin$1, 'expected': _expected$2, 'detected': _detected$3, 'context': _context$4 }); - return $12458; + return $12566; }; const Kind$Error$type_mismatch = x0 => x1 => x2 => x3 => Kind$Error$type_mismatch$(x0, x1, x2, x3); @@ -39322,9 +39628,9 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ori': - var $12459 = self.expr; - var $12460 = Kind$Term$unori$($12459); - return $12460; + var $12567 = self.expr; + var $12568 = Kind$Term$unori$($12567); + return $12568; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -39347,8 +39653,8 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $12461 = _term$1; - return $12461; + var $12569 = _term$1; + return $12569; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39358,7 +39664,7 @@ module.exports = (function() { const Kind$Term$unori = x0 => Kind$Term$unori$(x0); function Kind$Error$show_goal$(_name$1, _dref$2, _verb$3, _goal$4, _context$5) { - var $12462 = ({ + var $12570 = ({ _: 'Kind.Error.show_goal', 'name': _name$1, 'dref': _dref$2, @@ -39366,13 +39672,13 @@ module.exports = (function() { 'goal': _goal$4, 'context': _context$5 }); - return $12462; + return $12570; }; 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 $12463 = _x$1; - return $12463; + var $12571 = _x$1; + return $12571; }; const Kind$Path$Builder$nil = x0 => Kind$Path$Builder$nil$(x0); const Kind$Path$Maybe$Builder$nil = Maybe$some$(Kind$Path$Builder$nil); @@ -39381,31 +39687,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 $12465 = self.value; - var $12466 = self.errors; - var self = $12465; + var $12573 = self.value; + var $12574 = self.errors; + var self = $12573; switch (self._) { case 'Maybe.none': - var $12468 = Kind$Check$result$(Maybe$none, $12466); - var $12467 = $12468; + var $12576 = Kind$Check$result$(Maybe$none, $12574); + var $12575 = $12576; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(_term$1), List$nil); switch (self._) { case 'Kind.Check.result': - var $12470 = self.value; - var $12471 = self.errors; - var $12472 = Kind$Check$result$($12470, List$concat$($12466, $12471)); - var $12469 = $12472; + var $12578 = self.value; + var $12579 = self.errors; + var $12580 = Kind$Check$result$($12578, List$concat$($12574, $12579)); + var $12577 = $12580; break; }; - var $12467 = $12469; + var $12575 = $12577; break; }; - var $12464 = $12467; + var $12572 = $12575; break; }; - return $12464; + return $12572; }; const Kind$Term$check$direct = x0 => x1 => Kind$Term$check$direct$(x0, x1); @@ -39415,13 +39721,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 $12474 = Maybe$some$(_ini$3); - var $12473 = $12474; + var $12582 = Maybe$some$(_ini$3); + var $12581 = $12582; } else { - var $12475 = Maybe$none; - var $12473 = $12475; + var $12583 = Maybe$none; + var $12581 = $12583; }; - return $12473; + return $12581; }; const Kind$Term$check$get_name_of_self_type$slice = x0 => Kind$Term$check$get_name_of_self_type$slice$(x0); @@ -39429,9 +39735,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, Kind$Map$new); switch (self._) { case 'Kind.Term.ref': - var $12477 = self.name; - var $12478 = Maybe$some$($12477); - var $12476 = $12478; + var $12585 = self.name; + var $12586 = Maybe$some$($12585); + var $12584 = $12586; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -39441,14 +39747,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12480 = self.name; - var $12481 = Maybe$some$($12480); - var $12479 = $12481; + var $12588 = self.name; + var $12589 = Maybe$some$($12588); + var $12587 = $12589; break; case 'Kind.Term.all': - var $12482 = self.self; - var $12483 = Kind$Term$check$get_name_of_self_type$slice$($12482); - var $12479 = $12483; + var $12590 = self.self; + var $12591 = Kind$Term$check$get_name_of_self_type$slice$($12590); + var $12587 = $12591; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39471,24 +39777,24 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12484 = Maybe$none; - var $12479 = $12484; + var $12592 = Maybe$none; + var $12587 = $12592; break; }; - var $12476 = $12479; + var $12584 = $12587; break; case 'Kind.Term.typ': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12486 = self.name; - var $12487 = Maybe$some$($12486); - var $12485 = $12487; + var $12594 = self.name; + var $12595 = Maybe$some$($12594); + var $12593 = $12595; break; case 'Kind.Term.all': - var $12488 = self.self; - var $12489 = Kind$Term$check$get_name_of_self_type$slice$($12488); - var $12485 = $12489; + var $12596 = self.self; + var $12597 = Kind$Term$check$get_name_of_self_type$slice$($12596); + var $12593 = $12597; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39511,24 +39817,24 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12490 = Maybe$none; - var $12485 = $12490; + var $12598 = Maybe$none; + var $12593 = $12598; break; }; - var $12476 = $12485; + var $12584 = $12593; break; case 'Kind.Term.all': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12492 = self.name; - var $12493 = Maybe$some$($12492); - var $12491 = $12493; + var $12600 = self.name; + var $12601 = Maybe$some$($12600); + var $12599 = $12601; break; case 'Kind.Term.all': - var $12494 = self.self; - var $12495 = Kind$Term$check$get_name_of_self_type$slice$($12494); - var $12491 = $12495; + var $12602 = self.self; + var $12603 = Kind$Term$check$get_name_of_self_type$slice$($12602); + var $12599 = $12603; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39551,11 +39857,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12496 = Maybe$none; - var $12491 = $12496; + var $12604 = Maybe$none; + var $12599 = $12604; break; }; - var $12476 = $12491; + var $12584 = $12599; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -39568,14 +39874,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12498 = self.name; - var $12499 = Maybe$some$($12498); - var $12497 = $12499; + var $12606 = self.name; + var $12607 = Maybe$some$($12606); + var $12605 = $12607; break; case 'Kind.Term.all': - var $12500 = self.self; - var $12501 = Kind$Term$check$get_name_of_self_type$slice$($12500); - var $12497 = $12501; + var $12608 = self.self; + var $12609 = Kind$Term$check$get_name_of_self_type$slice$($12608); + var $12605 = $12609; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39598,11 +39904,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12502 = Maybe$none; - var $12497 = $12502; + var $12610 = Maybe$none; + var $12605 = $12610; break; }; - var $12476 = $12497; + var $12584 = $12605; break; case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -39613,14 +39919,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12504 = self.name; - var $12505 = Maybe$some$($12504); - var $12503 = $12505; + var $12612 = self.name; + var $12613 = Maybe$some$($12612); + var $12611 = $12613; break; case 'Kind.Term.all': - var $12506 = self.self; - var $12507 = Kind$Term$check$get_name_of_self_type$slice$($12506); - var $12503 = $12507; + var $12614 = self.self; + var $12615 = Kind$Term$check$get_name_of_self_type$slice$($12614); + var $12611 = $12615; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39643,24 +39949,24 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12508 = Maybe$none; - var $12503 = $12508; + var $12616 = Maybe$none; + var $12611 = $12616; break; }; - var $12476 = $12503; + var $12584 = $12611; break; case 'Kind.Term.cse': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $12510 = self.name; - var $12511 = Maybe$some$($12510); - var $12509 = $12511; + var $12618 = self.name; + var $12619 = Maybe$some$($12618); + var $12617 = $12619; break; case 'Kind.Term.all': - var $12512 = self.self; - var $12513 = Kind$Term$check$get_name_of_self_type$slice$($12512); - var $12509 = $12513; + var $12620 = self.self; + var $12621 = Kind$Term$check$get_name_of_self_type$slice$($12620); + var $12617 = $12621; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -39683,20 +39989,20 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12514 = Maybe$none; - var $12509 = $12514; + var $12622 = Maybe$none; + var $12617 = $12622; break; }; - var $12476 = $12509; + var $12584 = $12617; break; }; - return $12476; + return $12584; }; 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 $12515 = Kind$Term$nat$(_numb$1); - return $12515; + var $12623 = Kind$Term$nat$(_numb$1); + return $12623; }; const Kind$Term$check$expand$num$nat = x0 => Kind$Term$check$expand$num$nat$(x0); @@ -39706,24 +40012,24 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.some': - var $12517 = self.value; - var self = $12517; + var $12625 = self.value; + var self = $12625; if (self) { - var $12519 = _term$4; - var $12518 = $12519; + var $12627 = _term$4; + var $12626 = $12627; } else { - var $12520 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); - var $12518 = $12520; + var $12628 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); + var $12626 = $12628; }; - var _term$5 = $12518; + var _term$5 = $12626; break; case 'Maybe.none': - var $12521 = _term$4; - var _term$5 = $12521; + var $12629 = _term$4; + var _term$5 = $12629; break; }; - var $12516 = _term$5; - return $12516; + var $12624 = _term$5; + return $12624; }; const Kind$Term$check$expand$num$int = x0 => x1 => Kind$Term$check$expand$num$int$(x0, x1); @@ -39731,20 +40037,20 @@ module.exports = (function() { var self = _sign$2; switch (self._) { case 'Maybe.some': - var $12523 = self.value; - var self = $12523; + var $12631 = self.value; + var self = $12631; if (self) { - var $12525 = "+"; - var $12524 = $12525; + var $12633 = "+"; + var $12632 = $12633; } else { - var $12526 = "-"; - var $12524 = $12526; + var $12634 = "-"; + var $12632 = $12634; }; - var _text$5 = $12524; + var _text$5 = $12632; break; case 'Maybe.none': - var $12527 = ""; - var _text$5 = $12527; + var $12635 = ""; + var _text$5 = $12635; break; }; var _text$6 = (_text$5 + Nat$show$(_numb$3)); @@ -39752,16 +40058,16 @@ module.exports = (function() { var self = _frac$4; switch (self._) { case 'Maybe.some': - var $12528 = self.value; - var $12529 = ("." + Nat$show$($12528)); - return $12529; + var $12636 = self.value; + var $12637 = ("." + Nat$show$($12636)); + return $12637; case 'Maybe.none': - var $12530 = ""; - return $12530; + var $12638 = ""; + return $12638; }; })()); - var $12522 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); - return $12522; + var $12630 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); + return $12630; }; const Kind$Term$check$expand$num$other = x0 => x1 => x2 => x3 => Kind$Term$check$expand$num$other$(x0, x1, x2, x3); @@ -39769,46 +40075,46 @@ module.exports = (function() { var self = _type$4; switch (self._) { case 'Maybe.some': - var $12532 = self.value; - var self = Kind$Term$check$get_name_of_self_type$($12532, _defs$5); + var $12640 = self.value; + var self = Kind$Term$check$get_name_of_self_type$($12640, _defs$5); switch (self._) { case 'Maybe.some': - var $12534 = self.value; - var self = ($12534 === "Nat"); + var $12642 = self.value; + var self = ($12642 === "Nat"); if (self) { - var $12536 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); - var $12535 = $12536; + var $12644 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); + var $12643 = $12644; } else { - var self = ($12534 === "Int"); + var self = ($12642 === "Int"); if (self) { - var $12538 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); - var $12537 = $12538; + var $12646 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); + var $12645 = $12646; } else { - var $12539 = Maybe$some$(Kind$Term$check$expand$num$other$($12534, _sign$1, _numb$2, _frac$3)); - var $12537 = $12539; + var $12647 = Maybe$some$(Kind$Term$check$expand$num$other$($12642, _sign$1, _numb$2, _frac$3)); + var $12645 = $12647; }; - var $12535 = $12537; + var $12643 = $12645; }; - var $12533 = $12535; + var $12641 = $12643; break; case 'Maybe.none': - var $12540 = Maybe$none; - var $12533 = $12540; + var $12648 = Maybe$none; + var $12641 = $12648; break; }; - var _got$6 = $12533; + var _got$6 = $12641; break; case 'Maybe.none': - var $12541 = Maybe$none; - var _got$6 = $12541; + var $12649 = Maybe$none; + var _got$6 = $12649; break; }; var self = _got$6; switch (self._) { case 'Maybe.some': - var $12542 = self.value; - var $12543 = $12542; - var $12531 = $12543; + var $12650 = self.value; + var $12651 = $12650; + var $12639 = $12651; break; case 'Maybe.none': var self = _frac$3; @@ -39817,25 +40123,25 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.none': - var $12546 = Kind$Term$check$expand$num$nat$(_numb$2); - var $12545 = $12546; + var $12654 = Kind$Term$check$expand$num$nat$(_numb$2); + var $12653 = $12654; break; case 'Maybe.some': - var $12547 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); - var $12545 = $12547; + var $12655 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); + var $12653 = $12655; break; }; - var $12544 = $12545; + var $12652 = $12653; break; case 'Maybe.some': - var $12548 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); - var $12544 = $12548; + var $12656 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); + var $12652 = $12656; break; }; - var $12531 = $12544; + var $12639 = $12652; break; }; - return $12531; + return $12639; }; const Kind$Term$check$expand$num = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$num$(x0, x1, x2, x3, x4); @@ -39843,118 +40149,118 @@ module.exports = (function() { var self = _vars$1; switch (self._) { case 'List.cons': - var $12550 = self.head; - var $12551 = self.tail; - var self = $12550; + var $12658 = self.head; + var $12659 = self.tail; + var self = $12658; switch (self._) { case 'Kind.Ann.new': - var $12553 = self.name; - var $12554 = self.term; - var $12555 = self.type; - var self = $12555; + var $12661 = self.name; + var $12662 = self.term; + var $12663 = self.type; + var self = $12663; switch (self._) { case 'Maybe.some': - var $12557 = self.value; - var $12558 = Kind$Check$result$(Maybe$some$(Maybe$some$($12557)), List$nil); - var self = $12558; + var $12665 = self.value; + var $12666 = Kind$Check$result$(Maybe$some$(Maybe$some$($12665)), List$nil); + var self = $12666; break; case 'Maybe.none': - var self = Kind$Term$check$($12554, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); + var self = Kind$Term$check$($12662, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $12560 = self.value; - var $12561 = self.errors; - var self = $12560; + var $12668 = self.value; + var $12669 = self.errors; + var self = $12668; switch (self._) { case 'Maybe.some': - var $12563 = self.value; - var self = Kind$Check$result$(Maybe$some$(Maybe$some$($12563)), List$nil); + var $12671 = self.value; + var self = Kind$Check$result$(Maybe$some$(Maybe$some$($12671)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12565 = self.value; - var $12566 = self.errors; - var $12567 = Kind$Check$result$($12565, List$concat$($12561, $12566)); - var $12564 = $12567; + var $12673 = self.value; + var $12674 = self.errors; + var $12675 = Kind$Check$result$($12673, List$concat$($12669, $12674)); + var $12672 = $12675; break; }; - var $12562 = $12564; + var $12670 = $12672; break; case 'Maybe.none': - var $12568 = Kind$Check$result$(Maybe$none, $12561); - var $12562 = $12568; + var $12676 = Kind$Check$result$(Maybe$none, $12669); + var $12670 = $12676; break; }; - var $12559 = $12562; + var $12667 = $12670; break; }; - var self = $12559; + var self = $12667; break; }; switch (self._) { case 'Kind.Check.result': - var $12569 = self.value; - var $12570 = self.errors; - var self = $12569; + var $12677 = self.value; + var $12678 = self.errors; + var self = $12677; switch (self._) { case 'Maybe.some': - var $12572 = self.value; - var self = Kind$Term$check$infer_types_of_with$($12551, _defs$2, _ctx$3, _path$4, _orig$5); + var $12680 = self.value; + var self = Kind$Term$check$infer_types_of_with$($12659, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $12574 = self.value; - var $12575 = self.errors; - var self = $12574; + var $12682 = self.value; + var $12683 = self.errors; + var self = $12682; switch (self._) { case 'Maybe.some': - var $12577 = self.value; - var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($12553, $12554, $12572), $12577)), List$nil); + var $12685 = self.value; + var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($12661, $12662, $12680), $12685)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12579 = self.value; - var $12580 = self.errors; - var $12581 = Kind$Check$result$($12579, List$concat$($12575, $12580)); - var $12578 = $12581; + var $12687 = self.value; + var $12688 = self.errors; + var $12689 = Kind$Check$result$($12687, List$concat$($12683, $12688)); + var $12686 = $12689; break; }; - var $12576 = $12578; + var $12684 = $12686; break; case 'Maybe.none': - var $12582 = Kind$Check$result$(Maybe$none, $12575); - var $12576 = $12582; + var $12690 = Kind$Check$result$(Maybe$none, $12683); + var $12684 = $12690; break; }; - var self = $12576; + var self = $12684; break; }; switch (self._) { case 'Kind.Check.result': - var $12583 = self.value; - var $12584 = self.errors; - var $12585 = Kind$Check$result$($12583, List$concat$($12570, $12584)); - var $12573 = $12585; + var $12691 = self.value; + var $12692 = self.errors; + var $12693 = Kind$Check$result$($12691, List$concat$($12678, $12692)); + var $12681 = $12693; break; }; - var $12571 = $12573; + var $12679 = $12681; break; case 'Maybe.none': - var $12586 = Kind$Check$result$(Maybe$none, $12570); - var $12571 = $12586; + var $12694 = Kind$Check$result$(Maybe$none, $12678); + var $12679 = $12694; break; }; - var $12556 = $12571; + var $12664 = $12679; break; }; - var $12552 = $12556; + var $12660 = $12664; break; }; - var $12549 = $12552; + var $12657 = $12660; break; case 'List.nil': - var $12587 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); - var $12549 = $12587; + var $12695 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); + var $12657 = $12695; break; }; - return $12549; + return $12657; }; 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); @@ -39962,110 +40268,110 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $12589 = self.name; - var $12590 = self.indx; - var $12591 = Kind$Term$var$($12589, $12590); - var $12588 = $12591; + var $12697 = self.name; + var $12698 = self.indx; + var $12699 = Kind$Term$var$($12697, $12698); + var $12696 = $12699; break; case 'Kind.Term.ref': - var $12592 = self.name; - var $12593 = Kind$Term$ref$($12592); - var $12588 = $12593; + var $12700 = self.name; + var $12701 = Kind$Term$ref$($12700); + var $12696 = $12701; break; case 'Kind.Term.all': - var $12594 = self.eras; - var $12595 = self.self; - var $12596 = self.name; - var $12597 = self.xtyp; - var $12598 = self.body; - var $12599 = Kind$Term$all$($12594, $12595, $12596, Kind$Term$normalize$($12597, _defs$2), (_s$8 => _x$9 => { - var $12600 = Kind$Term$normalize$($12598(_s$8)(_x$9), _defs$2); - return $12600; + var $12702 = self.eras; + var $12703 = self.self; + var $12704 = self.name; + var $12705 = self.xtyp; + var $12706 = self.body; + var $12707 = Kind$Term$all$($12702, $12703, $12704, Kind$Term$normalize$($12705, _defs$2), (_s$8 => _x$9 => { + var $12708 = Kind$Term$normalize$($12706(_s$8)(_x$9), _defs$2); + return $12708; })); - var $12588 = $12599; + var $12696 = $12707; break; case 'Kind.Term.lam': - var $12601 = self.name; - var $12602 = self.body; - var $12603 = Kind$Term$lam$($12601, (_x$5 => { - var $12604 = Kind$Term$normalize$($12602(_x$5), _defs$2); - return $12604; + var $12709 = self.name; + var $12710 = self.body; + var $12711 = Kind$Term$lam$($12709, (_x$5 => { + var $12712 = Kind$Term$normalize$($12710(_x$5), _defs$2); + return $12712; })); - var $12588 = $12603; + var $12696 = $12711; break; case 'Kind.Term.app': - var $12605 = self.func; - var $12606 = self.argm; - var $12607 = Kind$Term$app$(Kind$Term$normalize$($12605, _defs$2), Kind$Term$normalize$($12606, _defs$2)); - var $12588 = $12607; + var $12713 = self.func; + var $12714 = self.argm; + var $12715 = Kind$Term$app$(Kind$Term$normalize$($12713, _defs$2), Kind$Term$normalize$($12714, _defs$2)); + var $12696 = $12715; break; case 'Kind.Term.let': - var $12608 = self.name; - var $12609 = self.expr; - var $12610 = self.body; - var $12611 = Kind$Term$let$($12608, Kind$Term$normalize$($12609, _defs$2), (_x$6 => { - var $12612 = Kind$Term$normalize$($12610(_x$6), _defs$2); - return $12612; + var $12716 = self.name; + var $12717 = self.expr; + var $12718 = self.body; + var $12719 = Kind$Term$let$($12716, Kind$Term$normalize$($12717, _defs$2), (_x$6 => { + var $12720 = Kind$Term$normalize$($12718(_x$6), _defs$2); + return $12720; })); - var $12588 = $12611; + var $12696 = $12719; break; case 'Kind.Term.def': - var $12613 = self.name; - var $12614 = self.expr; - var $12615 = self.body; - var $12616 = Kind$Term$def$($12613, Kind$Term$normalize$($12614, _defs$2), (_x$6 => { - var $12617 = Kind$Term$normalize$($12615(_x$6), _defs$2); - return $12617; + var $12721 = self.name; + var $12722 = self.expr; + var $12723 = self.body; + var $12724 = Kind$Term$def$($12721, Kind$Term$normalize$($12722, _defs$2), (_x$6 => { + var $12725 = Kind$Term$normalize$($12723(_x$6), _defs$2); + return $12725; })); - var $12588 = $12616; + var $12696 = $12724; break; case 'Kind.Term.ann': - var $12618 = self.done; - var $12619 = self.term; - var $12620 = self.type; - var $12621 = Kind$Term$ann$($12618, Kind$Term$normalize$($12619, _defs$2), Kind$Term$normalize$($12620, _defs$2)); - var $12588 = $12621; + var $12726 = self.done; + var $12727 = self.term; + var $12728 = self.type; + var $12729 = Kind$Term$ann$($12726, Kind$Term$normalize$($12727, _defs$2), Kind$Term$normalize$($12728, _defs$2)); + var $12696 = $12729; break; case 'Kind.Term.gol': - var $12622 = self.name; - var $12623 = self.dref; - var $12624 = self.verb; - var $12625 = Kind$Term$gol$($12622, $12623, $12624); - var $12588 = $12625; + var $12730 = self.name; + var $12731 = self.dref; + var $12732 = self.verb; + var $12733 = Kind$Term$gol$($12730, $12731, $12732); + var $12696 = $12733; break; case 'Kind.Term.hol': - var $12626 = self.path; - var $12627 = Kind$Term$hol$($12626); - var $12588 = $12627; + var $12734 = self.path; + var $12735 = Kind$Term$hol$($12734); + var $12696 = $12735; break; case 'Kind.Term.nat': - var $12628 = self.natx; - var $12629 = Kind$Term$nat$($12628); - var $12588 = $12629; + var $12736 = self.natx; + var $12737 = Kind$Term$nat$($12736); + var $12696 = $12737; break; case 'Kind.Term.chr': - var $12630 = self.chrx; - var $12631 = Kind$Term$chr$($12630); - var $12588 = $12631; + var $12738 = self.chrx; + var $12739 = Kind$Term$chr$($12738); + var $12696 = $12739; break; case 'Kind.Term.str': - var $12632 = self.strx; - var $12633 = Kind$Term$str$($12632); - var $12588 = $12633; + var $12740 = self.strx; + var $12741 = Kind$Term$str$($12740); + var $12696 = $12741; break; case 'Kind.Term.imp': - var $12634 = self.expr; - var $12635 = Kind$Term$normalize$($12634, _defs$2); - var $12588 = $12635; + var $12742 = self.expr; + var $12743 = Kind$Term$normalize$($12742, _defs$2); + var $12696 = $12743; break; case 'Kind.Term.ori': - var $12636 = self.expr; - var $12637 = Kind$Term$normalize$($12636, _defs$2); - var $12588 = $12637; + var $12744 = self.expr; + var $12745 = Kind$Term$normalize$($12744, _defs$2); + var $12696 = $12745; break; case 'Kind.Term.typ': - var $12638 = Kind$Term$typ; - var $12588 = $12638; + var $12746 = Kind$Term$typ; + var $12696 = $12746; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -40074,11 +40380,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $12639 = _term$1; - var $12588 = $12639; + var $12747 = _term$1; + var $12696 = $12747; break; }; - return $12588; + return $12696; }; const Kind$Term$normalize = x0 => x1 => Kind$Term$normalize$(x0, x1); @@ -40086,50 +40392,50 @@ module.exports = (function() { var self = _wyth$1; switch (self._) { case 'List.cons': - var $12641 = self.head; - var $12642 = self.tail; - var self = $12641; + var $12749 = self.head; + var $12750 = self.tail; + var self = $12749; switch (self._) { case 'Kind.Ann.new': - var $12644 = self.name; - var $12645 = self.type; - var $12646 = Kind$Term$all$(Bool$false, "", $12644, Maybe$default$($12645, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { - var $12647 = Kind$Term$check$expand$cse$motive$($12642, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); - return $12647; + var $12752 = self.name; + var $12753 = self.type; + var $12754 = Kind$Term$all$(Bool$false, "", $12752, Maybe$default$($12753, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { + var $12755 = Kind$Term$check$expand$cse$motive$($12750, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); + return $12755; })); - var $12643 = $12646; + var $12751 = $12754; break; }; - var $12640 = $12643; + var $12748 = $12751; break; case 'List.nil': var self = _moti$2; switch (self._) { case 'Maybe.some': - var $12649 = self.value; - var $12650 = $12649; - var $12648 = $12650; + var $12757 = self.value; + var $12758 = $12757; + var $12756 = $12758; break; case 'Maybe.none': var self = _rtyp$6; switch (self._) { case 'Maybe.some': - var $12652 = self.value; - var $12653 = Kind$Term$normalize$($12652, Kind$Map$new); - var $12651 = $12653; + var $12760 = self.value; + var $12761 = Kind$Term$normalize$($12760, Kind$Map$new); + var $12759 = $12761; break; case 'Maybe.none': - var $12654 = Kind$Term$hol$(Bits$e); - var $12651 = $12654; + var $12762 = Kind$Term$hol$(Bits$e); + var $12759 = $12762; break; }; - var $12648 = $12651; + var $12756 = $12759; break; }; - var $12640 = $12648; + var $12748 = $12756; break; }; - return $12640; + return $12748; }; 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); @@ -40137,16 +40443,16 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $12656 = self.tail; - var $12657 = $12656; - var $12655 = $12657; + var $12764 = self.tail; + var $12765 = $12764; + var $12763 = $12765; break; case 'List.nil': - var $12658 = List$nil; - var $12655 = $12658; + var $12766 = List$nil; + var $12763 = $12766; break; }; - return $12655; + return $12763; }; const List$tail = x0 => List$tail$(x0); @@ -40163,10 +40469,10 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.app': - var $12659 = self.func; - var $12660 = self.argm; - var $12661 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $12659, List$cons$($12660, _args$3), _defs$4); - return $12661; + var $12767 = self.func; + var $12768 = self.argm; + var $12769 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $12767, List$cons$($12768, _args$3), _defs$4); + return $12769; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -40189,8 +40495,8 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12662 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); - return $12662; + var $12770 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); + return $12770; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -40212,9 +40518,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12663 = self.body; - var $12664 = Kind$Term$SmartMotive$vals$(_expr$1, $12663(Kind$Term$typ)(Kind$Term$typ), _defs$3); - return $12664; + var $12771 = self.body; + var $12772 = Kind$Term$SmartMotive$vals$(_expr$1, $12771(Kind$Term$typ)(Kind$Term$typ), _defs$3); + return $12772; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -40237,8 +40543,8 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12665 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); - return $12665; + var $12773 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); + return $12773; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -40260,11 +40566,11 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12666 = self.self; - var $12667 = self.name; - var $12668 = self.body; - var $12669 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12668(Kind$Term$ref$($12666))(Kind$Term$ref$($12667)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12667, List$nil)))), _binds$3), _defs$4); - return $12669; + var $12774 = self.self; + var $12775 = self.name; + var $12776 = self.body; + var $12777 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12776(Kind$Term$ref$($12774))(Kind$Term$ref$($12775)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12775, List$nil)))), _binds$3), _defs$4); + return $12777; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -40287,8 +40593,8 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12670 = List$cons$(_name$1, List$tail$(_binds$3)); - return $12670; + var $12778 = List$cons$(_name$1, List$tail$(_binds$3)); + return $12778; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -40301,9 +40607,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12672 = self.xtyp; - var $12673 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12672, List$nil, _defs$3); - var $12671 = $12673; + var $12780 = self.xtyp; + var $12781 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12780, List$nil, _defs$3); + var $12779 = $12781; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40327,11 +40633,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12674 = List$nil; - var $12671 = $12674; + var $12782 = List$nil; + var $12779 = $12782; break; }; - return $12671; + return $12779; }; const Kind$Term$SmartMotive$nams = x0 => x1 => x2 => Kind$Term$SmartMotive$nams$(x0, x1, x2); @@ -40339,29 +40645,29 @@ module.exports = (function() { var self = _as$3; switch (self._) { case 'List.cons': - var $12676 = self.head; - var $12677 = self.tail; + var $12784 = self.head; + var $12785 = self.tail; var self = _bs$4; switch (self._) { case 'List.cons': - var $12679 = self.head; - var $12680 = self.tail; - var $12681 = List$cons$(Pair$new$($12676, $12679), List$zip$($12677, $12680)); - var $12678 = $12681; + var $12787 = self.head; + var $12788 = self.tail; + var $12789 = List$cons$(Pair$new$($12784, $12787), List$zip$($12785, $12788)); + var $12786 = $12789; break; case 'List.nil': - var $12682 = List$nil; - var $12678 = $12682; + var $12790 = List$nil; + var $12786 = $12790; break; }; - var $12675 = $12678; + var $12783 = $12786; break; case 'List.nil': - var $12683 = List$nil; - var $12675 = $12683; + var $12791 = List$nil; + var $12783 = $12791; break; }; - return $12675; + return $12783; }; const List$zip = x0 => x1 => List$zip$(x0, x1); const Nat$gte = a0 => a1 => (a0 >= a1); @@ -40371,118 +40677,118 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12685 = self.indx; - var self = ($12685 >= _init$3); + var $12793 = self.indx; + var self = ($12793 >= _init$3); if (self) { - var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $12685 <= 0n ? 0n : _depth$2 - $12685))))); - var $12687 = (((_name$8(_x$5) + '1') + '0') + '0'); - var $12686 = $12687; + var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $12793 <= 0n ? 0n : _depth$2 - $12793))))); + var $12795 = (((_name$8(_x$5) + '1') + '0') + '0'); + var $12794 = $12795; } else { - var _name$8 = a1 => (a1 + (nat_to_bits($12685))); - var $12688 = (((_name$8(_x$5) + '0') + '1') + '0'); - var $12686 = $12688; + var _name$8 = a1 => (a1 + (nat_to_bits($12793))); + var $12796 = (((_name$8(_x$5) + '0') + '1') + '0'); + var $12794 = $12796; }; - var $12684 = $12686; + var $12792 = $12794; break; case 'Kind.Term.ref': - var $12689 = self.name; - var _name$7 = a1 => (a1 + (kind_name_to_bits($12689))); - var $12690 = (((_name$7(_x$5) + '0') + '0') + '0'); - var $12684 = $12690; + var $12797 = self.name; + var _name$7 = a1 => (a1 + (kind_name_to_bits($12797))); + var $12798 = (((_name$7(_x$5) + '0') + '0') + '0'); + var $12792 = $12798; break; case 'Kind.Term.all': - var $12691 = self.eras; - var $12692 = self.self; - var $12693 = self.name; - var $12694 = self.xtyp; - var $12695 = self.body; - var self = $12691; + var $12799 = self.eras; + var $12800 = self.self; + var $12801 = self.name; + var $12802 = self.xtyp; + var $12803 = self.body; + var self = $12799; if (self) { - var $12697 = Bits$i; - var _eras$11 = $12697; + var $12805 = Bits$i; + var _eras$11 = $12805; } else { - var $12698 = Bits$o; - var _eras$11 = $12698; + var $12806 = Bits$o; + var _eras$11 = $12806; }; - var _self$12 = a1 => (a1 + (kind_name_to_bits($12692))); - var _xtyp$13 = Kind$Term$serialize$go($12694)(_depth$2)(_init$3)(_diff$4); - var _body$14 = Kind$Term$serialize$go($12695(Kind$Term$var$($12692, _depth$2))(Kind$Term$var$($12693, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); - var $12696 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); - var $12684 = $12696; + var _self$12 = a1 => (a1 + (kind_name_to_bits($12800))); + var _xtyp$13 = Kind$Term$serialize$go($12802)(_depth$2)(_init$3)(_diff$4); + var _body$14 = Kind$Term$serialize$go($12803(Kind$Term$var$($12800, _depth$2))(Kind$Term$var$($12801, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); + var $12804 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); + var $12792 = $12804; break; case 'Kind.Term.lam': - var $12699 = self.name; - var $12700 = self.body; - var _body$8 = Kind$Term$serialize$go($12700(Kind$Term$var$($12699, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $12701 = (((_body$8(_x$5) + '1') + '0') + '1'); - var $12684 = $12701; + var $12807 = self.name; + var $12808 = self.body; + var _body$8 = Kind$Term$serialize$go($12808(Kind$Term$var$($12807, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $12809 = (((_body$8(_x$5) + '1') + '0') + '1'); + var $12792 = $12809; break; case 'Kind.Term.app': - var $12702 = self.func; - var $12703 = self.argm; - var _func$8 = Kind$Term$serialize$go($12702)(_depth$2)(_init$3)(_diff$4); - var _argm$9 = Kind$Term$serialize$go($12703)(_depth$2)(_init$3)(_diff$4); - var $12704 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); - var $12684 = $12704; + var $12810 = self.func; + var $12811 = self.argm; + var _func$8 = Kind$Term$serialize$go($12810)(_depth$2)(_init$3)(_diff$4); + var _argm$9 = Kind$Term$serialize$go($12811)(_depth$2)(_init$3)(_diff$4); + var $12812 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); + var $12792 = $12812; break; case 'Kind.Term.let': - var $12705 = self.name; - var $12706 = self.expr; - var $12707 = self.body; - var _expr$9 = Kind$Term$serialize$go($12706)(_depth$2)(_init$3)(_diff$4); - var _body$10 = Kind$Term$serialize$go($12707(Kind$Term$var$($12705, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $12708 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); - var $12684 = $12708; + var $12813 = self.name; + var $12814 = self.expr; + var $12815 = self.body; + var _expr$9 = Kind$Term$serialize$go($12814)(_depth$2)(_init$3)(_diff$4); + var _body$10 = Kind$Term$serialize$go($12815(Kind$Term$var$($12813, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $12816 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); + var $12792 = $12816; break; case 'Kind.Term.def': - var $12709 = self.expr; - var $12710 = self.body; - var $12711 = Kind$Term$serialize$go$($12710($12709), _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12711; + var $12817 = self.expr; + var $12818 = self.body; + var $12819 = Kind$Term$serialize$go$($12818($12817), _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12819; break; case 'Kind.Term.ann': - var $12712 = self.term; - var $12713 = Kind$Term$serialize$go$($12712, _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12713; + var $12820 = self.term; + var $12821 = Kind$Term$serialize$go$($12820, _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12821; break; case 'Kind.Term.gol': - var $12714 = self.name; - var _name$9 = a1 => (a1 + (kind_name_to_bits($12714))); - var $12715 = (((_name$9(_x$5) + '0') + '0') + '0'); - var $12684 = $12715; + var $12822 = self.name; + var _name$9 = a1 => (a1 + (kind_name_to_bits($12822))); + var $12823 = (((_name$9(_x$5) + '0') + '0') + '0'); + var $12792 = $12823; break; case 'Kind.Term.nat': - var $12716 = self.natx; - var $12717 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($12716), _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12717; + var $12824 = self.natx; + var $12825 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($12824), _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12825; break; case 'Kind.Term.chr': - var $12718 = self.chrx; - var $12719 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($12718), _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12719; + var $12826 = self.chrx; + var $12827 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($12826), _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12827; break; case 'Kind.Term.str': - var $12720 = self.strx; - var $12721 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($12720), _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12721; + var $12828 = self.strx; + var $12829 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($12828), _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12829; break; case 'Kind.Term.imp': - var $12722 = self.expr; - var $12723 = Kind$Term$serialize$go$($12722, _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12723; + var $12830 = self.expr; + var $12831 = Kind$Term$serialize$go$($12830, _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12831; break; case 'Kind.Term.ori': - var $12724 = self.expr; - var $12725 = Kind$Term$serialize$go$($12724, _depth$2, _init$3, _diff$4, _x$5); - var $12684 = $12725; + var $12832 = self.expr; + var $12833 = Kind$Term$serialize$go$($12832, _depth$2, _init$3, _diff$4, _x$5); + var $12792 = $12833; break; case 'Kind.Term.typ': - var $12726 = (((_x$5 + '1') + '1') + '0'); - var $12684 = $12726; + var $12834 = (((_x$5 + '1') + '1') + '0'); + var $12792 = $12834; break; case 'Kind.Term.hol': - var $12727 = _x$5; - var $12684 = $12727; + var $12835 = _x$5; + var $12792 = $12835; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -40491,25 +40797,25 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $12728 = _diff$4(_x$5); - var $12684 = $12728; + var $12836 = _diff$4(_x$5); + var $12792 = $12836; break; }; - return $12684; + return $12792; }; 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 $12730 = Bits$o; - var _diff$4 = $12730; + var $12838 = Bits$o; + var _diff$4 = $12838; } else { - var $12731 = Bits$i; - var _diff$4 = $12731; + var $12839 = Bits$i; + var _diff$4 = $12839; }; - var $12729 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); - return $12729; + var $12837 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); + return $12837; }; const Kind$Term$serialize = x0 => x1 => x2 => Kind$Term$serialize$(x0, x1, x2); const Bits$eql = a0 => a1 => (a1 === a0); @@ -40517,149 +40823,149 @@ 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 $12732 = (_bh$5 === _ah$4); - return $12732; + var $12840 = (_bh$5 === _ah$4); + return $12840; }; 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 $12734 = _to$3; - var $12733 = $12734; + var $12842 = _to$3; + var $12841 = $12842; } else { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12736 = self.name; - var $12737 = self.indx; - var $12738 = Kind$Term$var$($12736, $12737); - var $12735 = $12738; + var $12844 = self.name; + var $12845 = self.indx; + var $12846 = Kind$Term$var$($12844, $12845); + var $12843 = $12846; break; case 'Kind.Term.ref': - var $12739 = self.name; - var $12740 = Kind$Term$ref$($12739); - var $12735 = $12740; + var $12847 = self.name; + var $12848 = Kind$Term$ref$($12847); + var $12843 = $12848; break; case 'Kind.Term.all': - var $12741 = self.eras; - var $12742 = self.self; - var $12743 = self.name; - var $12744 = self.xtyp; - var $12745 = self.body; - var _xtyp$10 = Kind$Term$SmartMotive$replace$($12744, _from$2, _to$3, _lv$4); - var _body$11 = $12745(Kind$Term$ref$($12742))(Kind$Term$ref$($12743)); + var $12849 = self.eras; + var $12850 = self.self; + var $12851 = self.name; + var $12852 = self.xtyp; + var $12853 = self.body; + var _xtyp$10 = Kind$Term$SmartMotive$replace$($12852, _from$2, _to$3, _lv$4); + var _body$11 = $12853(Kind$Term$ref$($12850))(Kind$Term$ref$($12851)); var _body$12 = Kind$Term$SmartMotive$replace$(_body$11, _from$2, _to$3, Nat$succ$(Nat$succ$(_lv$4))); - var $12746 = Kind$Term$all$($12741, $12742, $12743, _xtyp$10, (_s$13 => _x$14 => { - var $12747 = _body$12; - return $12747; + var $12854 = Kind$Term$all$($12849, $12850, $12851, _xtyp$10, (_s$13 => _x$14 => { + var $12855 = _body$12; + return $12855; })); - var $12735 = $12746; + var $12843 = $12854; break; case 'Kind.Term.lam': - var $12748 = self.name; - var $12749 = self.body; - var _body$7 = $12749(Kind$Term$ref$($12748)); + var $12856 = self.name; + var $12857 = self.body; + var _body$7 = $12857(Kind$Term$ref$($12856)); var _body$8 = Kind$Term$SmartMotive$replace$(_body$7, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12750 = Kind$Term$lam$($12748, (_x$9 => { - var $12751 = _body$8; - return $12751; + var $12858 = Kind$Term$lam$($12856, (_x$9 => { + var $12859 = _body$8; + return $12859; })); - var $12735 = $12750; + var $12843 = $12858; break; case 'Kind.Term.app': - var $12752 = self.func; - var $12753 = self.argm; - var _func$7 = Kind$Term$SmartMotive$replace$($12752, _from$2, _to$3, _lv$4); - var _argm$8 = Kind$Term$SmartMotive$replace$($12753, _from$2, _to$3, _lv$4); - var $12754 = Kind$Term$app$(_func$7, _argm$8); - var $12735 = $12754; + var $12860 = self.func; + var $12861 = self.argm; + var _func$7 = Kind$Term$SmartMotive$replace$($12860, _from$2, _to$3, _lv$4); + var _argm$8 = Kind$Term$SmartMotive$replace$($12861, _from$2, _to$3, _lv$4); + var $12862 = Kind$Term$app$(_func$7, _argm$8); + var $12843 = $12862; break; case 'Kind.Term.let': - var $12755 = self.name; - var $12756 = self.expr; - var $12757 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($12756, _from$2, _to$3, _lv$4); - var _body$9 = $12757(Kind$Term$ref$($12755)); + var $12863 = self.name; + var $12864 = self.expr; + var $12865 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($12864, _from$2, _to$3, _lv$4); + var _body$9 = $12865(Kind$Term$ref$($12863)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12758 = Kind$Term$let$($12755, _expr$8, (_x$11 => { - var $12759 = _body$10; - return $12759; + var $12866 = Kind$Term$let$($12863, _expr$8, (_x$11 => { + var $12867 = _body$10; + return $12867; })); - var $12735 = $12758; + var $12843 = $12866; break; case 'Kind.Term.def': - var $12760 = self.name; - var $12761 = self.expr; - var $12762 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($12761, _from$2, _to$3, _lv$4); - var _body$9 = $12762(Kind$Term$ref$($12760)); + var $12868 = self.name; + var $12869 = self.expr; + var $12870 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($12869, _from$2, _to$3, _lv$4); + var _body$9 = $12870(Kind$Term$ref$($12868)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12763 = Kind$Term$def$($12760, _expr$8, (_x$11 => { - var $12764 = _body$10; - return $12764; + var $12871 = Kind$Term$def$($12868, _expr$8, (_x$11 => { + var $12872 = _body$10; + return $12872; })); - var $12735 = $12763; + var $12843 = $12871; break; case 'Kind.Term.ann': - var $12765 = self.done; - var $12766 = self.term; - var $12767 = self.type; - var _term$8 = Kind$Term$SmartMotive$replace$($12766, _from$2, _to$3, _lv$4); - var _type$9 = Kind$Term$SmartMotive$replace$($12767, _from$2, _to$3, _lv$4); - var $12768 = Kind$Term$ann$($12765, _term$8, _type$9); - var $12735 = $12768; + var $12873 = self.done; + var $12874 = self.term; + var $12875 = self.type; + var _term$8 = Kind$Term$SmartMotive$replace$($12874, _from$2, _to$3, _lv$4); + var _type$9 = Kind$Term$SmartMotive$replace$($12875, _from$2, _to$3, _lv$4); + var $12876 = Kind$Term$ann$($12873, _term$8, _type$9); + var $12843 = $12876; break; case 'Kind.Term.get': - var $12769 = self.expr; - var $12770 = self.fkey; - var _expr$7 = Kind$Term$SmartMotive$replace$($12769, _from$2, _to$3, _lv$4); - var _fkey$8 = $12770; - var $12771 = Kind$Term$get$(_expr$7, _fkey$8); - var $12735 = $12771; + var $12877 = self.expr; + var $12878 = self.fkey; + var _expr$7 = Kind$Term$SmartMotive$replace$($12877, _from$2, _to$3, _lv$4); + var _fkey$8 = $12878; + var $12879 = Kind$Term$get$(_expr$7, _fkey$8); + var $12843 = $12879; break; case 'Kind.Term.set': - var $12772 = self.expr; - var $12773 = self.fkey; - var $12774 = self.fval; - var _expr$8 = Kind$Term$SmartMotive$replace$($12772, _from$2, _to$3, _lv$4); - var _fkey$9 = $12773; - var _fval$10 = Kind$Term$SmartMotive$replace$($12774, _from$2, _to$3, _lv$4); - var $12775 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); - var $12735 = $12775; + var $12880 = self.expr; + var $12881 = self.fkey; + var $12882 = self.fval; + var _expr$8 = Kind$Term$SmartMotive$replace$($12880, _from$2, _to$3, _lv$4); + var _fkey$9 = $12881; + var _fval$10 = Kind$Term$SmartMotive$replace$($12882, _from$2, _to$3, _lv$4); + var $12883 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); + var $12843 = $12883; break; case 'Kind.Term.mut': - var $12776 = self.expr; - var $12777 = self.fkey; - var $12778 = self.ffun; - var _expr$8 = Kind$Term$SmartMotive$replace$($12776, _from$2, _to$3, _lv$4); - var _fkey$9 = $12777; - var _ffun$10 = Kind$Term$SmartMotive$replace$($12778, _from$2, _to$3, _lv$4); - var $12779 = Kind$Term$set$(_expr$8, _fkey$9, _ffun$10); - var $12735 = $12779; + var $12884 = self.expr; + var $12885 = self.fkey; + var $12886 = self.ffun; + var _expr$8 = Kind$Term$SmartMotive$replace$($12884, _from$2, _to$3, _lv$4); + var _fkey$9 = $12885; + var _ffun$10 = Kind$Term$SmartMotive$replace$($12886, _from$2, _to$3, _lv$4); + var $12887 = Kind$Term$set$(_expr$8, _fkey$9, _ffun$10); + var $12843 = $12887; break; case 'Kind.Term.ope': - var $12780 = self.name; - var $12781 = self.arg0; - var $12782 = self.arg1; - var _arg0$8 = Kind$Term$SmartMotive$replace$($12781, _from$2, _to$3, _lv$4); - var _arg1$9 = Kind$Term$SmartMotive$replace$($12782, _from$2, _to$3, _lv$4); - var $12783 = Kind$Term$ope$($12780, _arg0$8, _arg1$9); - var $12735 = $12783; + var $12888 = self.name; + var $12889 = self.arg0; + var $12890 = self.arg1; + var _arg0$8 = Kind$Term$SmartMotive$replace$($12889, _from$2, _to$3, _lv$4); + var _arg1$9 = Kind$Term$SmartMotive$replace$($12890, _from$2, _to$3, _lv$4); + var $12891 = Kind$Term$ope$($12888, _arg0$8, _arg1$9); + var $12843 = $12891; break; case 'Kind.Term.imp': - var $12784 = self.expr; - var $12785 = Kind$Term$SmartMotive$replace$($12784, _from$2, _to$3, _lv$4); - var $12735 = $12785; + var $12892 = self.expr; + var $12893 = Kind$Term$SmartMotive$replace$($12892, _from$2, _to$3, _lv$4); + var $12843 = $12893; break; case 'Kind.Term.ori': - var $12786 = self.expr; - var $12787 = Kind$Term$SmartMotive$replace$($12786, _from$2, _to$3, _lv$4); - var $12735 = $12787; + var $12894 = self.expr; + var $12895 = Kind$Term$SmartMotive$replace$($12894, _from$2, _to$3, _lv$4); + var $12843 = $12895; break; case 'Kind.Term.typ': - var $12788 = Kind$Term$typ; - var $12735 = $12788; + var $12896 = Kind$Term$typ; + var $12843 = $12896; break; case 'Kind.Term.gol': case 'Kind.Term.hol': @@ -40669,13 +40975,13 @@ module.exports = (function() { case 'Kind.Term.num': case 'Kind.Term.cse': case 'Kind.Term.new': - var $12789 = _term$1; - var $12735 = $12789; + var $12897 = _term$1; + var $12843 = $12897; break; }; - var $12733 = $12735; + var $12841 = $12843; }; - return $12733; + return $12841; }; const Kind$Term$SmartMotive$replace = x0 => x1 => x2 => x3 => Kind$Term$SmartMotive$replace$(x0, x1, x2, x3); @@ -40683,19 +40989,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 $12790 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { + var $12898 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { var self = _sub$10; switch (self._) { case 'Pair.new': - var $12792 = self.fst; - var $12793 = self.snd; - var $12794 = Kind$Term$SmartMotive$replace$(_moti$11, $12793, Kind$Term$ref$($12792), _size$5); - var $12791 = $12794; + var $12900 = self.fst; + var $12901 = self.snd; + var $12902 = Kind$Term$SmartMotive$replace$(_moti$11, $12901, Kind$Term$ref$($12900), _size$5); + var $12899 = $12902; break; }; - return $12791; + return $12899; })); - return $12790; + return $12898; }; const Kind$Term$SmartMotive$make = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$SmartMotive$make$(x0, x1, x2, x3, x4, x5); @@ -40704,15 +41010,15 @@ module.exports = (function() { var self = _moti$2; switch (self._) { case 'Maybe.none': - var $12796 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); - var $12795 = $12796; + var $12904 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); + var $12903 = $12904; break; case 'Maybe.some': - var $12797 = _done$9; - var $12795 = $12797; + var $12905 = _done$9; + var $12903 = $12905; break; }; - return $12795; + return $12903; }; 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); @@ -40720,23 +41026,23 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$3, _defs$5); switch (self._) { case 'Kind.Term.all': - var $12799 = self.self; - var $12800 = self.name; - var $12801 = self.body; - var $12802 = Kind$Term$lam$((() => { - var self = String$is_empty$($12800); + var $12907 = self.self; + var $12908 = self.name; + var $12909 = self.body; + var $12910 = Kind$Term$lam$((() => { + var self = String$is_empty$($12908); if (self) { - var $12803 = _name$1; - return $12803; + var $12911 = _name$1; + return $12911; } else { - var $12804 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12800, List$nil)))); - return $12804; + var $12912 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12908, List$nil)))); + return $12912; }; })(), (_x$11 => { - var $12805 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $12801(Kind$Term$var$($12799, 0n))(Kind$Term$var$($12800, 0n)), _body$4, _defs$5); - return $12805; + var $12913 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $12909(Kind$Term$var$($12907, 0n))(Kind$Term$var$($12908, 0n)), _body$4, _defs$5); + return $12913; })); - var $12798 = $12802; + var $12906 = $12910; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -40746,27 +41052,27 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12807 = self.head; - var $12808 = self.tail; - var self = $12807; + var $12915 = self.head; + var $12916 = self.tail; + var self = $12915; switch (self._) { case 'Kind.Ann.new': - var $12810 = self.name; - var $12811 = Kind$Term$lam$($12810, (_x$13 => { - var $12812 = Kind$Term$check$expand$cse$argument$(_name$1, $12808, _type$3, _body$4, _defs$5); - return $12812; + var $12918 = self.name; + var $12919 = Kind$Term$lam$($12918, (_x$13 => { + var $12920 = Kind$Term$check$expand$cse$argument$(_name$1, $12916, _type$3, _body$4, _defs$5); + return $12920; })); - var $12809 = $12811; + var $12917 = $12919; break; }; - var $12806 = $12809; + var $12914 = $12917; break; case 'List.nil': - var $12813 = _body$4; - var $12806 = $12813; + var $12921 = _body$4; + var $12914 = $12921; break; }; - var $12798 = $12806; + var $12906 = $12914; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -40778,53 +41084,53 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12815 = self.head; - var $12816 = self.tail; - var self = $12815; + var $12923 = self.head; + var $12924 = self.tail; + var self = $12923; switch (self._) { case 'Kind.Ann.new': - var $12818 = self.name; - var $12819 = Kind$Term$lam$($12818, (_x$12 => { - var $12820 = Kind$Term$check$expand$cse$argument$(_name$1, $12816, _type$3, _body$4, _defs$5); - return $12820; + var $12926 = self.name; + var $12927 = Kind$Term$lam$($12926, (_x$12 => { + var $12928 = Kind$Term$check$expand$cse$argument$(_name$1, $12924, _type$3, _body$4, _defs$5); + return $12928; })); - var $12817 = $12819; + var $12925 = $12927; break; }; - var $12814 = $12817; + var $12922 = $12925; break; case 'List.nil': - var $12821 = _body$4; - var $12814 = $12821; + var $12929 = _body$4; + var $12922 = $12929; break; }; - var $12798 = $12814; + var $12906 = $12922; break; case 'Kind.Term.typ': var self = _wyth$2; switch (self._) { case 'List.cons': - var $12823 = self.head; - var $12824 = self.tail; - var self = $12823; + var $12931 = self.head; + var $12932 = self.tail; + var self = $12931; switch (self._) { case 'Kind.Ann.new': - var $12826 = self.name; - var $12827 = Kind$Term$lam$($12826, (_x$11 => { - var $12828 = Kind$Term$check$expand$cse$argument$(_name$1, $12824, _type$3, _body$4, _defs$5); - return $12828; + var $12934 = self.name; + var $12935 = Kind$Term$lam$($12934, (_x$11 => { + var $12936 = Kind$Term$check$expand$cse$argument$(_name$1, $12932, _type$3, _body$4, _defs$5); + return $12936; })); - var $12825 = $12827; + var $12933 = $12935; break; }; - var $12822 = $12825; + var $12930 = $12933; break; case 'List.nil': - var $12829 = _body$4; - var $12822 = $12829; + var $12937 = _body$4; + var $12930 = $12937; break; }; - var $12798 = $12822; + var $12906 = $12930; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -40837,56 +41143,56 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12831 = self.head; - var $12832 = self.tail; - var self = $12831; + var $12939 = self.head; + var $12940 = self.tail; + var self = $12939; switch (self._) { case 'Kind.Ann.new': - var $12834 = self.name; - var $12835 = Kind$Term$lam$($12834, (_x$14 => { - var $12836 = Kind$Term$check$expand$cse$argument$(_name$1, $12832, _type$3, _body$4, _defs$5); - return $12836; + var $12942 = self.name; + var $12943 = Kind$Term$lam$($12942, (_x$14 => { + var $12944 = Kind$Term$check$expand$cse$argument$(_name$1, $12940, _type$3, _body$4, _defs$5); + return $12944; })); - var $12833 = $12835; + var $12941 = $12943; break; }; - var $12830 = $12833; + var $12938 = $12941; break; case 'List.nil': - var $12837 = _body$4; - var $12830 = $12837; + var $12945 = _body$4; + var $12938 = $12945; break; }; - var $12798 = $12830; + var $12906 = $12938; break; case 'Kind.Term.cse': var self = _wyth$2; switch (self._) { case 'List.cons': - var $12839 = self.head; - var $12840 = self.tail; - var self = $12839; + var $12947 = self.head; + var $12948 = self.tail; + var self = $12947; switch (self._) { case 'Kind.Ann.new': - var $12842 = self.name; - var $12843 = Kind$Term$lam$($12842, (_x$17 => { - var $12844 = Kind$Term$check$expand$cse$argument$(_name$1, $12840, _type$3, _body$4, _defs$5); - return $12844; + var $12950 = self.name; + var $12951 = Kind$Term$lam$($12950, (_x$17 => { + var $12952 = Kind$Term$check$expand$cse$argument$(_name$1, $12948, _type$3, _body$4, _defs$5); + return $12952; })); - var $12841 = $12843; + var $12949 = $12951; break; }; - var $12838 = $12841; + var $12946 = $12949; break; case 'List.nil': - var $12845 = _body$4; - var $12838 = $12845; + var $12953 = _body$4; + var $12946 = $12953; break; }; - var $12798 = $12838; + var $12906 = $12946; break; }; - return $12798; + return $12906; }; const Kind$Term$check$expand$cse$argument = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$cse$argument$(x0, x1, x2, x3, x4); @@ -40894,16 +41200,16 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Maybe.some': - var $12847 = self.value; - var $12848 = Maybe$some$($12847); - var $12846 = $12848; + var $12955 = self.value; + var $12956 = Maybe$some$($12955); + var $12954 = $12956; break; case 'Maybe.none': - var $12849 = _b$3; - var $12846 = $12849; + var $12957 = _b$3; + var $12954 = $12957; break; }; - return $12846; + return $12954; }; const Maybe$or = x0 => x1 => Maybe$or$(x0, x1); @@ -40920,45 +41226,45 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$5, _defs$6); switch (self._) { case 'Kind.Term.all': - var $12850 = self.self; - var $12851 = self.name; - var $12852 = self.xtyp; - var $12853 = self.body; - var _argm$13 = Maybe$or$(Kind$Map$get$($12851, _cses$4), Kind$Map$get$("_", _cses$4)); - var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($12851 + "_case"))))); - var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $12852, _argm$14, _defs$6); + var $12958 = self.self; + var $12959 = self.name; + var $12960 = self.xtyp; + var $12961 = self.body; + var _argm$13 = Maybe$or$(Kind$Map$get$($12959, _cses$4), Kind$Map$get$("_", _cses$4)); + var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($12959 + "_case"))))); + var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $12960, _argm$14, _defs$6); var _expr$16 = Kind$Term$app$(_expr$1, _argm$15); - var _type$17 = $12853(Kind$Term$var$($12850, 0n))(Kind$Term$var$($12851, 0n)); - var $12854 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); - return $12854; + var _type$17 = $12961(Kind$Term$var$($12958, 0n))(Kind$Term$var$($12959, 0n)); + var $12962 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); + return $12962; case 'Kind.Term.var': case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.get': case 'Kind.Term.ori': var _expr$10 = (() => { - var $12857 = _expr$1; - var $12858 = _wyth$3; - let _expr$11 = $12857; + var $12965 = _expr$1; + var $12966 = _wyth$3; + let _expr$11 = $12965; let _defn$10; - while ($12858._ === 'List.cons') { - _defn$10 = $12858.head; - var $12857 = Kind$Term$app$(_expr$11, (() => { + while ($12966._ === 'List.cons') { + _defn$10 = $12966.head; + var $12965 = Kind$Term$app$(_expr$11, (() => { var self = _defn$10; switch (self._) { case 'Kind.Ann.new': - var $12859 = self.term; - var $12860 = $12859; - return $12860; + var $12967 = self.term; + var $12968 = $12967; + return $12968; }; })()); - _expr$11 = $12857; - $12858 = $12858.tail; + _expr$11 = $12965; + $12966 = $12966.tail; } return _expr$11; })(); - var $12855 = _expr$10; - return $12855; + var $12963 = _expr$10; + return $12963; case 'Kind.Term.ref': case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -40967,52 +41273,52 @@ module.exports = (function() { case 'Kind.Term.new': case 'Kind.Term.imp': var _expr$9 = (() => { - var $12863 = _expr$1; - var $12864 = _wyth$3; - let _expr$10 = $12863; + var $12971 = _expr$1; + var $12972 = _wyth$3; + let _expr$10 = $12971; let _defn$9; - while ($12864._ === 'List.cons') { - _defn$9 = $12864.head; - var $12863 = Kind$Term$app$(_expr$10, (() => { + while ($12972._ === 'List.cons') { + _defn$9 = $12972.head; + var $12971 = Kind$Term$app$(_expr$10, (() => { var self = _defn$9; switch (self._) { case 'Kind.Ann.new': - var $12865 = self.term; - var $12866 = $12865; - return $12866; + var $12973 = self.term; + var $12974 = $12973; + return $12974; }; })()); - _expr$10 = $12863; - $12864 = $12864.tail; + _expr$10 = $12971; + $12972 = $12972.tail; } return _expr$10; })(); - var $12861 = _expr$9; - return $12861; + var $12969 = _expr$9; + return $12969; case 'Kind.Term.typ': var _expr$8 = (() => { - var $12869 = _expr$1; - var $12870 = _wyth$3; - let _expr$9 = $12869; + var $12977 = _expr$1; + var $12978 = _wyth$3; + let _expr$9 = $12977; let _defn$8; - while ($12870._ === 'List.cons') { - _defn$8 = $12870.head; - var $12869 = Kind$Term$app$(_expr$9, (() => { + while ($12978._ === 'List.cons') { + _defn$8 = $12978.head; + var $12977 = Kind$Term$app$(_expr$9, (() => { var self = _defn$8; switch (self._) { case 'Kind.Ann.new': - var $12871 = self.term; - var $12872 = $12871; - return $12872; + var $12979 = self.term; + var $12980 = $12979; + return $12980; }; })()); - _expr$9 = $12869; - $12870 = $12870.tail; + _expr$9 = $12977; + $12978 = $12978.tail; } return _expr$9; })(); - var $12867 = _expr$8; - return $12867; + var $12975 = _expr$8; + return $12975; case 'Kind.Term.let': case 'Kind.Term.def': case 'Kind.Term.ann': @@ -41022,52 +41328,52 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': var _expr$11 = (() => { - var $12875 = _expr$1; - var $12876 = _wyth$3; - let _expr$12 = $12875; + var $12983 = _expr$1; + var $12984 = _wyth$3; + let _expr$12 = $12983; let _defn$11; - while ($12876._ === 'List.cons') { - _defn$11 = $12876.head; - var $12875 = Kind$Term$app$(_expr$12, (() => { + while ($12984._ === 'List.cons') { + _defn$11 = $12984.head; + var $12983 = Kind$Term$app$(_expr$12, (() => { var self = _defn$11; switch (self._) { case 'Kind.Ann.new': - var $12877 = self.term; - var $12878 = $12877; - return $12878; + var $12985 = self.term; + var $12986 = $12985; + return $12986; }; })()); - _expr$12 = $12875; - $12876 = $12876.tail; + _expr$12 = $12983; + $12984 = $12984.tail; } return _expr$12; })(); - var $12873 = _expr$11; - return $12873; + var $12981 = _expr$11; + return $12981; case 'Kind.Term.cse': var _expr$14 = (() => { - var $12881 = _expr$1; - var $12882 = _wyth$3; - let _expr$15 = $12881; + var $12989 = _expr$1; + var $12990 = _wyth$3; + let _expr$15 = $12989; let _defn$14; - while ($12882._ === 'List.cons') { - _defn$14 = $12882.head; - var $12881 = Kind$Term$app$(_expr$15, (() => { + while ($12990._ === 'List.cons') { + _defn$14 = $12990.head; + var $12989 = Kind$Term$app$(_expr$15, (() => { var self = _defn$14; switch (self._) { case 'Kind.Ann.new': - var $12883 = self.term; - var $12884 = $12883; - return $12884; + var $12991 = self.term; + var $12992 = $12991; + return $12992; }; })()); - _expr$15 = $12881; - $12882 = $12882.tail; + _expr$15 = $12989; + $12990 = $12990.tail; } return _expr$15; })(); - var $12879 = _expr$14; - return $12879; + var $12987 = _expr$14; + return $12987; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41080,16 +41386,16 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$6, _defs$8); switch (self._) { case 'Kind.Term.all': - var $12886 = self.self; - var $12887 = self.name; - var $12888 = self.xtyp; - var $12889 = self.body; + var $12994 = self.self; + var $12995 = self.name; + var $12996 = self.xtyp; + var $12997 = 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, $12888, _moti$15, _defs$8); + var _argm$16 = Kind$Term$check$expand$cse$argument$(_name$2, List$nil, $12996, _moti$15, _defs$8); var _expr$17 = Kind$Term$app$(_expr$1, _argm$16); - var _type$18 = $12889(Kind$Term$var$($12886, 0n))(Kind$Term$var$($12887, 0n)); - var $12890 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); - var $12885 = $12890; + var _type$18 = $12997(Kind$Term$var$($12994, 0n))(Kind$Term$var$($12995, 0n)); + var $12998 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); + var $12993 = $12998; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41113,28 +41419,28 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12891 = Maybe$none; - var $12885 = $12891; + var $12999 = Maybe$none; + var $12993 = $12999; break; }; - return $12885; + return $12993; }; 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 $12892 = ({ + var $13000 = ({ _: 'Kind.Error.cant_infer', 'origin': _origin$1, 'term': _term$2, 'context': _context$3 }); - return $12892; + return $13000; }; 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 $12893 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); - return $12893; + var $13001 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); + return $13001; }; const Kind$Term$check$cant_infer = x0 => x1 => x2 => x3 => Kind$Term$check$cant_infer$(x0, x1, x2, x3); @@ -41142,21 +41448,21 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $12895 = self.self; - var $12896 = self.name; - var $12897 = self.xtyp; - var $12898 = self.body; - var _b$8 = $12898(Kind$Term$var$($12895, _depth$2))(Kind$Term$var$($12896, Nat$succ$(_depth$2))); + var $13003 = self.self; + var $13004 = self.name; + var $13005 = self.xtyp; + var $13006 = self.body; + var _b$8 = $13006(Kind$Term$var$($13003, _depth$2))(Kind$Term$var$($13004, Nat$succ$(_depth$2))); var self = Kind$Term$get_bnds$(_b$8, Nat$succ$(Nat$succ$(_depth$2))); switch (self._) { case 'Pair.new': - var $12900 = self.fst; - var $12901 = self.snd; - var $12902 = Pair$new$(List$cons$(Pair$new$($12896, $12897), $12900), $12901); - var $12899 = $12902; + var $13008 = self.fst; + var $13009 = self.snd; + var $13010 = Pair$new$(List$cons$(Pair$new$($13004, $13005), $13008), $13009); + var $13007 = $13010; break; }; - var $12894 = $12899; + var $13002 = $13007; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41180,11 +41486,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12903 = Pair$new$(List$nil, _term$1); - var $12894 = $12903; + var $13011 = Pair$new$(List$nil, _term$1); + var $13002 = $13011; break; }; - return $12894; + return $13002; }; const Kind$Term$get_bnds = x0 => x1 => Kind$Term$get_bnds$(x0, x1); @@ -41201,13 +41507,13 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $12904 = self.head; - var $12905 = self.tail; - var $12906 = List$last$go$($12905, Maybe$some$($12904)); - return $12906; + var $13012 = self.head; + var $13013 = self.tail; + var $13014 = List$last$go$($13013, Maybe$some$($13012)); + return $13014; case 'List.nil': - var $12907 = _last$3; - return $12907; + var $13015 = _last$3; + return $13015; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41217,8 +41523,8 @@ module.exports = (function() { const List$last$go = x0 => x1 => List$last$go$(x0, x1); function List$last$(_xs$2) { - var $12908 = List$last$go$(_xs$2, Maybe$none); - return $12908; + var $13016 = List$last$go$(_xs$2, Maybe$none); + return $13016; }; const List$last = x0 => List$last$(x0); @@ -41226,21 +41532,21 @@ module.exports = (function() { var self = Kind$Term$get_bnds$(_xtyp$1, 0n); switch (self._) { case 'Pair.new': - var $12910 = self.fst; - var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($12910), Pair$new$("", Kind$Term$typ)))); + var $13018 = self.fst; + var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($13018), Pair$new$("", Kind$Term$typ)))); switch (self._) { case 'Pair.new': - var $12912 = self.snd; - var _indexs$6 = Nat$pred$((list_length($12910))); - var _params$7 = ((list_length($12912)) - _indexs$6 <= 0n ? 0n : (list_length($12912)) - _indexs$6); - var $12913 = _params$7; - var $12911 = $12913; + var $13020 = self.snd; + var _indexs$6 = Nat$pred$((list_length($13018))); + var _params$7 = ((list_length($13020)) - _indexs$6 <= 0n ? 0n : (list_length($13020)) - _indexs$6); + var $13021 = _params$7; + var $13019 = $13021; break; }; - var $12909 = $12911; + var $13017 = $13019; break; }; - return $12909; + return $13017; }; const Kind$Term$check$expand$mut$count_params = x0 => Kind$Term$check$expand$mut$count_params$(x0); @@ -41256,11 +41562,11 @@ module.exports = (function() { var R = (() => { var self = (_from$3 === _til$4); if (self) { - var $12914 = _state$2; - return $12914; + var $13022 = _state$2; + return $13022; } else { - var $12915 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); - return $12915; + var $13023 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); + return $13023; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41282,21 +41588,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $12916 = self.head; - var $12917 = self.tail; + var $13024 = self.head; + var $13025 = self.tail; var self = _index$2; if (self === 0n) { - var $12919 = Maybe$some$($12916); - var $12918 = $12919; + var $13027 = Maybe$some$($13024); + var $13026 = $13027; } else { - var $12920 = (self - 1n); - var $12921 = List$get$($12920, $12917); - var $12918 = $12921; + var $13028 = (self - 1n); + var $13029 = List$get$($13028, $13025); + var $13026 = $13029; }; - return $12918; + return $13026; case 'List.nil': - var $12922 = Maybe$none; - return $12922; + var $13030 = Maybe$none; + return $13030; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41313,13 +41619,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 $12924 = Maybe$some$(_term$8); - var $12923 = $12924; + var $13032 = Maybe$some$(_term$8); + var $13031 = $13032; } else { - var $12925 = Maybe$none; - var $12923 = $12925; + var $13033 = Maybe$none; + var $13031 = $13033; }; - return $12923; + return $13031; }; const Kind$Term$check$expand$new$pair = x0 => x1 => x2 => Kind$Term$check$expand$new$pair$(x0, x1, x2); @@ -41327,39 +41633,39 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $12927 = self.value; - var self = Kind$Term$reduce$($12927, _defs$3); + var $13035 = self.value; + var self = Kind$Term$reduce$($13035, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12929 = self.self; - var $12930 = self.xtyp; - var $12931 = self.body; - var self = Kind$Term$reduce$($12931(Kind$Term$typ)(Kind$Term$typ), _defs$3); + var $13037 = self.self; + var $13038 = self.xtyp; + var $13039 = self.body; + var self = Kind$Term$reduce$($13039(Kind$Term$typ)(Kind$Term$typ), _defs$3); switch (self._) { case 'Kind.Term.all': - var $12933 = self.name; - var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12929), ""); - var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $12933))); - var _pars$17 = Kind$Term$check$expand$mut$count_params$($12930); + var $13041 = self.name; + var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13037), ""); + var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $13041))); + var _pars$17 = Kind$Term$check$expand$mut$count_params$($13038); var _term$18 = Nat$for$(_term$16, 0n, _pars$17, (_i$18 => _term$19 => { - var $12935 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); - return $12935; + var $13043 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); + return $13043; })); var _term$19 = (() => { - var $12937 = _term$18; - var $12938 = _args$1; - let _term$20 = $12937; + var $13045 = _term$18; + var $13046 = _args$1; + let _term$20 = $13045; let _arg$19; - while ($12938._ === 'List.cons') { - _arg$19 = $12938.head; - var $12937 = Kind$Term$app$(_term$20, _arg$19); - _term$20 = $12937; - $12938 = $12938.tail; + while ($13046._ === 'List.cons') { + _arg$19 = $13046.head; + var $13045 = Kind$Term$app$(_term$20, _arg$19); + _term$20 = $13045; + $13046 = $13046.tail; } return _term$20; })(); - var $12934 = Maybe$some$(_term$19); - var $12932 = $12934; + var $13042 = Maybe$some$(_term$19); + var $13040 = $13042; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41383,11 +41689,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12939 = Maybe$none; - var $12932 = $12939; + var $13047 = Maybe$none; + var $13040 = $13047; break; }; - var $12928 = $12932; + var $13036 = $13040; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41411,30 +41717,30 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12940 = Maybe$none; - var $12928 = $12940; + var $13048 = Maybe$none; + var $13036 = $13048; break; }; - var _got$4 = $12928; + var _got$4 = $13036; break; case 'Maybe.none': - var $12941 = Maybe$none; - var _got$4 = $12941; + var $13049 = Maybe$none; + var _got$4 = $13049; break; }; var self = _got$4; switch (self._) { case 'Maybe.some': - var $12942 = self.value; - var $12943 = Maybe$some$($12942); - var $12926 = $12943; + var $13050 = self.value; + var $13051 = Maybe$some$($13050); + var $13034 = $13051; break; case 'Maybe.none': - var $12944 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); - var $12926 = $12944; + var $13052 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); + var $13034 = $13052; break; }; - return $12926; + return $13034; }; const Kind$Term$check$expand$new = x0 => x1 => x2 => Kind$Term$check$expand$new$(x0, x1, x2); @@ -41442,22 +41748,22 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12946 = self.name; - var $12947 = self.body; - var $12948 = Kind$Term$lam$($12946, (_x$10 => { - var _body$11 = $12947(Kind$Term$typ)(Kind$Term$typ); - var self = ($12946 === _fkey$1); + var $13054 = self.name; + var $13055 = self.body; + var $13056 = Kind$Term$lam$($13054, (_x$10 => { + var _body$11 = $13055(Kind$Term$typ)(Kind$Term$typ); + var self = ($13054 === _fkey$1); if (self) { - var $12950 = _x$10; - var _rett$12 = $12950; + var $13058 = _x$10; + var _rett$12 = $13058; } else { - var $12951 = _rett$4; - var _rett$12 = $12951; + var $13059 = _rett$4; + var _rett$12 = $13059; }; - var $12949 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); - return $12949; + var $13057 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); + return $13057; })); - var $12945 = $12948; + var $13053 = $13056; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41481,11 +41787,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12952 = _rett$4; - var $12945 = $12952; + var $13060 = _rett$4; + var $13053 = $13060; break; }; - return $12945; + return $13053; }; const Kind$Term$check$expand$get$selector = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$selector$(x0, x1, x2, x3); @@ -41493,19 +41799,19 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12954 = self.body; - var self = Kind$Term$reduce$($12954(Kind$Term$typ)(Kind$Term$typ), _defs$4); + var $13062 = self.body; + var self = Kind$Term$reduce$($13062(Kind$Term$typ)(Kind$Term$typ), _defs$4); switch (self._) { case 'Kind.Term.all': - var $12956 = self.xtyp; + var $13064 = self.xtyp; var _term$15 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$15 => { - var $12958 = Kind$Term$hol$(Bits$e); - return $12958; + var $13066 = Kind$Term$hol$(Bits$e); + return $13066; }))); var _rett$16 = Kind$Term$ref$((_fkey$2 + "_field")); - var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $12956, _defs$4, _rett$16); - var $12957 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); - var $12955 = $12957; + var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $13064, _defs$4, _rett$16); + var $13065 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); + var $13063 = $13065; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41529,11 +41835,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12959 = Maybe$none; - var $12955 = $12959; + var $13067 = Maybe$none; + var $13063 = $13067; break; }; - var $12953 = $12955; + var $13061 = $13063; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41557,11 +41863,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12960 = Maybe$none; - var $12953 = $12960; + var $13068 = Maybe$none; + var $13061 = $13068; break; }; - return $12953; + return $13061; }; const Kind$Term$check$expand$get = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$(x0, x1, x2, x3); @@ -41569,14 +41875,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.app': - var $12962 = self.func; - var $12963 = self.argm; - var self = $12962; + var $13070 = self.func; + var $13071 = self.argm; + var self = $13070; switch (self._) { case 'Kind.Term.lam': - var $12965 = self.body; - var $12966 = $12965($12963); - var $12964 = $12966; + var $13073 = self.body; + var $13074 = $13073($13071); + var $13072 = $13074; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41600,11 +41906,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12967 = _term$1; - var $12964 = $12967; + var $13075 = _term$1; + var $13072 = $13075; break; }; - var $12961 = $12964; + var $13069 = $13072; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41628,11 +41934,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12968 = _term$1; - var $12961 = $12968; + var $13076 = _term$1; + var $13069 = $13076; break; }; - return $12961; + return $13069; }; const Kind$Term$check$expand$mut$selector$apply = x0 => Kind$Term$check$expand$mut$selector$apply$(x0); @@ -41640,24 +41946,24 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12970 = self.name; - var $12971 = self.body; - var $12972 = Kind$Term$lam$($12970, (_x$11 => { - var _body$12 = $12971(Kind$Term$typ)(Kind$Term$typ); + var $13078 = self.name; + var $13079 = self.body; + var $13080 = Kind$Term$lam$($13078, (_x$11 => { + var _body$12 = $13079(Kind$Term$typ)(Kind$Term$typ); var _rett$13 = Kind$Term$app$(_rett$5, (() => { - var self = ($12970 === _fkey$1); + var self = ($13078 === _fkey$1); if (self) { - var $12974 = Kind$Term$check$expand$mut$selector$apply$(_ffun$2(_x$11)); - return $12974; + var $13082 = Kind$Term$check$expand$mut$selector$apply$(_ffun$2(_x$11)); + return $13082; } else { - var $12975 = _x$11; - return $12975; + var $13083 = _x$11; + return $13083; }; })()); - var $12973 = Kind$Term$check$expand$mut$selector$(_fkey$1, _ffun$2, _body$12, _defs$4, _rett$13); - return $12973; + var $13081 = Kind$Term$check$expand$mut$selector$(_fkey$1, _ffun$2, _body$12, _defs$4, _rett$13); + return $13081; })); - var $12969 = $12972; + var $13077 = $13080; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41681,11 +41987,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12976 = _rett$5; - var $12969 = $12976; + var $13084 = _rett$5; + var $13077 = $13084; break; }; - return $12969; + return $13077; }; const Kind$Term$check$expand$mut$selector = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$mut$selector$(x0, x1, x2, x3, x4); @@ -41693,28 +41999,28 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$4, _defs$5); switch (self._) { case 'Kind.Term.all': - var $12978 = self.self; - var $12979 = self.xtyp; - var $12980 = self.body; - var self = Kind$Term$reduce$($12980(Kind$Term$typ)(Kind$Term$typ), _defs$5); + var $13086 = self.self; + var $13087 = self.xtyp; + var $13088 = self.body; + var self = Kind$Term$reduce$($13088(Kind$Term$typ)(Kind$Term$typ), _defs$5); switch (self._) { case 'Kind.Term.all': - var $12982 = self.name; - var $12983 = self.xtyp; + var $13090 = self.name; + var $13091 = self.xtyp; var _term$16 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$16 => { - var $12985 = Kind$Term$hol$(Bits$e); - return $12985; + var $13093 = Kind$Term$hol$(Bits$e); + return $13093; }))); - var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12978), ""); - var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $12982))); - var _pars$19 = Kind$Term$check$expand$mut$count_params$($12979); + var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13086), ""); + var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $13090))); + var _pars$19 = Kind$Term$check$expand$mut$count_params$($13087); var _rett$20 = Nat$for$(_rett$18, 0n, _pars$19, (_i$20 => _rett$21 => { - var $12986 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); - return $12986; + var $13094 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); + return $13094; })); - var _sele$21 = Kind$Term$check$expand$mut$selector$(_fkey$2, _ffun$3, $12983, _defs$5, _rett$20); - var $12984 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); - var $12981 = $12984; + var _sele$21 = Kind$Term$check$expand$mut$selector$(_fkey$2, _ffun$3, $13091, _defs$5, _rett$20); + var $13092 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); + var $13089 = $13092; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41738,11 +42044,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12987 = Maybe$none; - var $12981 = $12987; + var $13095 = Maybe$none; + var $13089 = $13095; break; }; - var $12977 = $12981; + var $13085 = $13089; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41766,11 +42072,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $12988 = Maybe$none; - var $12977 = $12988; + var $13096 = Maybe$none; + var $13085 = $13096; break; }; - return $12977; + return $13085; }; const Kind$Term$check$expand$mut = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$mut$(x0, x1, x2, x3, x4); @@ -41786,21 +42092,21 @@ module.exports = (function() { var R = (() => { var self = _str$2; if (self.length === 0) { - var $12989 = Maybe$none; - return $12989; + var $13097 = Maybe$none; + return $13097; } else { - var $12990 = self.charCodeAt(0); - var $12991 = self.slice(1); + var $13098 = self.charCodeAt(0); + var $13099 = self.slice(1); var self = _index$1; if (self === 0n) { - var $12993 = Maybe$some$($12990); - var $12992 = $12993; + var $13101 = Maybe$some$($13098); + var $13100 = $13101; } else { - var $12994 = (self - 1n); - var $12995 = String$at$($12994, $12991); - var $12992 = $12995; + var $13102 = (self - 1n); + var $13103 = String$at$($13102, $13099); + var $13100 = $13103; }; - return $12992; + return $13100; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41810,139 +42116,139 @@ module.exports = (function() { const String$at = x0 => x1 => String$at$(x0, x1); function String$last$(_xs$1) { - var $12996 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); - return $12996; + var $13104 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); + return $13104; }; 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 $12998 = Maybe$none; - var $12997 = $12998; + var $13106 = Maybe$none; + var $13105 = $13106; } 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 $13000 = self.value; + var $13108 = self.value; var self = (_oper$2 === "+"); if (self) { - var $13002 = Maybe$some$("add"); - var _oper_name$9 = $13002; + var $13110 = Maybe$some$("add"); + var _oper_name$9 = $13110; } else { var self = (_oper$2 === "-"); if (self) { - var $13004 = Maybe$some$("sub"); - var $13003 = $13004; + var $13112 = Maybe$some$("sub"); + var $13111 = $13112; } else { var self = (_oper$2 === "*"); if (self) { - var $13006 = Maybe$some$("mul"); - var $13005 = $13006; + var $13114 = Maybe$some$("mul"); + var $13113 = $13114; } else { var self = (_oper$2 === "/"); if (self) { - var $13008 = Maybe$some$("div"); - var $13007 = $13008; + var $13116 = Maybe$some$("div"); + var $13115 = $13116; } else { var self = (_oper$2 === "**"); if (self) { - var $13010 = Maybe$some$("pow"); - var $13009 = $13010; + var $13118 = Maybe$some$("pow"); + var $13117 = $13118; } else { var self = (_oper$2 === "%"); if (self) { - var $13012 = Maybe$some$("mod"); - var $13011 = $13012; + var $13120 = Maybe$some$("mod"); + var $13119 = $13120; } else { var self = (_oper$2 === "=?"); if (self) { - var $13020 = Maybe$some$("gte"); - var $13019 = $13020; + var $13128 = Maybe$some$("gte"); + var $13127 = $13128; } else { var self = (_oper$2 === ">?"); if (self) { - var $13022 = Maybe$some$("gtn"); - var $13021 = $13022; + var $13130 = Maybe$some$("gtn"); + var $13129 = $13130; } else { var self = (_oper$2 === "&&"); if (self) { - var $13024 = Maybe$some$("and"); - var $13023 = $13024; + var $13132 = Maybe$some$("and"); + var $13131 = $13132; } else { var self = (_oper$2 === "||"); if (self) { - var $13026 = Maybe$some$("or"); - var $13025 = $13026; + var $13134 = Maybe$some$("or"); + var $13133 = $13134; } else { - var $13027 = Maybe$none; - var $13025 = $13027; + var $13135 = Maybe$none; + var $13133 = $13135; }; - var $13023 = $13025; + var $13131 = $13133; }; - var $13021 = $13023; + var $13129 = $13131; }; - var $13019 = $13021; + var $13127 = $13129; }; - var $13017 = $13019; + var $13125 = $13127; }; - var $13015 = $13017; + var $13123 = $13125; }; - var $13013 = $13015; + var $13121 = $13123; }; - var $13011 = $13013; + var $13119 = $13121; }; - var $13009 = $13011; + var $13117 = $13119; }; - var $13007 = $13009; + var $13115 = $13117; }; - var $13005 = $13007; + var $13113 = $13115; }; - var $13003 = $13005; + var $13111 = $13113; }; - var _oper_name$9 = $13003; + var _oper_name$9 = $13111; }; var self = _oper_name$9; switch (self._) { case 'Maybe.some': - var $13028 = self.value; - var _term$11 = Kind$Term$ref$(($13000 + ("." + $13028))); + var $13136 = self.value; + var _term$11 = Kind$Term$ref$(($13108 + ("." + $13136))); var _term$12 = Kind$Term$app$(_term$11, _arg0$3); var _term$13 = Kind$Term$app$(_term$12, _arg1$4); - var $13029 = Maybe$some$(_term$13); - var $13001 = $13029; + var $13137 = Maybe$some$(_term$13); + var $13109 = $13137; break; case 'Maybe.none': - var $13030 = Maybe$none; - var $13001 = $13030; + var $13138 = Maybe$none; + var $13109 = $13138; break; }; - var $12999 = $13001; + var $13107 = $13109; break; case 'Maybe.none': - var $13031 = Maybe$none; - var $12999 = $13031; + var $13139 = Maybe$none; + var $13107 = $13139; break; }; - var $12997 = $12999; + var $13105 = $13107; }; - return $12997; + return $13105; }; const Kind$Term$check$expand$ope = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$expand$ope$(x0, x1, x2, x3, x4, x5); @@ -41950,21 +42256,21 @@ module.exports = (function() { var self = (bitsmap_get(_bits$1, _set$2)); switch (self._) { case 'Maybe.none': - var $13033 = Bool$false; - var $13032 = $13033; + var $13141 = Bool$false; + var $13140 = $13141; break; case 'Maybe.some': - var $13034 = Bool$true; - var $13032 = $13034; + var $13142 = Bool$true; + var $13140 = $13142; break; }; - return $13032; + return $13140; }; const BitsSet$has = x0 => x1 => BitsSet$has$(x0, x1); function BitsSet$mut$has$(_bits$1, _set$2) { - var $13035 = BitsSet$has$(_bits$1, _set$2); - return $13035; + var $13143 = BitsSet$has$(_bits$1, _set$2); + return $13143; }; const BitsSet$mut$has = x0 => x1 => BitsSet$mut$has$(x0, x1); @@ -41981,25 +42287,25 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13036 = self.name; - var $13037 = Maybe$some$(Pair$new$($13036, _arity$2)); - return $13037; + var $13144 = self.name; + var $13145 = Maybe$some$(Pair$new$($13144, _arity$2)); + return $13145; case 'Kind.Term.ref': - var $13038 = self.name; - var $13039 = Maybe$some$(Pair$new$($13038, _arity$2)); - return $13039; + var $13146 = self.name; + var $13147 = Maybe$some$(Pair$new$($13146, _arity$2)); + return $13147; case 'Kind.Term.app': - var $13040 = self.func; - var $13041 = Kind$Term$equal$extra_holes$funari$($13040, Nat$succ$(_arity$2)); - return $13041; + var $13148 = self.func; + var $13149 = Kind$Term$equal$extra_holes$funari$($13148, Nat$succ$(_arity$2)); + return $13149; case 'Kind.Term.imp': - var $13042 = self.expr; - var $13043 = Kind$Term$equal$extra_holes$funari$($13042, _arity$2); - return $13043; + var $13150 = self.expr; + var $13151 = Kind$Term$equal$extra_holes$funari$($13150, _arity$2); + return $13151; case 'Kind.Term.ori': - var $13044 = self.expr; - var $13045 = Kind$Term$equal$extra_holes$funari$($13044, _arity$2); - return $13045; + var $13152 = self.expr; + var $13153 = Kind$Term$equal$extra_holes$funari$($13152, _arity$2); + return $13153; case 'Kind.Term.typ': case 'Kind.Term.all': case 'Kind.Term.lam': @@ -42018,8 +42324,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13046 = Maybe$none; - return $13046; + var $13154 = Maybe$none; + return $13154; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -42032,44 +42338,44 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $13048 = self.xtyp; - var $13049 = self.body; - var $13050 = (Kind$Term$has_holes$($13048) || Kind$Term$has_holes$($13049(Kind$Term$typ)(Kind$Term$typ))); - var $13047 = $13050; + var $13156 = self.xtyp; + var $13157 = self.body; + var $13158 = (Kind$Term$has_holes$($13156) || Kind$Term$has_holes$($13157(Kind$Term$typ)(Kind$Term$typ))); + var $13155 = $13158; break; case 'Kind.Term.lam': - var $13051 = self.body; - var $13052 = Kind$Term$has_holes$($13051(Kind$Term$typ)); - var $13047 = $13052; + var $13159 = self.body; + var $13160 = Kind$Term$has_holes$($13159(Kind$Term$typ)); + var $13155 = $13160; break; case 'Kind.Term.app': - var $13053 = self.func; - var $13054 = self.argm; - var $13055 = (Kind$Term$has_holes$($13053) || Kind$Term$has_holes$($13054)); - var $13047 = $13055; + var $13161 = self.func; + var $13162 = self.argm; + var $13163 = (Kind$Term$has_holes$($13161) || Kind$Term$has_holes$($13162)); + var $13155 = $13163; break; case 'Kind.Term.let': - var $13056 = self.expr; - var $13057 = self.body; - var $13058 = (Kind$Term$has_holes$($13056) || Kind$Term$has_holes$($13057(Kind$Term$typ))); - var $13047 = $13058; + var $13164 = self.expr; + var $13165 = self.body; + var $13166 = (Kind$Term$has_holes$($13164) || Kind$Term$has_holes$($13165(Kind$Term$typ))); + var $13155 = $13166; break; case 'Kind.Term.def': - var $13059 = self.expr; - var $13060 = self.body; - var $13061 = (Kind$Term$has_holes$($13059) || Kind$Term$has_holes$($13060(Kind$Term$typ))); - var $13047 = $13061; + var $13167 = self.expr; + var $13168 = self.body; + var $13169 = (Kind$Term$has_holes$($13167) || Kind$Term$has_holes$($13168(Kind$Term$typ))); + var $13155 = $13169; break; case 'Kind.Term.ann': - var $13062 = self.term; - var $13063 = self.type; - var $13064 = (Kind$Term$has_holes$($13062) || Kind$Term$has_holes$($13063)); - var $13047 = $13064; + var $13170 = self.term; + var $13171 = self.type; + var $13172 = (Kind$Term$has_holes$($13170) || Kind$Term$has_holes$($13171)); + var $13155 = $13172; break; case 'Kind.Term.ori': - var $13065 = self.expr; - var $13066 = Kind$Term$has_holes$($13065); - var $13047 = $13066; + var $13173 = self.expr; + var $13174 = Kind$Term$has_holes$($13173); + var $13155 = $13174; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42086,15 +42392,15 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13067 = Bool$false; - var $13047 = $13067; + var $13175 = Bool$false; + var $13155 = $13175; break; case 'Kind.Term.hol': - var $13068 = Bool$true; - var $13047 = $13068; + var $13176 = Bool$true; + var $13155 = $13176; break; }; - return $13047; + return $13155; }; const Kind$Term$has_holes = x0 => Kind$Term$has_holes$(x0); @@ -42125,20 +42431,20 @@ module.exports = (function() { case 'Kind.Term.ori': var self = Kind$Term$has_holes$(_term$2); if (self) { - var $13071 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13070 = $13071; + var $13179 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13178 = $13179; } else { - var $13072 = 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 $13070 = $13072; + var $13180 = 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 $13178 = $13180; }; - var $13069 = $13070; + var $13177 = $13178; break; case 'Kind.Term.hol': - var $13073 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13069 = $13073; + var $13181 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13177 = $13181; break; }; - return $13069; + return $13177; }; const Kind$Term$equal$hole = x0 => x1 => Kind$Term$equal$hole$(x0, x1); @@ -42146,82 +42452,82 @@ module.exports = (function() { var self = _a$1; switch (self._) { case 'Kind.Term.app': - var $13075 = self.func; - var $13076 = self.argm; + var $13183 = self.func; + var $13184 = self.argm; var self = _b$2; switch (self._) { case 'Kind.Term.app': - var $13078 = self.func; - var $13079 = self.argm; - var self = Kind$Term$equal$extra_holes$filler$($13075, $13078); + var $13186 = self.func; + var $13187 = self.argm; + var self = Kind$Term$equal$extra_holes$filler$($13183, $13186); switch (self._) { case 'Kind.Check.result': - var $13081 = self.value; - var $13082 = self.errors; - var self = $13081; + var $13189 = self.value; + var $13190 = self.errors; + var self = $13189; switch (self._) { case 'Maybe.none': - var $13084 = Kind$Check$result$(Maybe$none, $13082); - var $13083 = $13084; + var $13192 = Kind$Check$result$(Maybe$none, $13190); + var $13191 = $13192; break; case 'Maybe.some': - var self = Kind$Term$equal$extra_holes$filler$($13076, $13079); + var self = Kind$Term$equal$extra_holes$filler$($13184, $13187); switch (self._) { case 'Kind.Check.result': - var $13086 = self.value; - var $13087 = self.errors; - var $13088 = Kind$Check$result$($13086, List$concat$($13082, $13087)); - var $13085 = $13088; + var $13194 = self.value; + var $13195 = self.errors; + var $13196 = Kind$Check$result$($13194, List$concat$($13190, $13195)); + var $13193 = $13196; break; }; - var $13083 = $13085; + var $13191 = $13193; break; }; - var $13080 = $13083; + var $13188 = $13191; break; }; - var $13077 = $13080; + var $13185 = $13188; break; case 'Kind.Term.hol': - var $13089 = self.path; - var self = Kind$Term$equal$hole$($13089, _a$1); + var $13197 = self.path; + var self = Kind$Term$equal$hole$($13197, _a$1); switch (self._) { case 'Kind.Check.result': - var $13091 = self.value; - var $13092 = self.errors; - var self = $13091; + var $13199 = self.value; + var $13200 = self.errors; + var self = $13199; switch (self._) { case 'Maybe.none': - var $13094 = Kind$Check$result$(Maybe$none, $13092); - var $13093 = $13094; + var $13202 = Kind$Check$result$(Maybe$none, $13200); + var $13201 = $13202; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13096 = self.value; - var $13097 = self.errors; - var $13098 = Kind$Check$result$($13096, List$concat$($13092, $13097)); - var $13095 = $13098; + var $13204 = self.value; + var $13205 = self.errors; + var $13206 = Kind$Check$result$($13204, List$concat$($13200, $13205)); + var $13203 = $13206; break; }; - var $13093 = $13095; + var $13201 = $13203; break; }; - var $13090 = $13093; + var $13198 = $13201; break; }; - var $13077 = $13090; + var $13185 = $13198; break; case 'Kind.Term.imp': - var $13099 = self.expr; - var $13100 = Kind$Term$equal$extra_holes$filler$(_a$1, $13099); - var $13077 = $13100; + var $13207 = self.expr; + var $13208 = Kind$Term$equal$extra_holes$filler$(_a$1, $13207); + var $13185 = $13208; break; case 'Kind.Term.ori': - var $13101 = self.expr; - var $13102 = Kind$Term$equal$extra_holes$filler$(_a$1, $13101); - var $13077 = $13102; + var $13209 = self.expr; + var $13210 = Kind$Term$equal$extra_holes$filler$(_a$1, $13209); + var $13185 = $13210; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42242,52 +42548,52 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13103 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13077 = $13103; + var $13211 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13185 = $13211; break; }; - var $13074 = $13077; + var $13182 = $13185; break; case 'Kind.Term.hol': - var $13104 = self.path; - var self = Kind$Term$equal$hole$($13104, _b$2); + var $13212 = self.path; + var self = Kind$Term$equal$hole$($13212, _b$2); switch (self._) { case 'Kind.Check.result': - var $13106 = self.value; - var $13107 = self.errors; - var self = $13106; + var $13214 = self.value; + var $13215 = self.errors; + var self = $13214; switch (self._) { case 'Maybe.none': - var $13109 = Kind$Check$result$(Maybe$none, $13107); - var $13108 = $13109; + var $13217 = Kind$Check$result$(Maybe$none, $13215); + var $13216 = $13217; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13111 = self.value; - var $13112 = self.errors; - var $13113 = Kind$Check$result$($13111, List$concat$($13107, $13112)); - var $13110 = $13113; + var $13219 = self.value; + var $13220 = self.errors; + var $13221 = Kind$Check$result$($13219, List$concat$($13215, $13220)); + var $13218 = $13221; break; }; - var $13108 = $13110; + var $13216 = $13218; break; }; - var $13105 = $13108; + var $13213 = $13216; break; }; - var $13074 = $13105; + var $13182 = $13213; break; case 'Kind.Term.imp': - var $13114 = self.expr; - var $13115 = Kind$Term$equal$extra_holes$filler$($13114, _b$2); - var $13074 = $13115; + var $13222 = self.expr; + var $13223 = Kind$Term$equal$extra_holes$filler$($13222, _b$2); + var $13182 = $13223; break; case 'Kind.Term.ori': - var $13116 = self.expr; - var $13117 = Kind$Term$equal$extra_holes$filler$($13116, _b$2); - var $13074 = $13117; + var $13224 = self.expr; + var $13225 = Kind$Term$equal$extra_holes$filler$($13224, _b$2); + var $13182 = $13225; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -42295,45 +42601,45 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13119 = self.path; - var self = Kind$Term$equal$hole$($13119, _a$1); + var $13227 = self.path; + var self = Kind$Term$equal$hole$($13227, _a$1); switch (self._) { case 'Kind.Check.result': - var $13121 = self.value; - var $13122 = self.errors; - var self = $13121; + var $13229 = self.value; + var $13230 = self.errors; + var self = $13229; switch (self._) { case 'Maybe.none': - var $13124 = Kind$Check$result$(Maybe$none, $13122); - var $13123 = $13124; + var $13232 = Kind$Check$result$(Maybe$none, $13230); + var $13231 = $13232; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13126 = self.value; - var $13127 = self.errors; - var $13128 = Kind$Check$result$($13126, List$concat$($13122, $13127)); - var $13125 = $13128; + var $13234 = self.value; + var $13235 = self.errors; + var $13236 = Kind$Check$result$($13234, List$concat$($13230, $13235)); + var $13233 = $13236; break; }; - var $13123 = $13125; + var $13231 = $13233; break; }; - var $13120 = $13123; + var $13228 = $13231; break; }; - var $13118 = $13120; + var $13226 = $13228; break; case 'Kind.Term.imp': - var $13129 = self.expr; - var $13130 = Kind$Term$equal$extra_holes$filler$(_a$1, $13129); - var $13118 = $13130; + var $13237 = self.expr; + var $13238 = Kind$Term$equal$extra_holes$filler$(_a$1, $13237); + var $13226 = $13238; break; case 'Kind.Term.ori': - var $13131 = self.expr; - var $13132 = Kind$Term$equal$extra_holes$filler$(_a$1, $13131); - var $13118 = $13132; + var $13239 = self.expr; + var $13240 = Kind$Term$equal$extra_holes$filler$(_a$1, $13239); + var $13226 = $13240; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42355,11 +42661,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13133 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13118 = $13133; + var $13241 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13226 = $13241; break; }; - var $13074 = $13118; + var $13182 = $13226; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -42369,45 +42675,45 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13135 = self.path; - var self = Kind$Term$equal$hole$($13135, _a$1); + var $13243 = self.path; + var self = Kind$Term$equal$hole$($13243, _a$1); switch (self._) { case 'Kind.Check.result': - var $13137 = self.value; - var $13138 = self.errors; - var self = $13137; + var $13245 = self.value; + var $13246 = self.errors; + var self = $13245; switch (self._) { case 'Maybe.none': - var $13140 = Kind$Check$result$(Maybe$none, $13138); - var $13139 = $13140; + var $13248 = Kind$Check$result$(Maybe$none, $13246); + var $13247 = $13248; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13142 = self.value; - var $13143 = self.errors; - var $13144 = Kind$Check$result$($13142, List$concat$($13138, $13143)); - var $13141 = $13144; + var $13250 = self.value; + var $13251 = self.errors; + var $13252 = Kind$Check$result$($13250, List$concat$($13246, $13251)); + var $13249 = $13252; break; }; - var $13139 = $13141; + var $13247 = $13249; break; }; - var $13136 = $13139; + var $13244 = $13247; break; }; - var $13134 = $13136; + var $13242 = $13244; break; case 'Kind.Term.imp': - var $13145 = self.expr; - var $13146 = Kind$Term$equal$extra_holes$filler$(_a$1, $13145); - var $13134 = $13146; + var $13253 = self.expr; + var $13254 = Kind$Term$equal$extra_holes$filler$(_a$1, $13253); + var $13242 = $13254; break; case 'Kind.Term.ori': - var $13147 = self.expr; - var $13148 = Kind$Term$equal$extra_holes$filler$(_a$1, $13147); - var $13134 = $13148; + var $13255 = self.expr; + var $13256 = Kind$Term$equal$extra_holes$filler$(_a$1, $13255); + var $13242 = $13256; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42429,55 +42735,55 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13149 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13134 = $13149; + var $13257 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13242 = $13257; break; }; - var $13074 = $13134; + var $13182 = $13242; break; case 'Kind.Term.typ': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13151 = self.path; - var self = Kind$Term$equal$hole$($13151, _a$1); + var $13259 = self.path; + var self = Kind$Term$equal$hole$($13259, _a$1); switch (self._) { case 'Kind.Check.result': - var $13153 = self.value; - var $13154 = self.errors; - var self = $13153; + var $13261 = self.value; + var $13262 = self.errors; + var self = $13261; switch (self._) { case 'Maybe.none': - var $13156 = Kind$Check$result$(Maybe$none, $13154); - var $13155 = $13156; + var $13264 = Kind$Check$result$(Maybe$none, $13262); + var $13263 = $13264; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13158 = self.value; - var $13159 = self.errors; - var $13160 = Kind$Check$result$($13158, List$concat$($13154, $13159)); - var $13157 = $13160; + var $13266 = self.value; + var $13267 = self.errors; + var $13268 = Kind$Check$result$($13266, List$concat$($13262, $13267)); + var $13265 = $13268; break; }; - var $13155 = $13157; + var $13263 = $13265; break; }; - var $13152 = $13155; + var $13260 = $13263; break; }; - var $13150 = $13152; + var $13258 = $13260; break; case 'Kind.Term.imp': - var $13161 = self.expr; - var $13162 = Kind$Term$equal$extra_holes$filler$(_a$1, $13161); - var $13150 = $13162; + var $13269 = self.expr; + var $13270 = Kind$Term$equal$extra_holes$filler$(_a$1, $13269); + var $13258 = $13270; break; case 'Kind.Term.ori': - var $13163 = self.expr; - var $13164 = Kind$Term$equal$extra_holes$filler$(_a$1, $13163); - var $13150 = $13164; + var $13271 = self.expr; + var $13272 = Kind$Term$equal$extra_holes$filler$(_a$1, $13271); + var $13258 = $13272; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42499,55 +42805,55 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13165 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13150 = $13165; + var $13273 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13258 = $13273; break; }; - var $13074 = $13150; + var $13182 = $13258; break; case 'Kind.Term.all': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13167 = self.path; - var self = Kind$Term$equal$hole$($13167, _a$1); + var $13275 = self.path; + var self = Kind$Term$equal$hole$($13275, _a$1); switch (self._) { case 'Kind.Check.result': - var $13169 = self.value; - var $13170 = self.errors; - var self = $13169; + var $13277 = self.value; + var $13278 = self.errors; + var self = $13277; switch (self._) { case 'Maybe.none': - var $13172 = Kind$Check$result$(Maybe$none, $13170); - var $13171 = $13172; + var $13280 = Kind$Check$result$(Maybe$none, $13278); + var $13279 = $13280; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13174 = self.value; - var $13175 = self.errors; - var $13176 = Kind$Check$result$($13174, List$concat$($13170, $13175)); - var $13173 = $13176; + var $13282 = self.value; + var $13283 = self.errors; + var $13284 = Kind$Check$result$($13282, List$concat$($13278, $13283)); + var $13281 = $13284; break; }; - var $13171 = $13173; + var $13279 = $13281; break; }; - var $13168 = $13171; + var $13276 = $13279; break; }; - var $13166 = $13168; + var $13274 = $13276; break; case 'Kind.Term.imp': - var $13177 = self.expr; - var $13178 = Kind$Term$equal$extra_holes$filler$(_a$1, $13177); - var $13166 = $13178; + var $13285 = self.expr; + var $13286 = Kind$Term$equal$extra_holes$filler$(_a$1, $13285); + var $13274 = $13286; break; case 'Kind.Term.ori': - var $13179 = self.expr; - var $13180 = Kind$Term$equal$extra_holes$filler$(_a$1, $13179); - var $13166 = $13180; + var $13287 = self.expr; + var $13288 = Kind$Term$equal$extra_holes$filler$(_a$1, $13287); + var $13274 = $13288; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42569,11 +42875,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13181 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13166 = $13181; + var $13289 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13274 = $13289; break; }; - var $13074 = $13166; + var $13182 = $13274; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -42586,45 +42892,45 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13183 = self.path; - var self = Kind$Term$equal$hole$($13183, _a$1); + var $13291 = self.path; + var self = Kind$Term$equal$hole$($13291, _a$1); switch (self._) { case 'Kind.Check.result': - var $13185 = self.value; - var $13186 = self.errors; - var self = $13185; + var $13293 = self.value; + var $13294 = self.errors; + var self = $13293; switch (self._) { case 'Maybe.none': - var $13188 = Kind$Check$result$(Maybe$none, $13186); - var $13187 = $13188; + var $13296 = Kind$Check$result$(Maybe$none, $13294); + var $13295 = $13296; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13190 = self.value; - var $13191 = self.errors; - var $13192 = Kind$Check$result$($13190, List$concat$($13186, $13191)); - var $13189 = $13192; + var $13298 = self.value; + var $13299 = self.errors; + var $13300 = Kind$Check$result$($13298, List$concat$($13294, $13299)); + var $13297 = $13300; break; }; - var $13187 = $13189; + var $13295 = $13297; break; }; - var $13184 = $13187; + var $13292 = $13295; break; }; - var $13182 = $13184; + var $13290 = $13292; break; case 'Kind.Term.imp': - var $13193 = self.expr; - var $13194 = Kind$Term$equal$extra_holes$filler$(_a$1, $13193); - var $13182 = $13194; + var $13301 = self.expr; + var $13302 = Kind$Term$equal$extra_holes$filler$(_a$1, $13301); + var $13290 = $13302; break; case 'Kind.Term.ori': - var $13195 = self.expr; - var $13196 = Kind$Term$equal$extra_holes$filler$(_a$1, $13195); - var $13182 = $13196; + var $13303 = self.expr; + var $13304 = Kind$Term$equal$extra_holes$filler$(_a$1, $13303); + var $13290 = $13304; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42646,55 +42952,55 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13197 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13182 = $13197; + var $13305 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13290 = $13305; break; }; - var $13074 = $13182; + var $13182 = $13290; break; case 'Kind.Term.cse': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13199 = self.path; - var self = Kind$Term$equal$hole$($13199, _a$1); + var $13307 = self.path; + var self = Kind$Term$equal$hole$($13307, _a$1); switch (self._) { case 'Kind.Check.result': - var $13201 = self.value; - var $13202 = self.errors; - var self = $13201; + var $13309 = self.value; + var $13310 = self.errors; + var self = $13309; switch (self._) { case 'Maybe.none': - var $13204 = Kind$Check$result$(Maybe$none, $13202); - var $13203 = $13204; + var $13312 = Kind$Check$result$(Maybe$none, $13310); + var $13311 = $13312; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13206 = self.value; - var $13207 = self.errors; - var $13208 = Kind$Check$result$($13206, List$concat$($13202, $13207)); - var $13205 = $13208; + var $13314 = self.value; + var $13315 = self.errors; + var $13316 = Kind$Check$result$($13314, List$concat$($13310, $13315)); + var $13313 = $13316; break; }; - var $13203 = $13205; + var $13311 = $13313; break; }; - var $13200 = $13203; + var $13308 = $13311; break; }; - var $13198 = $13200; + var $13306 = $13308; break; case 'Kind.Term.imp': - var $13209 = self.expr; - var $13210 = Kind$Term$equal$extra_holes$filler$(_a$1, $13209); - var $13198 = $13210; + var $13317 = self.expr; + var $13318 = Kind$Term$equal$extra_holes$filler$(_a$1, $13317); + var $13306 = $13318; break; case 'Kind.Term.ori': - var $13211 = self.expr; - var $13212 = Kind$Term$equal$extra_holes$filler$(_a$1, $13211); - var $13198 = $13212; + var $13319 = self.expr; + var $13320 = Kind$Term$equal$extra_holes$filler$(_a$1, $13319); + var $13306 = $13320; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42716,14 +43022,14 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $13213 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13198 = $13213; + var $13321 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13306 = $13321; break; }; - var $13074 = $13198; + var $13182 = $13306; break; }; - return $13074; + return $13182; }; const Kind$Term$equal$extra_holes$filler = x0 => x1 => Kind$Term$equal$extra_holes$filler$(x0, x1); @@ -42731,77 +43037,77 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$funari$(_a$1, 0n); switch (self._) { case 'Maybe.some': - var $13215 = self.value; + var $13323 = self.value; var self = Kind$Term$equal$extra_holes$funari$(_b$2, 0n); switch (self._) { case 'Maybe.some': - var $13217 = self.value; - var self = $13215; + var $13325 = self.value; + var self = $13323; switch (self._) { case 'Pair.new': - var $13219 = self.fst; - var $13220 = self.snd; - var self = $13217; + var $13327 = self.fst; + var $13328 = self.snd; + var self = $13325; switch (self._) { case 'Pair.new': - var $13222 = self.fst; - var $13223 = self.snd; - var _same_fun$9 = ($13219 === $13222); - var _same_ari$10 = ($13220 === $13223); + var $13330 = self.fst; + var $13331 = self.snd; + var _same_fun$9 = ($13327 === $13330); + var _same_ari$10 = ($13328 === $13331); var self = (_same_fun$9 && _same_ari$10); if (self) { - var $13225 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); - var $13224 = $13225; + var $13333 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); + var $13332 = $13333; } else { - var $13226 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13224 = $13226; + var $13334 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13332 = $13334; }; - var $13221 = $13224; + var $13329 = $13332; break; }; - var $13218 = $13221; + var $13326 = $13329; break; }; - var $13216 = $13218; + var $13324 = $13326; break; case 'Maybe.none': - var $13227 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13216 = $13227; + var $13335 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13324 = $13335; break; }; - var $13214 = $13216; + var $13322 = $13324; break; case 'Maybe.none': - var $13228 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13214 = $13228; + var $13336 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13322 = $13336; break; }; - return $13214; + return $13322; }; const Kind$Term$equal$extra_holes = x0 => x1 => Kind$Term$equal$extra_holes$(x0, x1); function BitsSet$set$(_bits$1, _set$2) { - var $13229 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); - return $13229; + var $13337 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); + return $13337; }; const BitsSet$set = x0 => x1 => BitsSet$set$(x0, x1); function BitsSet$mut$set$(_bits$1, _set$2) { - var $13230 = BitsSet$set$(_bits$1, _set$2); - return $13230; + var $13338 = BitsSet$set$(_bits$1, _set$2); + return $13338; }; 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 $13232 = _b$2; - var $13231 = $13232; + var $13340 = _b$2; + var $13339 = $13340; } else { - var $13233 = (!_b$2); - var $13231 = $13233; + var $13341 = (!_b$2); + var $13339 = $13341; }; - return $13231; + return $13339; }; const Bool$eql = x0 => x1 => Bool$eql$(x0, x1); @@ -42810,8 +43116,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 $13235 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13234 = $13235; + var $13343 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13342 = $13343; } else { var _a1$8 = Kind$Term$reduce$(_a$1, _defs$3); var _b1$9 = Kind$Term$reduce$(_b$2, _defs$3); @@ -42819,8 +43125,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 $13237 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13236 = $13237; + var $13345 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13344 = $13345; } else { var _id$12 = (_bh$11 + _ah$10); var self = BitsSet$mut$has$(_id$12, _seen$5); @@ -42828,121 +43134,121 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$(_a$1, _b$2); switch (self._) { case 'Kind.Check.result': - var $13240 = self.value; - var $13241 = self.errors; - var self = $13240; + var $13348 = self.value; + var $13349 = self.errors; + var self = $13348; switch (self._) { case 'Maybe.none': - var $13243 = Kind$Check$result$(Maybe$none, $13241); - var $13242 = $13243; + var $13351 = Kind$Check$result$(Maybe$none, $13349); + var $13350 = $13351; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); switch (self._) { case 'Kind.Check.result': - var $13245 = self.value; - var $13246 = self.errors; - var $13247 = Kind$Check$result$($13245, List$concat$($13241, $13246)); - var $13244 = $13247; + var $13353 = self.value; + var $13354 = self.errors; + var $13355 = Kind$Check$result$($13353, List$concat$($13349, $13354)); + var $13352 = $13355; break; }; - var $13242 = $13244; + var $13350 = $13352; break; }; - var $13239 = $13242; + var $13347 = $13350; break; }; - var $13238 = $13239; + var $13346 = $13347; } else { var self = _a1$8; switch (self._) { case 'Kind.Term.all': - var $13249 = self.eras; - var $13250 = self.self; - var $13251 = self.name; - var $13252 = self.xtyp; - var $13253 = self.body; + var $13357 = self.eras; + var $13358 = self.self; + var $13359 = self.name; + var $13360 = self.xtyp; + var $13361 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.all': - var $13255 = self.eras; - var $13256 = self.self; - var $13257 = self.name; - var $13258 = self.xtyp; - var $13259 = self.body; + var $13363 = self.eras; + var $13364 = self.self; + var $13365 = self.name; + var $13366 = self.xtyp; + var $13367 = self.body; var _seen$23 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$24 = $13253(Kind$Term$var$($13250, _lv$4))(Kind$Term$var$($13251, Nat$succ$(_lv$4))); - var _b1_body$25 = $13259(Kind$Term$var$($13256, _lv$4))(Kind$Term$var$($13257, Nat$succ$(_lv$4))); - var _eq_self$26 = ($13250 === $13256); - var _eq_eras$27 = Bool$eql$($13249, $13255); + var _a1_body$24 = $13361(Kind$Term$var$($13358, _lv$4))(Kind$Term$var$($13359, Nat$succ$(_lv$4))); + var _b1_body$25 = $13367(Kind$Term$var$($13364, _lv$4))(Kind$Term$var$($13365, Nat$succ$(_lv$4))); + var _eq_self$26 = ($13358 === $13364); + var _eq_eras$27 = Bool$eql$($13357, $13363); var self = (_eq_self$26 && _eq_eras$27); if (self) { - var self = Kind$Term$equal$go$($13252, $13258, _defs$3, _lv$4, _seen$23); + var self = Kind$Term$equal$go$($13360, $13366, _defs$3, _lv$4, _seen$23); switch (self._) { case 'Kind.Check.result': - var $13262 = self.value; - var $13263 = self.errors; - var self = $13262; + var $13370 = self.value; + var $13371 = self.errors; + var self = $13370; switch (self._) { case 'Maybe.some': - var $13265 = self.value; + var $13373 = 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 $13267 = self.value; - var $13268 = self.errors; - var self = $13267; + var $13375 = self.value; + var $13376 = self.errors; + var self = $13375; switch (self._) { case 'Maybe.some': - var $13270 = self.value; - var self = Kind$Check$result$(Maybe$some$(($13265 && $13270)), List$nil); + var $13378 = self.value; + var self = Kind$Check$result$(Maybe$some$(($13373 && $13378)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13272 = self.value; - var $13273 = self.errors; - var $13274 = Kind$Check$result$($13272, List$concat$($13268, $13273)); - var $13271 = $13274; + var $13380 = self.value; + var $13381 = self.errors; + var $13382 = Kind$Check$result$($13380, List$concat$($13376, $13381)); + var $13379 = $13382; break; }; - var $13269 = $13271; + var $13377 = $13379; break; case 'Maybe.none': - var $13275 = Kind$Check$result$(Maybe$none, $13268); - var $13269 = $13275; + var $13383 = Kind$Check$result$(Maybe$none, $13376); + var $13377 = $13383; break; }; - var self = $13269; + var self = $13377; break; }; switch (self._) { case 'Kind.Check.result': - var $13276 = self.value; - var $13277 = self.errors; - var $13278 = Kind$Check$result$($13276, List$concat$($13263, $13277)); - var $13266 = $13278; + var $13384 = self.value; + var $13385 = self.errors; + var $13386 = Kind$Check$result$($13384, List$concat$($13371, $13385)); + var $13374 = $13386; break; }; - var $13264 = $13266; + var $13372 = $13374; break; case 'Maybe.none': - var $13279 = Kind$Check$result$(Maybe$none, $13263); - var $13264 = $13279; + var $13387 = Kind$Check$result$(Maybe$none, $13371); + var $13372 = $13387; break; }; - var $13261 = $13264; + var $13369 = $13372; break; }; - var $13260 = $13261; + var $13368 = $13369; } else { - var $13280 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13260 = $13280; + var $13388 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13368 = $13388; }; - var $13254 = $13260; + var $13362 = $13368; break; case 'Kind.Term.hol': - var $13281 = self.path; - var $13282 = Kind$Term$equal$hole$($13281, _a$1); - var $13254 = $13282; + var $13389 = self.path; + var $13390 = Kind$Term$equal$hole$($13389, _a$1); + var $13362 = $13390; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42965,57 +43271,57 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13283 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13254 = $13283; + var $13391 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13362 = $13391; break; }; - var $13248 = $13254; + var $13356 = $13362; break; case 'Kind.Term.lam': - var $13284 = self.name; - var $13285 = self.body; + var $13392 = self.name; + var $13393 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.lam': - var $13287 = self.name; - var $13288 = self.body; + var $13395 = self.name; + var $13396 = self.body; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$18 = $13285(Kind$Term$var$($13284, _lv$4)); - var _b1_body$19 = $13288(Kind$Term$var$($13287, _lv$4)); + var _a1_body$18 = $13393(Kind$Term$var$($13392, _lv$4)); + var _b1_body$19 = $13396(Kind$Term$var$($13395, _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 $13290 = self.value; - var $13291 = self.errors; - var self = $13290; + var $13398 = self.value; + var $13399 = self.errors; + var self = $13398; switch (self._) { case 'Maybe.some': - var $13293 = self.value; - var self = Kind$Check$result$(Maybe$some$($13293), List$nil); + var $13401 = self.value; + var self = Kind$Check$result$(Maybe$some$($13401), List$nil); switch (self._) { case 'Kind.Check.result': - var $13295 = self.value; - var $13296 = self.errors; - var $13297 = Kind$Check$result$($13295, List$concat$($13291, $13296)); - var $13294 = $13297; + var $13403 = self.value; + var $13404 = self.errors; + var $13405 = Kind$Check$result$($13403, List$concat$($13399, $13404)); + var $13402 = $13405; break; }; - var $13292 = $13294; + var $13400 = $13402; break; case 'Maybe.none': - var $13298 = Kind$Check$result$(Maybe$none, $13291); - var $13292 = $13298; + var $13406 = Kind$Check$result$(Maybe$none, $13399); + var $13400 = $13406; break; }; - var $13289 = $13292; + var $13397 = $13400; break; }; - var $13286 = $13289; + var $13394 = $13397; break; case 'Kind.Term.hol': - var $13299 = self.path; - var $13300 = Kind$Term$equal$hole$($13299, _a$1); - var $13286 = $13300; + var $13407 = self.path; + var $13408 = Kind$Term$equal$hole$($13407, _a$1); + var $13394 = $13408; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43038,82 +43344,82 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13301 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13286 = $13301; + var $13409 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13394 = $13409; break; }; - var $13248 = $13286; + var $13356 = $13394; break; case 'Kind.Term.app': - var $13302 = self.func; - var $13303 = self.argm; + var $13410 = self.func; + var $13411 = self.argm; var self = _b1$9; switch (self._) { case 'Kind.Term.app': - var $13305 = self.func; - var $13306 = self.argm; + var $13413 = self.func; + var $13414 = self.argm; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var self = Kind$Term$equal$go$($13302, $13305, _defs$3, _lv$4, _seen$17); + var self = Kind$Term$equal$go$($13410, $13413, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $13308 = self.value; - var $13309 = self.errors; - var self = $13308; + var $13416 = self.value; + var $13417 = self.errors; + var self = $13416; switch (self._) { case 'Maybe.some': - var $13311 = self.value; - var self = Kind$Term$equal$go$($13303, $13306, _defs$3, _lv$4, _seen$17); + var $13419 = self.value; + var self = Kind$Term$equal$go$($13411, $13414, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $13313 = self.value; - var $13314 = self.errors; - var self = $13313; + var $13421 = self.value; + var $13422 = self.errors; + var self = $13421; switch (self._) { case 'Maybe.some': - var $13316 = self.value; - var self = Kind$Check$result$(Maybe$some$(($13311 && $13316)), List$nil); + var $13424 = self.value; + var self = Kind$Check$result$(Maybe$some$(($13419 && $13424)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13318 = self.value; - var $13319 = self.errors; - var $13320 = Kind$Check$result$($13318, List$concat$($13314, $13319)); - var $13317 = $13320; + var $13426 = self.value; + var $13427 = self.errors; + var $13428 = Kind$Check$result$($13426, List$concat$($13422, $13427)); + var $13425 = $13428; break; }; - var $13315 = $13317; + var $13423 = $13425; break; case 'Maybe.none': - var $13321 = Kind$Check$result$(Maybe$none, $13314); - var $13315 = $13321; + var $13429 = Kind$Check$result$(Maybe$none, $13422); + var $13423 = $13429; break; }; - var self = $13315; + var self = $13423; break; }; switch (self._) { case 'Kind.Check.result': - var $13322 = self.value; - var $13323 = self.errors; - var $13324 = Kind$Check$result$($13322, List$concat$($13309, $13323)); - var $13312 = $13324; + var $13430 = self.value; + var $13431 = self.errors; + var $13432 = Kind$Check$result$($13430, List$concat$($13417, $13431)); + var $13420 = $13432; break; }; - var $13310 = $13312; + var $13418 = $13420; break; case 'Maybe.none': - var $13325 = Kind$Check$result$(Maybe$none, $13309); - var $13310 = $13325; + var $13433 = Kind$Check$result$(Maybe$none, $13417); + var $13418 = $13433; break; }; - var $13307 = $13310; + var $13415 = $13418; break; }; - var $13304 = $13307; + var $13412 = $13415; break; case 'Kind.Term.hol': - var $13326 = self.path; - var $13327 = Kind$Term$equal$hole$($13326, _a$1); - var $13304 = $13327; + var $13434 = self.path; + var $13435 = Kind$Term$equal$hole$($13434, _a$1); + var $13412 = $13435; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43136,86 +43442,86 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13328 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13304 = $13328; + var $13436 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13412 = $13436; break; }; - var $13248 = $13304; + var $13356 = $13412; break; case 'Kind.Term.let': - var $13329 = self.name; - var $13330 = self.expr; - var $13331 = self.body; + var $13437 = self.name; + var $13438 = self.expr; + var $13439 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.let': - var $13333 = self.name; - var $13334 = self.expr; - var $13335 = self.body; + var $13441 = self.name; + var $13442 = self.expr; + var $13443 = self.body; var _seen$19 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$20 = $13331(Kind$Term$var$($13329, _lv$4)); - var _b1_body$21 = $13335(Kind$Term$var$($13333, _lv$4)); - var self = Kind$Term$equal$go$($13330, $13334, _defs$3, _lv$4, _seen$19); + var _a1_body$20 = $13439(Kind$Term$var$($13437, _lv$4)); + var _b1_body$21 = $13443(Kind$Term$var$($13441, _lv$4)); + var self = Kind$Term$equal$go$($13438, $13442, _defs$3, _lv$4, _seen$19); switch (self._) { case 'Kind.Check.result': - var $13337 = self.value; - var $13338 = self.errors; - var self = $13337; + var $13445 = self.value; + var $13446 = self.errors; + var self = $13445; switch (self._) { case 'Maybe.some': - var $13340 = self.value; + var $13448 = 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 $13342 = self.value; - var $13343 = self.errors; - var self = $13342; + var $13450 = self.value; + var $13451 = self.errors; + var self = $13450; switch (self._) { case 'Maybe.some': - var $13345 = self.value; - var self = Kind$Check$result$(Maybe$some$(($13340 && $13345)), List$nil); + var $13453 = self.value; + var self = Kind$Check$result$(Maybe$some$(($13448 && $13453)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13347 = self.value; - var $13348 = self.errors; - var $13349 = Kind$Check$result$($13347, List$concat$($13343, $13348)); - var $13346 = $13349; + var $13455 = self.value; + var $13456 = self.errors; + var $13457 = Kind$Check$result$($13455, List$concat$($13451, $13456)); + var $13454 = $13457; break; }; - var $13344 = $13346; + var $13452 = $13454; break; case 'Maybe.none': - var $13350 = Kind$Check$result$(Maybe$none, $13343); - var $13344 = $13350; + var $13458 = Kind$Check$result$(Maybe$none, $13451); + var $13452 = $13458; break; }; - var self = $13344; + var self = $13452; break; }; switch (self._) { case 'Kind.Check.result': - var $13351 = self.value; - var $13352 = self.errors; - var $13353 = Kind$Check$result$($13351, List$concat$($13338, $13352)); - var $13341 = $13353; + var $13459 = self.value; + var $13460 = self.errors; + var $13461 = Kind$Check$result$($13459, List$concat$($13446, $13460)); + var $13449 = $13461; break; }; - var $13339 = $13341; + var $13447 = $13449; break; case 'Maybe.none': - var $13354 = Kind$Check$result$(Maybe$none, $13338); - var $13339 = $13354; + var $13462 = Kind$Check$result$(Maybe$none, $13446); + var $13447 = $13462; break; }; - var $13336 = $13339; + var $13444 = $13447; break; }; - var $13332 = $13336; + var $13440 = $13444; break; case 'Kind.Term.hol': - var $13355 = self.path; - var $13356 = Kind$Term$equal$hole$($13355, _a$1); - var $13332 = $13356; + var $13463 = self.path; + var $13464 = Kind$Term$equal$hole$($13463, _a$1); + var $13440 = $13464; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43238,16 +43544,16 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13357 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13332 = $13357; + var $13465 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13440 = $13465; break; }; - var $13248 = $13332; + var $13356 = $13440; break; case 'Kind.Term.hol': - var $13358 = self.path; - var $13359 = Kind$Term$equal$hole$($13358, _b$2); - var $13248 = $13359; + var $13466 = self.path; + var $13467 = Kind$Term$equal$hole$($13466, _b$2); + var $13356 = $13467; break; case 'Kind.Term.var': case 'Kind.Term.get': @@ -43255,9 +43561,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $13361 = self.path; - var $13362 = Kind$Term$equal$hole$($13361, _a$1); - var $13360 = $13362; + var $13469 = self.path; + var $13470 = Kind$Term$equal$hole$($13469, _a$1); + var $13468 = $13470; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43281,11 +43587,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13363 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13360 = $13363; + var $13471 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13468 = $13471; break; }; - var $13248 = $13360; + var $13356 = $13468; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -43296,9 +43602,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $13365 = self.path; - var $13366 = Kind$Term$equal$hole$($13365, _a$1); - var $13364 = $13366; + var $13473 = self.path; + var $13474 = Kind$Term$equal$hole$($13473, _a$1); + var $13472 = $13474; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43322,19 +43628,19 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13367 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13364 = $13367; + var $13475 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13472 = $13475; break; }; - var $13248 = $13364; + var $13356 = $13472; break; case 'Kind.Term.typ': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $13369 = self.path; - var $13370 = Kind$Term$equal$hole$($13369, _a$1); - var $13368 = $13370; + var $13477 = self.path; + var $13478 = Kind$Term$equal$hole$($13477, _a$1); + var $13476 = $13478; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43358,11 +43664,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13371 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13368 = $13371; + var $13479 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13476 = $13479; break; }; - var $13248 = $13368; + var $13356 = $13476; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -43374,9 +43680,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $13373 = self.path; - var $13374 = Kind$Term$equal$hole$($13373, _a$1); - var $13372 = $13374; + var $13481 = self.path; + var $13482 = Kind$Term$equal$hole$($13481, _a$1); + var $13480 = $13482; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43400,19 +43706,19 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13375 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13372 = $13375; + var $13483 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13480 = $13483; break; }; - var $13248 = $13372; + var $13356 = $13480; break; case 'Kind.Term.cse': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $13377 = self.path; - var $13378 = Kind$Term$equal$hole$($13377, _a$1); - var $13376 = $13378; + var $13485 = self.path; + var $13486 = Kind$Term$equal$hole$($13485, _a$1); + var $13484 = $13486; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43436,27 +43742,27 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $13379 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13376 = $13379; + var $13487 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13484 = $13487; break; }; - var $13248 = $13376; + var $13356 = $13484; break; }; - var $13238 = $13248; + var $13346 = $13356; }; - var $13236 = $13238; + var $13344 = $13346; }; - var $13234 = $13236; + var $13342 = $13344; }; - return $13234; + return $13342; }; 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 $13380 = BitsSet$new; - return $13380; + var $13488 = BitsSet$new; + return $13488; }; const BitsSet$mut$new = x0 => BitsSet$mut$new$(x0); @@ -43464,185 +43770,185 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13382 = self.name; - var $13383 = self.indx; - var self = List$at_last$($13383, _ctx$4); + var $13490 = self.name; + var $13491 = self.indx; + var self = List$at_last$($13491, _ctx$4); switch (self._) { case 'Maybe.some': - var $13385 = self.value; - var $13386 = Kind$Check$result$(Maybe$some$((() => { - var self = $13385; + var $13493 = self.value; + var $13494 = Kind$Check$result$(Maybe$some$((() => { + var self = $13493; switch (self._) { case 'Pair.new': - var $13387 = self.snd; - var $13388 = $13387; - return $13388; + var $13495 = self.snd; + var $13496 = $13495; + return $13496; }; })()), List$nil); - var $13384 = $13386; + var $13492 = $13494; break; case 'Maybe.none': - var $13389 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $13382), List$nil)); - var $13384 = $13389; + var $13497 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $13490), List$nil)); + var $13492 = $13497; break; }; - var self = $13384; + var self = $13492; break; case 'Kind.Term.ref': - var $13390 = self.name; - var self = Kind$Map$get$($13390, _defs$3); + var $13498 = self.name; + var self = Kind$Map$get$($13498, _defs$3); switch (self._) { case 'Maybe.some': - var $13392 = self.value; - var self = $13392; + var $13500 = self.value; + var self = $13500; switch (self._) { case 'Kind.Def.new': - var $13394 = self.name; - var $13395 = self.term; - var $13396 = self.type; - var $13397 = self.stat; - var _ref_name$18 = $13394; - var _ref_type$19 = $13396; - var _ref_term$20 = $13395; - var _ref_stat$21 = $13397; + var $13502 = self.name; + var $13503 = self.term; + var $13504 = self.type; + var $13505 = self.stat; + var _ref_name$18 = $13502; + var _ref_type$19 = $13504; + var _ref_term$20 = $13503; + var _ref_stat$21 = $13505; var self = _ref_stat$21; switch (self._) { case 'Kind.Status.init': - var $13399 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); - var $13398 = $13399; + var $13507 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); + var $13506 = $13507; break; case 'Kind.Status.wait': case 'Kind.Status.done': - var $13400 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); - var $13398 = $13400; + var $13508 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); + var $13506 = $13508; break; case 'Kind.Status.fail': - var $13401 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); - var $13398 = $13401; + var $13509 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); + var $13506 = $13509; break; }; - var $13393 = $13398; + var $13501 = $13506; break; }; - var $13391 = $13393; + var $13499 = $13501; break; case 'Maybe.none': - var $13402 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $13390), List$nil)); - var $13391 = $13402; + var $13510 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $13498), List$nil)); + var $13499 = $13510; break; }; - var self = $13391; + var self = $13499; break; case 'Kind.Term.all': - var $13403 = self.self; - var $13404 = self.name; - var $13405 = self.xtyp; - var $13406 = self.body; + var $13511 = self.self; + var $13512 = self.name; + var $13513 = self.xtyp; + var $13514 = self.body; var _ctx_size$12 = (list_length(_ctx$4)); - var _self_var$13 = Kind$Term$var$($13403, _ctx_size$12); - var _body_var$14 = Kind$Term$var$($13404, Nat$succ$(_ctx_size$12)); - var _body_ctx$15 = List$cons$(Pair$new$($13404, $13405), List$cons$(Pair$new$($13403, _term$1), _ctx$4)); - var self = Kind$Term$check$($13405, 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$($13511, _ctx_size$12); + var _body_var$14 = Kind$Term$var$($13512, Nat$succ$(_ctx_size$12)); + var _body_ctx$15 = List$cons$(Pair$new$($13512, $13513), List$cons$(Pair$new$($13511, _term$1), _ctx$4)); + var self = Kind$Term$check$($13513, 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 $13408 = self.value; - var $13409 = self.errors; - var self = $13408; + var $13516 = self.value; + var $13517 = self.errors; + var self = $13516; switch (self._) { case 'Maybe.none': - var $13411 = Kind$Check$result$(Maybe$none, $13409); - var $13410 = $13411; + var $13519 = Kind$Check$result$(Maybe$none, $13517); + var $13518 = $13519; break; case 'Maybe.some': - var self = Kind$Term$check$($13406(_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$($13514(_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 $13413 = self.value; - var $13414 = self.errors; - var self = $13413; + var $13521 = self.value; + var $13522 = self.errors; + var self = $13521; switch (self._) { case 'Maybe.none': - var $13416 = Kind$Check$result$(Maybe$none, $13414); - var $13415 = $13416; + var $13524 = Kind$Check$result$(Maybe$none, $13522); + var $13523 = $13524; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); switch (self._) { case 'Kind.Check.result': - var $13418 = self.value; - var $13419 = self.errors; - var $13420 = Kind$Check$result$($13418, List$concat$($13414, $13419)); - var $13417 = $13420; + var $13526 = self.value; + var $13527 = self.errors; + var $13528 = Kind$Check$result$($13526, List$concat$($13522, $13527)); + var $13525 = $13528; break; }; - var $13415 = $13417; + var $13523 = $13525; break; }; - var self = $13415; + var self = $13523; break; }; switch (self._) { case 'Kind.Check.result': - var $13421 = self.value; - var $13422 = self.errors; - var $13423 = Kind$Check$result$($13421, List$concat$($13409, $13422)); - var $13412 = $13423; + var $13529 = self.value; + var $13530 = self.errors; + var $13531 = Kind$Check$result$($13529, List$concat$($13517, $13530)); + var $13520 = $13531; break; }; - var $13410 = $13412; + var $13518 = $13520; break; }; - var $13407 = $13410; + var $13515 = $13518; break; }; - var self = $13407; + var self = $13515; break; case 'Kind.Term.lam': - var $13424 = self.name; - var $13425 = self.body; + var $13532 = self.name; + var $13533 = self.body; var self = _type$2; switch (self._) { case 'Maybe.some': - var $13427 = self.value; - var _typv$10 = Kind$Term$reduce$($13427, _defs$3); + var $13535 = self.value; + var _typv$10 = Kind$Term$reduce$($13535, _defs$3); var self = _typv$10; switch (self._) { case 'Kind.Term.all': - var $13429 = self.xtyp; - var $13430 = self.body; + var $13537 = self.xtyp; + var $13538 = self.body; var _ctx_size$16 = (list_length(_ctx$4)); var _self_var$17 = _term$1; - var _body_var$18 = Kind$Term$var$($13424, _ctx_size$16); - var _body_typ$19 = $13430(_self_var$17)(_body_var$18); - var _body_ctx$20 = List$cons$(Pair$new$($13424, $13429), _ctx$4); - var self = Kind$Term$check$($13425(_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$($13532, _ctx_size$16); + var _body_typ$19 = $13538(_self_var$17)(_body_var$18); + var _body_ctx$20 = List$cons$(Pair$new$($13532, $13537), _ctx$4); + var self = Kind$Term$check$($13533(_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 $13432 = self.value; - var $13433 = self.errors; - var self = $13432; + var $13540 = self.value; + var $13541 = self.errors; + var self = $13540; switch (self._) { case 'Maybe.none': - var $13435 = Kind$Check$result$(Maybe$none, $13433); - var $13434 = $13435; + var $13543 = Kind$Check$result$(Maybe$none, $13541); + var $13542 = $13543; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13427), List$nil); + var self = Kind$Check$result$(Maybe$some$($13535), List$nil); switch (self._) { case 'Kind.Check.result': - var $13437 = self.value; - var $13438 = self.errors; - var $13439 = Kind$Check$result$($13437, List$concat$($13433, $13438)); - var $13436 = $13439; + var $13545 = self.value; + var $13546 = self.errors; + var $13547 = Kind$Check$result$($13545, List$concat$($13541, $13546)); + var $13544 = $13547; break; }; - var $13434 = $13436; + var $13542 = $13544; break; }; - var $13431 = $13434; + var $13539 = $13542; break; }; - var $13428 = $13431; + var $13536 = $13539; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -43650,9 +43956,9 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.ori': var _expected$13 = Either$left$("function"); - var _detected$14 = Either$right$($13427); - var $13440 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); - var $13428 = $13440; + var _detected$14 = Either$right$($13535); + var $13548 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); + var $13536 = $13548; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -43662,15 +43968,15 @@ module.exports = (function() { case 'Kind.Term.new': case 'Kind.Term.imp': var _expected$12 = Either$left$("function"); - var _detected$13 = Either$right$($13427); - var $13441 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); - var $13428 = $13441; + var _detected$13 = Either$right$($13535); + var $13549 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); + var $13536 = $13549; break; case 'Kind.Term.typ': var _expected$11 = Either$left$("function"); - var _detected$12 = Either$right$($13427); - var $13442 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); - var $13428 = $13442; + var _detected$12 = Either$right$($13535); + var $13550 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); + var $13536 = $13550; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -43681,84 +43987,84 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': var _expected$14 = Either$left$("function"); - var _detected$15 = Either$right$($13427); - var $13443 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); - var $13428 = $13443; + var _detected$15 = Either$right$($13535); + var $13551 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); + var $13536 = $13551; break; case 'Kind.Term.cse': var _expected$17 = Either$left$("function"); - var _detected$18 = Either$right$($13427); - var $13444 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); - var $13428 = $13444; + var _detected$18 = Either$right$($13535); + var $13552 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); + var $13536 = $13552; break; }; - var $13426 = $13428; + var $13534 = $13536; 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 $13445 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); - var $13426 = $13445; + var $13553 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); + var $13534 = $13553; break; }; - var self = $13426; + var self = $13534; break; case 'Kind.Term.app': - var $13446 = self.func; - var $13447 = self.argm; - var self = Kind$Term$check$($13446, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var $13554 = self.func; + var $13555 = self.argm; + var self = Kind$Term$check$($13554, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13449 = self.value; - var $13450 = self.errors; - var self = $13449; + var $13557 = self.value; + var $13558 = self.errors; + var self = $13557; switch (self._) { case 'Maybe.some': - var $13452 = self.value; - var _func_typ$12 = Kind$Term$reduce$($13452, _defs$3); + var $13560 = self.value; + var _func_typ$12 = Kind$Term$reduce$($13560, _defs$3); var self = _func_typ$12; switch (self._) { case 'Kind.Term.all': - var $13454 = self.xtyp; - var $13455 = self.body; - var _xtyp$18 = Kind$Term$unori$($13454); - var _argm$19 = Kind$Term$unori$($13447); + var $13562 = self.xtyp; + var $13563 = self.body; + var _xtyp$18 = Kind$Term$unori$($13562); + var _argm$19 = Kind$Term$unori$($13555); var self = _xtyp$18; switch (self._) { case 'Kind.Term.imp': - var $13457 = self.expr; + var $13565 = self.expr; var self = _argm$19; switch (self._) { case 'Kind.Term.imp': - var $13459 = self.expr; - var self = Kind$Term$check$($13459, Maybe$some$($13457), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var $13567 = self.expr; + var self = Kind$Term$check$($13567, Maybe$some$($13565), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13461 = self.value; - var $13462 = self.errors; - var self = $13461; + var $13569 = self.value; + var $13570 = self.errors; + var self = $13569; switch (self._) { case 'Maybe.none': - var $13464 = Kind$Check$result$(Maybe$none, $13462); - var $13463 = $13464; + var $13572 = Kind$Check$result$(Maybe$none, $13570); + var $13571 = $13572; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13459)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13567)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13466 = self.value; - var $13467 = self.errors; - var $13468 = Kind$Check$result$($13466, List$concat$($13462, $13467)); - var $13465 = $13468; + var $13574 = self.value; + var $13575 = self.errors; + var $13576 = Kind$Check$result$($13574, List$concat$($13570, $13575)); + var $13573 = $13576; break; }; - var $13463 = $13465; + var $13571 = $13573; break; }; - var $13460 = $13463; + var $13568 = $13571; break; }; - var $13458 = $13460; + var $13566 = $13568; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43782,45 +44088,45 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13469 = Kind$Term$check$patch$(Kind$Term$app$(Kind$Term$app$($13446, Kind$Term$imp$(Kind$Term$hol$(Bits$e))), $13447), _type$2, _path$5); - var $13458 = $13469; + var $13577 = Kind$Term$check$patch$(Kind$Term$app$(Kind$Term$app$($13554, Kind$Term$imp$(Kind$Term$hol$(Bits$e))), $13555), _type$2, _path$5); + var $13566 = $13577; break; }; - var $13456 = $13458; + var $13564 = $13566; break; case 'Kind.Term.var': case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.get': case 'Kind.Term.ori': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13471 = self.value; - var $13472 = self.errors; - var self = $13471; + var $13579 = self.value; + var $13580 = self.errors; + var self = $13579; switch (self._) { case 'Maybe.none': - var $13474 = Kind$Check$result$(Maybe$none, $13472); - var $13473 = $13474; + var $13582 = Kind$Check$result$(Maybe$none, $13580); + var $13581 = $13582; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13476 = self.value; - var $13477 = self.errors; - var $13478 = Kind$Check$result$($13476, List$concat$($13472, $13477)); - var $13475 = $13478; + var $13584 = self.value; + var $13585 = self.errors; + var $13586 = Kind$Check$result$($13584, List$concat$($13580, $13585)); + var $13583 = $13586; break; }; - var $13473 = $13475; + var $13581 = $13583; break; }; - var $13470 = $13473; + var $13578 = $13581; break; }; - var $13456 = $13470; + var $13564 = $13578; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -43828,94 +44134,94 @@ module.exports = (function() { case 'Kind.Term.chr': case 'Kind.Term.str': case 'Kind.Term.new': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13480 = self.value; - var $13481 = self.errors; - var self = $13480; + var $13588 = self.value; + var $13589 = self.errors; + var self = $13588; switch (self._) { case 'Maybe.none': - var $13483 = Kind$Check$result$(Maybe$none, $13481); - var $13482 = $13483; + var $13591 = Kind$Check$result$(Maybe$none, $13589); + var $13590 = $13591; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13485 = self.value; - var $13486 = self.errors; - var $13487 = Kind$Check$result$($13485, List$concat$($13481, $13486)); - var $13484 = $13487; + var $13593 = self.value; + var $13594 = self.errors; + var $13595 = Kind$Check$result$($13593, List$concat$($13589, $13594)); + var $13592 = $13595; break; }; - var $13482 = $13484; + var $13590 = $13592; break; }; - var $13479 = $13482; + var $13587 = $13590; break; }; - var $13456 = $13479; + var $13564 = $13587; break; case 'Kind.Term.typ': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13489 = self.value; - var $13490 = self.errors; - var self = $13489; + var $13597 = self.value; + var $13598 = self.errors; + var self = $13597; switch (self._) { case 'Maybe.none': - var $13492 = Kind$Check$result$(Maybe$none, $13490); - var $13491 = $13492; + var $13600 = Kind$Check$result$(Maybe$none, $13598); + var $13599 = $13600; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13494 = self.value; - var $13495 = self.errors; - var $13496 = Kind$Check$result$($13494, List$concat$($13490, $13495)); - var $13493 = $13496; + var $13602 = self.value; + var $13603 = self.errors; + var $13604 = Kind$Check$result$($13602, List$concat$($13598, $13603)); + var $13601 = $13604; break; }; - var $13491 = $13493; + var $13599 = $13601; break; }; - var $13488 = $13491; + var $13596 = $13599; break; }; - var $13456 = $13488; + var $13564 = $13596; break; case 'Kind.Term.all': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13498 = self.value; - var $13499 = self.errors; - var self = $13498; + var $13606 = self.value; + var $13607 = self.errors; + var self = $13606; switch (self._) { case 'Maybe.none': - var $13501 = Kind$Check$result$(Maybe$none, $13499); - var $13500 = $13501; + var $13609 = Kind$Check$result$(Maybe$none, $13607); + var $13608 = $13609; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13503 = self.value; - var $13504 = self.errors; - var $13505 = Kind$Check$result$($13503, List$concat$($13499, $13504)); - var $13502 = $13505; + var $13611 = self.value; + var $13612 = self.errors; + var $13613 = Kind$Check$result$($13611, List$concat$($13607, $13612)); + var $13610 = $13613; break; }; - var $13500 = $13502; + var $13608 = $13610; break; }; - var $13497 = $13500; + var $13605 = $13608; break; }; - var $13456 = $13497; + var $13564 = $13605; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -43925,67 +44231,67 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13507 = self.value; - var $13508 = self.errors; - var self = $13507; + var $13615 = self.value; + var $13616 = self.errors; + var self = $13615; switch (self._) { case 'Maybe.none': - var $13510 = Kind$Check$result$(Maybe$none, $13508); - var $13509 = $13510; + var $13618 = Kind$Check$result$(Maybe$none, $13616); + var $13617 = $13618; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13512 = self.value; - var $13513 = self.errors; - var $13514 = Kind$Check$result$($13512, List$concat$($13508, $13513)); - var $13511 = $13514; + var $13620 = self.value; + var $13621 = self.errors; + var $13622 = Kind$Check$result$($13620, List$concat$($13616, $13621)); + var $13619 = $13622; break; }; - var $13509 = $13511; + var $13617 = $13619; break; }; - var $13506 = $13509; + var $13614 = $13617; break; }; - var $13456 = $13506; + var $13564 = $13614; break; case 'Kind.Term.cse': - var self = Kind$Term$check$($13447, Maybe$some$($13454), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($13555, Maybe$some$($13562), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13516 = self.value; - var $13517 = self.errors; - var self = $13516; + var $13624 = self.value; + var $13625 = self.errors; + var self = $13624; switch (self._) { case 'Maybe.none': - var $13519 = Kind$Check$result$(Maybe$none, $13517); - var $13518 = $13519; + var $13627 = Kind$Check$result$(Maybe$none, $13625); + var $13626 = $13627; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13455($13446)($13447)), List$nil); + var self = Kind$Check$result$(Maybe$some$($13563($13554)($13555)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13521 = self.value; - var $13522 = self.errors; - var $13523 = Kind$Check$result$($13521, List$concat$($13517, $13522)); - var $13520 = $13523; + var $13629 = self.value; + var $13630 = self.errors; + var $13631 = Kind$Check$result$($13629, List$concat$($13625, $13630)); + var $13628 = $13631; break; }; - var $13518 = $13520; + var $13626 = $13628; break; }; - var $13515 = $13518; + var $13623 = $13626; break; }; - var $13456 = $13515; + var $13564 = $13623; break; }; - var self = $13456; + var self = $13564; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -43994,12 +44300,12 @@ module.exports = (function() { case 'Kind.Term.ori': var _expected$15 = Either$left$("function"); var _detected$16 = Either$right$(_func_typ$12); - var self = $13446; + var self = $13554; switch (self._) { case 'Kind.Term.ori': - var $13525 = self.orig; - var $13526 = Maybe$some$($13525); - var _orig$17 = $13526; + var $13633 = self.orig; + var $13634 = Maybe$some$($13633); + var _orig$17 = $13634; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44023,12 +44329,12 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13527 = _orig$6; - var _orig$17 = $13527; + var $13635 = _orig$6; + var _orig$17 = $13635; break; }; - var $13524 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); - var self = $13524; + var $13632 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); + var self = $13632; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -44039,12 +44345,12 @@ module.exports = (function() { case 'Kind.Term.imp': var _expected$14 = Either$left$("function"); var _detected$15 = Either$right$(_func_typ$12); - var self = $13446; + var self = $13554; switch (self._) { case 'Kind.Term.ori': - var $13529 = self.orig; - var $13530 = Maybe$some$($13529); - var _orig$16 = $13530; + var $13637 = self.orig; + var $13638 = Maybe$some$($13637); + var _orig$16 = $13638; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44068,22 +44374,22 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13531 = _orig$6; - var _orig$16 = $13531; + var $13639 = _orig$6; + var _orig$16 = $13639; break; }; - var $13528 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); - var self = $13528; + var $13636 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); + var self = $13636; break; case 'Kind.Term.typ': var _expected$13 = Either$left$("function"); var _detected$14 = Either$right$(_func_typ$12); - var self = $13446; + var self = $13554; switch (self._) { case 'Kind.Term.ori': - var $13533 = self.orig; - var $13534 = Maybe$some$($13533); - var _orig$15 = $13534; + var $13641 = self.orig; + var $13642 = Maybe$some$($13641); + var _orig$15 = $13642; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44107,12 +44413,12 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13535 = _orig$6; - var _orig$15 = $13535; + var $13643 = _orig$6; + var _orig$15 = $13643; break; }; - var $13532 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); - var self = $13532; + var $13640 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); + var self = $13640; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -44124,12 +44430,12 @@ module.exports = (function() { case 'Kind.Term.ope': var _expected$16 = Either$left$("function"); var _detected$17 = Either$right$(_func_typ$12); - var self = $13446; + var self = $13554; switch (self._) { case 'Kind.Term.ori': - var $13537 = self.orig; - var $13538 = Maybe$some$($13537); - var _orig$18 = $13538; + var $13645 = self.orig; + var $13646 = Maybe$some$($13645); + var _orig$18 = $13646; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44153,22 +44459,22 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13539 = _orig$6; - var _orig$18 = $13539; + var $13647 = _orig$6; + var _orig$18 = $13647; break; }; - var $13536 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); - var self = $13536; + var $13644 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); + var self = $13644; break; case 'Kind.Term.cse': var _expected$19 = Either$left$("function"); var _detected$20 = Either$right$(_func_typ$12); - var self = $13446; + var self = $13554; switch (self._) { case 'Kind.Term.ori': - var $13541 = self.orig; - var $13542 = Maybe$some$($13541); - var _orig$21 = $13542; + var $13649 = self.orig; + var $13650 = Maybe$some$($13649); + var _orig$21 = $13650; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44192,779 +44498,779 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $13543 = _orig$6; - var _orig$21 = $13543; + var $13651 = _orig$6; + var _orig$21 = $13651; break; }; - var $13540 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); - var self = $13540; + var $13648 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); + var self = $13648; break; }; switch (self._) { case 'Kind.Check.result': - var $13544 = self.value; - var $13545 = self.errors; - var $13546 = Kind$Check$result$($13544, List$concat$($13450, $13545)); - var $13453 = $13546; + var $13652 = self.value; + var $13653 = self.errors; + var $13654 = Kind$Check$result$($13652, List$concat$($13558, $13653)); + var $13561 = $13654; break; }; - var $13451 = $13453; + var $13559 = $13561; break; case 'Maybe.none': - var $13547 = Kind$Check$result$(Maybe$none, $13450); - var $13451 = $13547; + var $13655 = Kind$Check$result$(Maybe$none, $13558); + var $13559 = $13655; break; }; - var $13448 = $13451; + var $13556 = $13559; break; }; - var self = $13448; + var self = $13556; break; case 'Kind.Term.let': - var $13548 = self.name; - var $13549 = self.expr; - var $13550 = self.body; + var $13656 = self.name; + var $13657 = self.expr; + var $13658 = self.body; var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($13549, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($13657, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13552 = self.value; - var $13553 = self.errors; - var self = $13552; + var $13660 = self.value; + var $13661 = self.errors; + var self = $13660; switch (self._) { case 'Maybe.some': - var $13555 = self.value; - var _body_val$14 = $13550(Kind$Term$var$($13548, _ctx_size$10)); - var _body_ctx$15 = List$cons$(Pair$new$($13548, $13555), _ctx$4); + var $13663 = self.value; + var _body_val$14 = $13658(Kind$Term$var$($13656, _ctx_size$10)); + var _body_ctx$15 = List$cons$(Pair$new$($13656, $13663), _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 $13557 = self.value; - var $13558 = self.errors; - var self = $13557; - switch (self._) { - case 'Maybe.some': - var $13560 = self.value; - var self = Kind$Check$result$(Maybe$some$($13560), List$nil); - switch (self._) { - case 'Kind.Check.result': - var $13562 = self.value; - var $13563 = self.errors; - var $13564 = Kind$Check$result$($13562, List$concat$($13558, $13563)); - var $13561 = $13564; - break; - }; - var $13559 = $13561; - break; - case 'Maybe.none': - var $13565 = Kind$Check$result$(Maybe$none, $13558); - var $13559 = $13565; - break; - }; - var self = $13559; - break; - }; - switch (self._) { - case 'Kind.Check.result': - var $13566 = self.value; - var $13567 = self.errors; - var $13568 = Kind$Check$result$($13566, List$concat$($13553, $13567)); - var $13556 = $13568; - break; - }; - var $13554 = $13556; - break; - case 'Maybe.none': - var $13569 = Kind$Check$result$(Maybe$none, $13553); - var $13554 = $13569; - break; - }; - var $13551 = $13554; - break; - }; - var self = $13551; - break; - case 'Kind.Term.def': - var $13570 = self.name; - var $13571 = self.expr; - var $13572 = self.body; - var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($13571, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); - switch (self._) { - case 'Kind.Check.result': - var $13574 = self.value; - var $13575 = self.errors; - var self = $13574; - switch (self._) { - case 'Maybe.some': - var $13577 = self.value; - var _body_val$14 = $13572($13571); - var _body_ctx$15 = List$cons$(Pair$new$($13570, $13577), _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 $13579 = self.value; - var $13580 = self.errors; - var self = $13579; - switch (self._) { - case 'Maybe.some': - var $13582 = self.value; - var self = Kind$Check$result$(Maybe$some$($13582), List$nil); - switch (self._) { - case 'Kind.Check.result': - var $13584 = self.value; - var $13585 = self.errors; - var $13586 = Kind$Check$result$($13584, List$concat$($13580, $13585)); - var $13583 = $13586; - break; - }; - var $13581 = $13583; - break; - case 'Maybe.none': - var $13587 = Kind$Check$result$(Maybe$none, $13580); - var $13581 = $13587; - break; - }; - var self = $13581; - break; - }; - switch (self._) { - case 'Kind.Check.result': - var $13588 = self.value; - var $13589 = self.errors; - var $13590 = Kind$Check$result$($13588, List$concat$($13575, $13589)); - var $13578 = $13590; - break; - }; - var $13576 = $13578; - break; - case 'Maybe.none': - var $13591 = Kind$Check$result$(Maybe$none, $13575); - var $13576 = $13591; - break; - }; - var $13573 = $13576; - break; - }; - var self = $13573; - break; - case 'Kind.Term.ann': - var $13592 = self.done; - var $13593 = self.term; - var $13594 = self.type; - var self = $13592; - if (self) { - var $13596 = Kind$Check$result$(Maybe$some$($13594), List$nil); - var $13595 = $13596; - } else { - var self = Kind$Term$check$($13593, Maybe$some$($13594), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); - switch (self._) { - case 'Kind.Check.result': - var $13598 = self.value; - var $13599 = self.errors; - var self = $13598; - switch (self._) { - case 'Maybe.none': - var $13601 = Kind$Check$result$(Maybe$none, $13599); - var $13600 = $13601; - break; - case 'Maybe.some': - var self = Kind$Term$check$($13594, 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 $13603 = self.value; - var $13604 = self.errors; - var self = $13603; - switch (self._) { - case 'Maybe.none': - var $13606 = Kind$Check$result$(Maybe$none, $13604); - var $13605 = $13606; - break; - case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($13594), List$nil); - switch (self._) { - case 'Kind.Check.result': - var $13608 = self.value; - var $13609 = self.errors; - var $13610 = Kind$Check$result$($13608, List$concat$($13604, $13609)); - var $13607 = $13610; - break; - }; - var $13605 = $13607; - break; - }; - var self = $13605; - break; - }; - switch (self._) { - case 'Kind.Check.result': - var $13611 = self.value; - var $13612 = self.errors; - var $13613 = Kind$Check$result$($13611, List$concat$($13599, $13612)); - var $13602 = $13613; - break; - }; - var $13600 = $13602; - break; - }; - var $13597 = $13600; - break; - }; - var $13595 = $13597; - }; - var self = $13595; - break; - case 'Kind.Term.gol': - var $13614 = self.name; - var $13615 = self.dref; - var $13616 = self.verb; - var $13617 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($13614, $13615, $13616, _type$2, _ctx$4), List$nil)); - var self = $13617; - break; - case 'Kind.Term.num': - var $13618 = self.sign; - var $13619 = self.numb; - var $13620 = self.frac; - var _dsug$10 = Kind$Term$check$expand$num$($13618, $13619, $13620, _type$2, _defs$3); - var $13621 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); - var self = $13621; - break; - case 'Kind.Term.cse': - var $13622 = self.expr; - var $13623 = self.name; - var $13624 = self.with; - var $13625 = self.cses; - var $13626 = self.moti; - var _expr$13 = $13622; - 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 $13628 = self.value; - var $13629 = self.errors; - var self = $13628; - switch (self._) { - case 'Maybe.some': - var $13631 = self.value; - var self = Kind$Term$check$infer_types_of_with$($13624, _defs$3, _ctx$4, _path$5, _orig$6); - switch (self._) { - case 'Kind.Check.result': - var $13633 = self.value; - var $13634 = self.errors; - var self = $13633; - switch (self._) { - case 'Maybe.some': - var $13636 = self.value; - var _dsug$20 = Kind$Term$check$expand$cse$($13622, $13623, $13636, $13625, $13626, $13631, _type$2, _defs$3, _ctx$4); - var self = _dsug$20; - switch (self._) { - case 'Maybe.some': - var $13638 = self.value; - var $13639 = Kind$Term$check$patch$($13638, _type$2, _path$5); - var self = $13639; - break; - case 'Maybe.none': - var $13640 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $13640; - break; - }; - switch (self._) { - case 'Kind.Check.result': - var $13641 = self.value; - var $13642 = self.errors; - var $13643 = Kind$Check$result$($13641, List$concat$($13634, $13642)); - var $13637 = $13643; - break; - }; - var $13635 = $13637; - break; - case 'Maybe.none': - var $13644 = Kind$Check$result$(Maybe$none, $13634); - var $13635 = $13644; - break; - }; - var self = $13635; - break; - }; - switch (self._) { - case 'Kind.Check.result': - var $13645 = self.value; - var $13646 = self.errors; - var $13647 = Kind$Check$result$($13645, List$concat$($13629, $13646)); - var $13632 = $13647; - break; - }; - var $13630 = $13632; - break; - case 'Maybe.none': - var $13648 = Kind$Check$result$(Maybe$none, $13629); - var $13630 = $13648; - break; - }; - var $13627 = $13630; - break; - }; - var self = $13627; - break; - case 'Kind.Term.new': - var $13649 = self.args; - var _dsug$8 = Kind$Term$check$expand$new$($13649, _type$2, _defs$3); - var self = _dsug$8; - switch (self._) { - case 'Maybe.some': - var $13651 = self.value; - var $13652 = Kind$Term$check$patch$($13651, _type$2, _path$5); - var $13650 = $13652; - break; - case 'Maybe.none': - var $13653 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var $13650 = $13653; - break; - }; - var self = $13650; - break; - case 'Kind.Term.get': - var $13654 = self.expr; - var $13655 = self.fkey; - var _expr$9 = $13654; - 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 $13657 = self.value; - var $13658 = self.errors; - var self = $13657; - switch (self._) { - case 'Maybe.some': - var $13660 = self.value; - var _dsug$13 = Kind$Term$check$expand$get$($13654, $13655, $13660, _defs$3); - var self = _dsug$13; - switch (self._) { - case 'Maybe.some': - var $13662 = self.value; - var $13663 = Kind$Term$check$patch$($13662, _type$2, _path$5); - var self = $13663; - break; - case 'Maybe.none': - var $13664 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $13664; - break; - }; switch (self._) { case 'Kind.Check.result': var $13665 = self.value; var $13666 = self.errors; - var $13667 = Kind$Check$result$($13665, List$concat$($13658, $13666)); - var $13661 = $13667; + var self = $13665; + switch (self._) { + case 'Maybe.some': + var $13668 = self.value; + var self = Kind$Check$result$(Maybe$some$($13668), List$nil); + switch (self._) { + case 'Kind.Check.result': + var $13670 = self.value; + var $13671 = self.errors; + var $13672 = Kind$Check$result$($13670, List$concat$($13666, $13671)); + var $13669 = $13672; + break; + }; + var $13667 = $13669; + break; + case 'Maybe.none': + var $13673 = Kind$Check$result$(Maybe$none, $13666); + var $13667 = $13673; + break; + }; + var self = $13667; break; }; - var $13659 = $13661; + switch (self._) { + case 'Kind.Check.result': + var $13674 = self.value; + var $13675 = self.errors; + var $13676 = Kind$Check$result$($13674, List$concat$($13661, $13675)); + var $13664 = $13676; + break; + }; + var $13662 = $13664; break; case 'Maybe.none': - var $13668 = Kind$Check$result$(Maybe$none, $13658); - var $13659 = $13668; + var $13677 = Kind$Check$result$(Maybe$none, $13661); + var $13662 = $13677; break; }; - var $13656 = $13659; + var $13659 = $13662; break; }; - var self = $13656; + var self = $13659; + break; + case 'Kind.Term.def': + var $13678 = self.name; + var $13679 = self.expr; + var $13680 = self.body; + var _ctx_size$10 = (list_length(_ctx$4)); + var self = Kind$Term$check$($13679, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + switch (self._) { + case 'Kind.Check.result': + var $13682 = self.value; + var $13683 = self.errors; + var self = $13682; + switch (self._) { + case 'Maybe.some': + var $13685 = self.value; + var _body_val$14 = $13680($13679); + var _body_ctx$15 = List$cons$(Pair$new$($13678, $13685), _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 $13687 = self.value; + var $13688 = self.errors; + var self = $13687; + switch (self._) { + case 'Maybe.some': + var $13690 = self.value; + var self = Kind$Check$result$(Maybe$some$($13690), List$nil); + switch (self._) { + case 'Kind.Check.result': + var $13692 = self.value; + var $13693 = self.errors; + var $13694 = Kind$Check$result$($13692, List$concat$($13688, $13693)); + var $13691 = $13694; + break; + }; + var $13689 = $13691; + break; + case 'Maybe.none': + var $13695 = Kind$Check$result$(Maybe$none, $13688); + var $13689 = $13695; + break; + }; + var self = $13689; + break; + }; + switch (self._) { + case 'Kind.Check.result': + var $13696 = self.value; + var $13697 = self.errors; + var $13698 = Kind$Check$result$($13696, List$concat$($13683, $13697)); + var $13686 = $13698; + break; + }; + var $13684 = $13686; + break; + case 'Maybe.none': + var $13699 = Kind$Check$result$(Maybe$none, $13683); + var $13684 = $13699; + break; + }; + var $13681 = $13684; + break; + }; + var self = $13681; + break; + case 'Kind.Term.ann': + var $13700 = self.done; + var $13701 = self.term; + var $13702 = self.type; + var self = $13700; + if (self) { + var $13704 = Kind$Check$result$(Maybe$some$($13702), List$nil); + var $13703 = $13704; + } else { + var self = Kind$Term$check$($13701, Maybe$some$($13702), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + switch (self._) { + case 'Kind.Check.result': + var $13706 = self.value; + var $13707 = self.errors; + var self = $13706; + switch (self._) { + case 'Maybe.none': + var $13709 = Kind$Check$result$(Maybe$none, $13707); + var $13708 = $13709; + break; + case 'Maybe.some': + var self = Kind$Term$check$($13702, 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 $13711 = self.value; + var $13712 = self.errors; + var self = $13711; + switch (self._) { + case 'Maybe.none': + var $13714 = Kind$Check$result$(Maybe$none, $13712); + var $13713 = $13714; + break; + case 'Maybe.some': + var self = Kind$Check$result$(Maybe$some$($13702), List$nil); + switch (self._) { + case 'Kind.Check.result': + var $13716 = self.value; + var $13717 = self.errors; + var $13718 = Kind$Check$result$($13716, List$concat$($13712, $13717)); + var $13715 = $13718; + break; + }; + var $13713 = $13715; + break; + }; + var self = $13713; + break; + }; + switch (self._) { + case 'Kind.Check.result': + var $13719 = self.value; + var $13720 = self.errors; + var $13721 = Kind$Check$result$($13719, List$concat$($13707, $13720)); + var $13710 = $13721; + break; + }; + var $13708 = $13710; + break; + }; + var $13705 = $13708; + break; + }; + var $13703 = $13705; + }; + var self = $13703; + break; + case 'Kind.Term.gol': + var $13722 = self.name; + var $13723 = self.dref; + var $13724 = self.verb; + var $13725 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($13722, $13723, $13724, _type$2, _ctx$4), List$nil)); + var self = $13725; + break; + case 'Kind.Term.num': + var $13726 = self.sign; + var $13727 = self.numb; + var $13728 = self.frac; + var _dsug$10 = Kind$Term$check$expand$num$($13726, $13727, $13728, _type$2, _defs$3); + var $13729 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); + var self = $13729; + break; + case 'Kind.Term.cse': + var $13730 = self.expr; + var $13731 = self.name; + var $13732 = self.with; + var $13733 = self.cses; + var $13734 = self.moti; + var _expr$13 = $13730; + 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 $13736 = self.value; + var $13737 = self.errors; + var self = $13736; + switch (self._) { + case 'Maybe.some': + var $13739 = self.value; + var self = Kind$Term$check$infer_types_of_with$($13732, _defs$3, _ctx$4, _path$5, _orig$6); + switch (self._) { + case 'Kind.Check.result': + var $13741 = self.value; + var $13742 = self.errors; + var self = $13741; + switch (self._) { + case 'Maybe.some': + var $13744 = self.value; + var _dsug$20 = Kind$Term$check$expand$cse$($13730, $13731, $13744, $13733, $13734, $13739, _type$2, _defs$3, _ctx$4); + var self = _dsug$20; + switch (self._) { + case 'Maybe.some': + var $13746 = self.value; + var $13747 = Kind$Term$check$patch$($13746, _type$2, _path$5); + var self = $13747; + break; + case 'Maybe.none': + var $13748 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13748; + break; + }; + switch (self._) { + case 'Kind.Check.result': + var $13749 = self.value; + var $13750 = self.errors; + var $13751 = Kind$Check$result$($13749, List$concat$($13742, $13750)); + var $13745 = $13751; + break; + }; + var $13743 = $13745; + break; + case 'Maybe.none': + var $13752 = Kind$Check$result$(Maybe$none, $13742); + var $13743 = $13752; + break; + }; + var self = $13743; + break; + }; + switch (self._) { + case 'Kind.Check.result': + var $13753 = self.value; + var $13754 = self.errors; + var $13755 = Kind$Check$result$($13753, List$concat$($13737, $13754)); + var $13740 = $13755; + break; + }; + var $13738 = $13740; + break; + case 'Maybe.none': + var $13756 = Kind$Check$result$(Maybe$none, $13737); + var $13738 = $13756; + break; + }; + var $13735 = $13738; + break; + }; + var self = $13735; + break; + case 'Kind.Term.new': + var $13757 = self.args; + var _dsug$8 = Kind$Term$check$expand$new$($13757, _type$2, _defs$3); + var self = _dsug$8; + switch (self._) { + case 'Maybe.some': + var $13759 = self.value; + var $13760 = Kind$Term$check$patch$($13759, _type$2, _path$5); + var $13758 = $13760; + break; + case 'Maybe.none': + var $13761 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var $13758 = $13761; + break; + }; + var self = $13758; + break; + case 'Kind.Term.get': + var $13762 = self.expr; + var $13763 = self.fkey; + var _expr$9 = $13762; + 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 $13765 = self.value; + var $13766 = self.errors; + var self = $13765; + switch (self._) { + case 'Maybe.some': + var $13768 = self.value; + var _dsug$13 = Kind$Term$check$expand$get$($13762, $13763, $13768, _defs$3); + var self = _dsug$13; + switch (self._) { + case 'Maybe.some': + var $13770 = self.value; + var $13771 = Kind$Term$check$patch$($13770, _type$2, _path$5); + var self = $13771; + break; + case 'Maybe.none': + var $13772 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13772; + break; + }; + switch (self._) { + case 'Kind.Check.result': + var $13773 = self.value; + var $13774 = self.errors; + var $13775 = Kind$Check$result$($13773, List$concat$($13766, $13774)); + var $13769 = $13775; + break; + }; + var $13767 = $13769; + break; + case 'Maybe.none': + var $13776 = Kind$Check$result$(Maybe$none, $13766); + var $13767 = $13776; + break; + }; + var $13764 = $13767; + break; + }; + var self = $13764; break; case 'Kind.Term.set': - var $13669 = self.expr; - var $13670 = self.fkey; - var $13671 = self.fval; - var _expr$10 = $13669; + var $13777 = self.expr; + var $13778 = self.fkey; + var $13779 = self.fval; + var _expr$10 = $13777; 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 $13673 = self.value; - var $13674 = self.errors; - var self = $13673; + var $13781 = self.value; + var $13782 = self.errors; + var self = $13781; switch (self._) { case 'Maybe.some': - var $13676 = self.value; - var _dsug$14 = Kind$Term$check$expand$mut$($13669, $13670, (_x$14 => { - var $13678 = $13671; - return $13678; - }), $13676, _defs$3); + var $13784 = self.value; + var _dsug$14 = Kind$Term$check$expand$mut$($13777, $13778, (_x$14 => { + var $13786 = $13779; + return $13786; + }), $13784, _defs$3); var self = _dsug$14; switch (self._) { case 'Maybe.some': - var $13679 = self.value; - var $13680 = Kind$Term$check$patch$($13679, _type$2, _path$5); - var self = $13680; + var $13787 = self.value; + var $13788 = Kind$Term$check$patch$($13787, _type$2, _path$5); + var self = $13788; break; case 'Maybe.none': - var $13681 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $13681; + var $13789 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13789; break; }; switch (self._) { case 'Kind.Check.result': - var $13682 = self.value; - var $13683 = self.errors; - var $13684 = Kind$Check$result$($13682, List$concat$($13674, $13683)); - var $13677 = $13684; + var $13790 = self.value; + var $13791 = self.errors; + var $13792 = Kind$Check$result$($13790, List$concat$($13782, $13791)); + var $13785 = $13792; break; }; - var $13675 = $13677; + var $13783 = $13785; break; case 'Maybe.none': - var $13685 = Kind$Check$result$(Maybe$none, $13674); - var $13675 = $13685; + var $13793 = Kind$Check$result$(Maybe$none, $13782); + var $13783 = $13793; break; }; - var $13672 = $13675; + var $13780 = $13783; break; }; - var self = $13672; + var self = $13780; break; case 'Kind.Term.mut': - var $13686 = self.expr; - var $13687 = self.fkey; - var $13688 = self.ffun; - var _expr$10 = $13686; + var $13794 = self.expr; + var $13795 = self.fkey; + var $13796 = self.ffun; + var _expr$10 = $13794; 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 $13690 = self.value; - var $13691 = self.errors; - var self = $13690; + var $13798 = self.value; + var $13799 = self.errors; + var self = $13798; switch (self._) { case 'Maybe.some': - var $13693 = self.value; - var _dsug$14 = Kind$Term$check$expand$mut$($13686, $13687, Kind$Term$app($13688), $13693, _defs$3); + var $13801 = self.value; + var _dsug$14 = Kind$Term$check$expand$mut$($13794, $13795, Kind$Term$app($13796), $13801, _defs$3); var self = _dsug$14; switch (self._) { case 'Maybe.some': - var $13695 = self.value; - var $13696 = Kind$Term$check$patch$($13695, _type$2, _path$5); - var self = $13696; + var $13803 = self.value; + var $13804 = Kind$Term$check$patch$($13803, _type$2, _path$5); + var self = $13804; break; case 'Maybe.none': - var $13697 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $13697; + var $13805 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13805; break; }; switch (self._) { case 'Kind.Check.result': - var $13698 = self.value; - var $13699 = self.errors; - var $13700 = Kind$Check$result$($13698, List$concat$($13691, $13699)); - var $13694 = $13700; + var $13806 = self.value; + var $13807 = self.errors; + var $13808 = Kind$Check$result$($13806, List$concat$($13799, $13807)); + var $13802 = $13808; break; }; - var $13692 = $13694; + var $13800 = $13802; break; case 'Maybe.none': - var $13701 = Kind$Check$result$(Maybe$none, $13691); - var $13692 = $13701; + var $13809 = Kind$Check$result$(Maybe$none, $13799); + var $13800 = $13809; break; }; - var $13689 = $13692; + var $13797 = $13800; break; }; - var self = $13689; + var self = $13797; break; case 'Kind.Term.ope': - var $13702 = self.name; - var $13703 = self.arg0; - var $13704 = self.arg1; + var $13810 = self.name; + var $13811 = self.arg0; + var $13812 = self.arg1; var _otyp$10 = Maybe$default$(_type$2, Kind$Term$hol$(Bits$e)); - var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $13702, $13703, $13704, _otyp$10, _defs$3); + var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $13810, $13811, $13812, _otyp$10, _defs$3); var self = _dsug$11; switch (self._) { case 'Maybe.some': - var $13706 = self.value; - var $13707 = Kind$Term$check$patch$($13706, _type$2, _path$5); - var $13705 = $13707; + var $13814 = self.value; + var $13815 = Kind$Term$check$patch$($13814, _type$2, _path$5); + var $13813 = $13815; break; case 'Maybe.none': - var self = Kind$Term$check$($13703, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($13811, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $13709 = self.value; - var $13710 = self.errors; - var self = $13709; + var $13817 = self.value; + var $13818 = self.errors; + var self = $13817; switch (self._) { case 'Maybe.some': - var $13712 = self.value; - var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $13702, $13703, $13704, $13712, _defs$3); + var $13820 = self.value; + var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $13810, $13811, $13812, $13820, _defs$3); var self = _dsug$15; switch (self._) { case 'Maybe.some': - var $13714 = self.value; - var $13715 = Kind$Term$check$patch$($13714, _type$2, _path$5); - var self = $13715; + var $13822 = self.value; + var $13823 = Kind$Term$check$patch$($13822, _type$2, _path$5); + var self = $13823; break; case 'Maybe.none': - var $13716 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $13716; + var $13824 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13824; break; }; switch (self._) { case 'Kind.Check.result': - var $13717 = self.value; - var $13718 = self.errors; - var $13719 = Kind$Check$result$($13717, List$concat$($13710, $13718)); - var $13713 = $13719; + var $13825 = self.value; + var $13826 = self.errors; + var $13827 = Kind$Check$result$($13825, List$concat$($13818, $13826)); + var $13821 = $13827; break; }; - var $13711 = $13713; + var $13819 = $13821; break; case 'Maybe.none': - var $13720 = Kind$Check$result$(Maybe$none, $13710); - var $13711 = $13720; + var $13828 = Kind$Check$result$(Maybe$none, $13818); + var $13819 = $13828; break; }; - var $13708 = $13711; + var $13816 = $13819; break; }; - var $13705 = $13708; + var $13813 = $13816; break; }; - var self = $13705; + var self = $13813; break; case 'Kind.Term.imp': - var $13721 = self.expr; - var $13722 = Kind$Term$check$($13721, _type$2, _defs$3, _ctx$4, _path$5, _orig$6); - var self = $13722; + var $13829 = self.expr; + var $13830 = Kind$Term$check$($13829, _type$2, _defs$3, _ctx$4, _path$5, _orig$6); + var self = $13830; break; case 'Kind.Term.ori': - var $13723 = self.orig; - var $13724 = self.expr; - var $13725 = Kind$Term$check$($13724, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($13723)); - var self = $13725; + var $13831 = self.orig; + var $13832 = self.expr; + var $13833 = Kind$Term$check$($13832, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($13831)); + var self = $13833; break; case 'Kind.Term.typ': - var $13726 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); - var self = $13726; + var $13834 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); + var self = $13834; break; case 'Kind.Term.hol': - var $13727 = Kind$Check$result$(_type$2, List$nil); - var self = $13727; + var $13835 = Kind$Check$result$(_type$2, List$nil); + var self = $13835; break; case 'Kind.Term.nat': var self = _type$2; switch (self._) { case 'Maybe.some': - var $13729 = self.value; - var _tnam$9 = Kind$Term$check$get_name_of_self_type$($13729, _defs$3); + var $13837 = self.value; + var _tnam$9 = Kind$Term$check$get_name_of_self_type$($13837, _defs$3); var self = _tnam$9; switch (self._) { case 'Maybe.some': - var $13731 = self.value; - var self = ($13731 === "Nat"); + var $13839 = self.value; + var self = ($13839 === "Nat"); if (self) { - var $13733 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $13732 = $13733; + var $13841 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13840 = $13841; } else { - var _cast$11 = Kind$Term$ref$(($13731 + ".from_nat")); + var _cast$11 = Kind$Term$ref$(($13839 + ".from_nat")); var _cast$12 = Kind$Term$app$(_cast$11, _term$1); - var $13734 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); - var $13732 = $13734; + var $13842 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); + var $13840 = $13842; }; - var $13730 = $13732; + var $13838 = $13840; break; case 'Maybe.none': - var $13735 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $13730 = $13735; + var $13843 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13838 = $13843; break; }; - var $13728 = $13730; + var $13836 = $13838; break; case 'Maybe.none': - var $13736 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $13728 = $13736; + var $13844 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13836 = $13844; break; }; - var self = $13728; + var self = $13836; 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 $13738 = self.value; - var $13739 = self.errors; - var self = $13738; + var $13846 = self.value; + var $13847 = self.errors; + var self = $13846; switch (self._) { case 'Maybe.none': - var $13741 = Kind$Check$result$(Maybe$none, $13739); - var $13740 = $13741; + var $13849 = Kind$Check$result$(Maybe$none, $13847); + var $13848 = $13849; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13743 = self.value; - var $13744 = self.errors; - var self = $13743; + var $13851 = self.value; + var $13852 = self.errors; + var self = $13851; switch (self._) { case 'Maybe.none': - var $13746 = Kind$Check$result$(Maybe$none, $13744); - var $13745 = $13746; + var $13854 = Kind$Check$result$(Maybe$none, $13852); + var $13853 = $13854; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("Char"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13748 = self.value; - var $13749 = self.errors; - var $13750 = Kind$Check$result$($13748, List$concat$($13744, $13749)); - var $13747 = $13750; + var $13856 = self.value; + var $13857 = self.errors; + var $13858 = Kind$Check$result$($13856, List$concat$($13852, $13857)); + var $13855 = $13858; break; }; - var $13745 = $13747; + var $13853 = $13855; break; }; - var self = $13745; + var self = $13853; break; }; switch (self._) { case 'Kind.Check.result': - var $13751 = self.value; - var $13752 = self.errors; - var $13753 = Kind$Check$result$($13751, List$concat$($13739, $13752)); - var $13742 = $13753; + var $13859 = self.value; + var $13860 = self.errors; + var $13861 = Kind$Check$result$($13859, List$concat$($13847, $13860)); + var $13850 = $13861; break; }; - var $13740 = $13742; + var $13848 = $13850; break; }; - var $13737 = $13740; + var $13845 = $13848; break; }; - var self = $13737; + var self = $13845; 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 $13755 = self.value; - var $13756 = self.errors; - var self = $13755; + var $13863 = self.value; + var $13864 = self.errors; + var self = $13863; switch (self._) { case 'Maybe.none': - var $13758 = Kind$Check$result$(Maybe$none, $13756); - var $13757 = $13758; + var $13866 = Kind$Check$result$(Maybe$none, $13864); + var $13865 = $13866; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13760 = self.value; - var $13761 = self.errors; - var self = $13760; + var $13868 = self.value; + var $13869 = self.errors; + var self = $13868; switch (self._) { case 'Maybe.none': - var $13763 = Kind$Check$result$(Maybe$none, $13761); - var $13762 = $13763; + var $13871 = Kind$Check$result$(Maybe$none, $13869); + var $13870 = $13871; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("String"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13765 = self.value; - var $13766 = self.errors; - var $13767 = Kind$Check$result$($13765, List$concat$($13761, $13766)); - var $13764 = $13767; + var $13873 = self.value; + var $13874 = self.errors; + var $13875 = Kind$Check$result$($13873, List$concat$($13869, $13874)); + var $13872 = $13875; break; }; - var $13762 = $13764; + var $13870 = $13872; break; }; - var self = $13762; + var self = $13870; break; }; switch (self._) { case 'Kind.Check.result': - var $13768 = self.value; - var $13769 = self.errors; - var $13770 = Kind$Check$result$($13768, List$concat$($13756, $13769)); - var $13759 = $13770; + var $13876 = self.value; + var $13877 = self.errors; + var $13878 = Kind$Check$result$($13876, List$concat$($13864, $13877)); + var $13867 = $13878; break; }; - var $13757 = $13759; + var $13865 = $13867; break; }; - var $13754 = $13757; + var $13862 = $13865; break; }; - var self = $13754; + var self = $13862; break; }; switch (self._) { case 'Kind.Check.result': - var $13771 = self.value; - var $13772 = self.errors; - var self = $13771; + var $13879 = self.value; + var $13880 = self.errors; + var self = $13879; switch (self._) { case 'Maybe.some': - var $13774 = self.value; + var $13882 = self.value; var self = _type$2; switch (self._) { case 'Maybe.some': - var $13776 = self.value; - var self = Kind$Term$equal$go$($13776, $13774, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); + var $13884 = self.value; + var self = Kind$Term$equal$go$($13884, $13882, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); switch (self._) { case 'Kind.Check.result': - var $13778 = self.value; - var $13779 = self.errors; - var self = $13778; + var $13886 = self.value; + var $13887 = self.errors; + var self = $13886; switch (self._) { case 'Maybe.some': - var $13781 = self.value; - var self = $13781; + var $13889 = self.value; + var self = $13889; if (self) { - var $13783 = Kind$Check$result$(Maybe$some$($13776), List$nil); - var self = $13783; + var $13891 = Kind$Check$result$(Maybe$some$($13884), List$nil); + var self = $13891; } else { - var $13784 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($13776), Either$right$($13774), _ctx$4), List$nil)); - var self = $13784; + var $13892 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($13884), Either$right$($13882), _ctx$4), List$nil)); + var self = $13892; }; switch (self._) { case 'Kind.Check.result': - var $13785 = self.value; - var $13786 = self.errors; - var $13787 = Kind$Check$result$($13785, List$concat$($13779, $13786)); - var $13782 = $13787; + var $13893 = self.value; + var $13894 = self.errors; + var $13895 = Kind$Check$result$($13893, List$concat$($13887, $13894)); + var $13890 = $13895; break; }; - var $13780 = $13782; + var $13888 = $13890; break; case 'Maybe.none': - var $13788 = Kind$Check$result$(Maybe$none, $13779); - var $13780 = $13788; + var $13896 = Kind$Check$result$(Maybe$none, $13887); + var $13888 = $13896; break; }; - var $13777 = $13780; + var $13885 = $13888; break; }; - var self = $13777; + var self = $13885; break; case 'Maybe.none': - var $13789 = Kind$Check$result$(Maybe$some$($13774), List$nil); - var self = $13789; + var $13897 = Kind$Check$result$(Maybe$some$($13882), List$nil); + var self = $13897; break; }; switch (self._) { case 'Kind.Check.result': - var $13790 = self.value; - var $13791 = self.errors; - var $13792 = Kind$Check$result$($13790, List$concat$($13772, $13791)); - var $13775 = $13792; + var $13898 = self.value; + var $13899 = self.errors; + var $13900 = Kind$Check$result$($13898, List$concat$($13880, $13899)); + var $13883 = $13900; break; }; - var $13773 = $13775; + var $13881 = $13883; break; case 'Maybe.none': - var $13793 = Kind$Check$result$(Maybe$none, $13772); - var $13773 = $13793; + var $13901 = Kind$Check$result$(Maybe$none, $13880); + var $13881 = $13901; break; }; - var $13381 = $13773; + var $13489 = $13881; break; }; - return $13381; + return $13489; }; const Kind$Term$check = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$(x0, x1, x2, x3, x4, x5); @@ -44972,45 +45278,45 @@ module.exports = (function() { var self = _path$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13795 = self.slice(0, -1); + var $13903 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $13797 = self.head; - var $13798 = self.tail; - var $13799 = List$cons$(_cont$4($13795)($13797), $13798); - var $13796 = $13799; + var $13905 = self.head; + var $13906 = self.tail; + var $13907 = List$cons$(_cont$4($13903)($13905), $13906); + var $13904 = $13907; break; case 'List.nil': - var $13800 = List$nil; - var $13796 = $13800; + var $13908 = List$nil; + var $13904 = $13908; break; }; - var $13794 = $13796; + var $13902 = $13904; break; case 'i': - var $13801 = self.slice(0, -1); + var $13909 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $13803 = self.head; - var $13804 = self.tail; - var $13805 = List$cons$($13803, Kind$Path$patch_at$list$($13801, $13804, _cont$4)); - var $13802 = $13805; + var $13911 = self.head; + var $13912 = self.tail; + var $13913 = List$cons$($13911, Kind$Path$patch_at$list$($13909, $13912, _cont$4)); + var $13910 = $13913; break; case 'List.nil': - var $13806 = List$nil; - var $13802 = $13806; + var $13914 = List$nil; + var $13910 = $13914; break; }; - var $13794 = $13802; + var $13902 = $13910; break; case 'e': - var $13807 = List$nil; - var $13794 = $13807; + var $13915 = List$nil; + var $13902 = $13915; break; }; - return $13794; + return $13902; }; const Kind$Path$patch_at$list = x0 => x1 => x2 => Kind$Path$patch_at$list$(x0, x1, x2); @@ -45018,310 +45324,310 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Term.all': - var $13809 = self.eras; - var $13810 = self.self; - var $13811 = self.name; - var $13812 = self.xtyp; - var $13813 = self.body; + var $13917 = self.eras; + var $13918 = self.self; + var $13919 = self.name; + var $13920 = self.xtyp; + var $13921 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13815 = self.slice(0, -1); - var $13816 = Kind$Term$all$($13809, $13810, $13811, Kind$Term$patch_at$($13815, $13812, _fn$3), $13813); - var $13814 = $13816; + var $13923 = self.slice(0, -1); + var $13924 = Kind$Term$all$($13917, $13918, $13919, Kind$Term$patch_at$($13923, $13920, _fn$3), $13921); + var $13922 = $13924; break; case 'i': - var $13817 = self.slice(0, -1); - var $13818 = Kind$Term$all$($13809, $13810, $13811, $13812, (_s$10 => _x$11 => { - var $13819 = Kind$Term$patch_at$($13817, $13813(_s$10)(_x$11), _fn$3); - return $13819; + var $13925 = self.slice(0, -1); + var $13926 = Kind$Term$all$($13917, $13918, $13919, $13920, (_s$10 => _x$11 => { + var $13927 = Kind$Term$patch_at$($13925, $13921(_s$10)(_x$11), _fn$3); + return $13927; })); - var $13814 = $13818; + var $13922 = $13926; break; case 'e': - var $13820 = _fn$3(_term$2); - var $13814 = $13820; + var $13928 = _fn$3(_term$2); + var $13922 = $13928; break; }; - var $13808 = $13814; + var $13916 = $13922; break; case 'Kind.Term.lam': - var $13821 = self.name; - var $13822 = self.body; + var $13929 = self.name; + var $13930 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13824 = _fn$3(_term$2); - var $13823 = $13824; + var $13932 = _fn$3(_term$2); + var $13931 = $13932; break; case 'o': case 'i': - var $13825 = Kind$Term$lam$($13821, (_x$7 => { - var $13826 = Kind$Term$patch_at$(Bits$tail$(_path$1), $13822(_x$7), _fn$3); - return $13826; + var $13933 = Kind$Term$lam$($13929, (_x$7 => { + var $13934 = Kind$Term$patch_at$(Bits$tail$(_path$1), $13930(_x$7), _fn$3); + return $13934; })); - var $13823 = $13825; + var $13931 = $13933; break; }; - var $13808 = $13823; + var $13916 = $13931; break; case 'Kind.Term.app': - var $13827 = self.func; - var $13828 = self.argm; + var $13935 = self.func; + var $13936 = self.argm; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13830 = self.slice(0, -1); - var $13831 = Kind$Term$app$(Kind$Term$patch_at$($13830, $13827, _fn$3), $13828); - var $13829 = $13831; + var $13938 = self.slice(0, -1); + var $13939 = Kind$Term$app$(Kind$Term$patch_at$($13938, $13935, _fn$3), $13936); + var $13937 = $13939; break; case 'i': - var $13832 = self.slice(0, -1); - var $13833 = Kind$Term$app$($13827, Kind$Term$patch_at$($13832, $13828, _fn$3)); - var $13829 = $13833; + var $13940 = self.slice(0, -1); + var $13941 = Kind$Term$app$($13935, Kind$Term$patch_at$($13940, $13936, _fn$3)); + var $13937 = $13941; break; case 'e': - var $13834 = _fn$3(_term$2); - var $13829 = $13834; + var $13942 = _fn$3(_term$2); + var $13937 = $13942; break; }; - var $13808 = $13829; + var $13916 = $13937; break; case 'Kind.Term.let': - var $13835 = self.name; - var $13836 = self.expr; - var $13837 = self.body; + var $13943 = self.name; + var $13944 = self.expr; + var $13945 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13839 = self.slice(0, -1); - var $13840 = Kind$Term$let$($13835, Kind$Term$patch_at$($13839, $13836, _fn$3), $13837); - var $13838 = $13840; + var $13947 = self.slice(0, -1); + var $13948 = Kind$Term$let$($13943, Kind$Term$patch_at$($13947, $13944, _fn$3), $13945); + var $13946 = $13948; break; case 'i': - var $13841 = self.slice(0, -1); - var $13842 = Kind$Term$let$($13835, $13836, (_x$8 => { - var $13843 = Kind$Term$patch_at$($13841, $13837(_x$8), _fn$3); - return $13843; + var $13949 = self.slice(0, -1); + var $13950 = Kind$Term$let$($13943, $13944, (_x$8 => { + var $13951 = Kind$Term$patch_at$($13949, $13945(_x$8), _fn$3); + return $13951; })); - var $13838 = $13842; + var $13946 = $13950; break; case 'e': - var $13844 = _fn$3(_term$2); - var $13838 = $13844; + var $13952 = _fn$3(_term$2); + var $13946 = $13952; break; }; - var $13808 = $13838; + var $13916 = $13946; break; case 'Kind.Term.def': - var $13845 = self.name; - var $13846 = self.expr; - var $13847 = self.body; + var $13953 = self.name; + var $13954 = self.expr; + var $13955 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13849 = self.slice(0, -1); - var $13850 = Kind$Term$def$($13845, Kind$Term$patch_at$($13849, $13846, _fn$3), $13847); - var $13848 = $13850; + var $13957 = self.slice(0, -1); + var $13958 = Kind$Term$def$($13953, Kind$Term$patch_at$($13957, $13954, _fn$3), $13955); + var $13956 = $13958; break; case 'i': - var $13851 = self.slice(0, -1); - var $13852 = Kind$Term$def$($13845, $13846, (_x$8 => { - var $13853 = Kind$Term$patch_at$($13851, $13847(_x$8), _fn$3); - return $13853; + var $13959 = self.slice(0, -1); + var $13960 = Kind$Term$def$($13953, $13954, (_x$8 => { + var $13961 = Kind$Term$patch_at$($13959, $13955(_x$8), _fn$3); + return $13961; })); - var $13848 = $13852; + var $13956 = $13960; break; case 'e': - var $13854 = _fn$3(_term$2); - var $13848 = $13854; + var $13962 = _fn$3(_term$2); + var $13956 = $13962; break; }; - var $13808 = $13848; + var $13916 = $13956; break; case 'Kind.Term.ann': - var $13855 = self.done; - var $13856 = self.term; - var $13857 = self.type; + var $13963 = self.done; + var $13964 = self.term; + var $13965 = self.type; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13859 = self.slice(0, -1); - var $13860 = Kind$Term$ann$($13855, Kind$Term$patch_at$($13859, $13856, _fn$3), $13857); - var $13858 = $13860; + var $13967 = self.slice(0, -1); + var $13968 = Kind$Term$ann$($13963, Kind$Term$patch_at$($13967, $13964, _fn$3), $13965); + var $13966 = $13968; break; case 'i': - var $13861 = self.slice(0, -1); - var $13862 = Kind$Term$ann$($13855, $13856, Kind$Term$patch_at$($13861, $13857, _fn$3)); - var $13858 = $13862; + var $13969 = self.slice(0, -1); + var $13970 = Kind$Term$ann$($13963, $13964, Kind$Term$patch_at$($13969, $13965, _fn$3)); + var $13966 = $13970; break; case 'e': - var $13863 = _fn$3(_term$2); - var $13858 = $13863; + var $13971 = _fn$3(_term$2); + var $13966 = $13971; break; }; - var $13808 = $13858; + var $13916 = $13966; break; case 'Kind.Term.cse': - var $13864 = self.path; - var $13865 = self.expr; - var $13866 = self.name; - var $13867 = self.with; - var $13868 = self.cses; - var $13869 = self.moti; + var $13972 = self.path; + var $13973 = self.expr; + var $13974 = self.name; + var $13975 = self.with; + var $13976 = self.cses; + var $13977 = self.moti; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13871 = self.slice(0, -1); - var $13872 = Kind$Term$cse$($13864, Kind$Term$patch_at$($13871, $13865, _fn$3), $13866, $13867, $13868, $13869); - var $13870 = $13872; + var $13979 = self.slice(0, -1); + var $13980 = Kind$Term$cse$($13972, Kind$Term$patch_at$($13979, $13973, _fn$3), $13974, $13975, $13976, $13977); + var $13978 = $13980; break; case 'e': - var $13873 = _fn$3(_term$2); - var $13870 = $13873; + var $13981 = _fn$3(_term$2); + var $13978 = $13981; break; case 'i': - var $13874 = _term$2; - var $13870 = $13874; + var $13982 = _term$2; + var $13978 = $13982; break; }; - var $13808 = $13870; + var $13916 = $13978; break; case 'Kind.Term.new': - var $13875 = self.args; + var $13983 = self.args; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13877 = _fn$3(_term$2); - var $13876 = $13877; + var $13985 = _fn$3(_term$2); + var $13984 = $13985; break; case 'o': case 'i': - var $13878 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $13875, (_arg_path$6 => _arg$7 => { - var $13879 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); - return $13879; + var $13986 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $13983, (_arg_path$6 => _arg$7 => { + var $13987 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); + return $13987; }))); - var $13876 = $13878; + var $13984 = $13986; break; }; - var $13808 = $13876; + var $13916 = $13984; break; case 'Kind.Term.get': - var $13880 = self.expr; - var $13881 = self.fkey; + var $13988 = self.expr; + var $13989 = self.fkey; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13883 = self.slice(0, -1); - var $13884 = Kind$Term$get$(Kind$Term$patch_at$($13883, $13880, _fn$3), $13881); - var $13882 = $13884; + var $13991 = self.slice(0, -1); + var $13992 = Kind$Term$get$(Kind$Term$patch_at$($13991, $13988, _fn$3), $13989); + var $13990 = $13992; break; case 'i': - var $13885 = self.slice(0, -1); - var $13886 = Kind$Term$get$(Kind$Term$patch_at$($13885, $13880, _fn$3), $13881); - var $13882 = $13886; + var $13993 = self.slice(0, -1); + var $13994 = Kind$Term$get$(Kind$Term$patch_at$($13993, $13988, _fn$3), $13989); + var $13990 = $13994; break; case 'e': - var $13887 = _fn$3(_term$2); - var $13882 = $13887; + var $13995 = _fn$3(_term$2); + var $13990 = $13995; break; }; - var $13808 = $13882; + var $13916 = $13990; break; case 'Kind.Term.set': - var $13888 = self.expr; - var $13889 = self.fkey; - var $13890 = self.fval; + var $13996 = self.expr; + var $13997 = self.fkey; + var $13998 = self.fval; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13892 = self.slice(0, -1); - var $13893 = Kind$Term$set$(Kind$Term$patch_at$($13892, $13888, _fn$3), $13889, $13890); - var $13891 = $13893; + var $14000 = self.slice(0, -1); + var $14001 = Kind$Term$set$(Kind$Term$patch_at$($14000, $13996, _fn$3), $13997, $13998); + var $13999 = $14001; break; case 'i': - var $13894 = self.slice(0, -1); - var $13895 = Kind$Term$set$($13888, $13889, Kind$Term$patch_at$($13894, $13890, _fn$3)); - var $13891 = $13895; + var $14002 = self.slice(0, -1); + var $14003 = Kind$Term$set$($13996, $13997, Kind$Term$patch_at$($14002, $13998, _fn$3)); + var $13999 = $14003; break; case 'e': - var $13896 = _fn$3(_term$2); - var $13891 = $13896; + var $14004 = _fn$3(_term$2); + var $13999 = $14004; break; }; - var $13808 = $13891; + var $13916 = $13999; break; case 'Kind.Term.mut': - var $13897 = self.expr; - var $13898 = self.fkey; - var $13899 = self.ffun; + var $14005 = self.expr; + var $14006 = self.fkey; + var $14007 = self.ffun; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13901 = self.slice(0, -1); - var $13902 = Kind$Term$mut$(Kind$Term$patch_at$($13901, $13897, _fn$3), $13898, $13899); - var $13900 = $13902; + var $14009 = self.slice(0, -1); + var $14010 = Kind$Term$mut$(Kind$Term$patch_at$($14009, $14005, _fn$3), $14006, $14007); + var $14008 = $14010; break; case 'i': - var $13903 = self.slice(0, -1); - var $13904 = Kind$Term$mut$($13897, $13898, Kind$Term$patch_at$($13903, $13899, _fn$3)); - var $13900 = $13904; + var $14011 = self.slice(0, -1); + var $14012 = Kind$Term$mut$($14005, $14006, Kind$Term$patch_at$($14011, $14007, _fn$3)); + var $14008 = $14012; break; case 'e': - var $13905 = _fn$3(_term$2); - var $13900 = $13905; + var $14013 = _fn$3(_term$2); + var $14008 = $14013; break; }; - var $13808 = $13900; + var $13916 = $14008; break; case 'Kind.Term.ope': - var $13906 = self.name; - var $13907 = self.arg0; - var $13908 = self.arg1; + var $14014 = self.name; + var $14015 = self.arg0; + var $14016 = self.arg1; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13910 = self.slice(0, -1); - var $13911 = Kind$Term$ope$($13906, Kind$Term$patch_at$($13910, $13907, _fn$3), $13908); - var $13909 = $13911; + var $14018 = self.slice(0, -1); + var $14019 = Kind$Term$ope$($14014, Kind$Term$patch_at$($14018, $14015, _fn$3), $14016); + var $14017 = $14019; break; case 'i': - var $13912 = self.slice(0, -1); - var $13913 = Kind$Term$ope$($13906, $13907, Kind$Term$patch_at$($13912, $13908, _fn$3)); - var $13909 = $13913; + var $14020 = self.slice(0, -1); + var $14021 = Kind$Term$ope$($14014, $14015, Kind$Term$patch_at$($14020, $14016, _fn$3)); + var $14017 = $14021; break; case 'e': - var $13914 = _fn$3(_term$2); - var $13909 = $13914; + var $14022 = _fn$3(_term$2); + var $14017 = $14022; break; }; - var $13808 = $13909; + var $13916 = $14017; break; case 'Kind.Term.imp': - var $13915 = self.expr; - var $13916 = Kind$Term$imp$(Kind$Term$patch_at$(_path$1, $13915, _fn$3)); - var $13808 = $13916; + var $14023 = self.expr; + var $14024 = Kind$Term$imp$(Kind$Term$patch_at$(_path$1, $14023, _fn$3)); + var $13916 = $14024; break; case 'Kind.Term.ori': - var $13917 = self.orig; - var $13918 = self.expr; - var $13919 = Kind$Term$ori$($13917, Kind$Term$patch_at$(_path$1, $13918, _fn$3)); - var $13808 = $13919; + var $14025 = self.orig; + var $14026 = self.expr; + var $14027 = Kind$Term$ori$($14025, Kind$Term$patch_at$(_path$1, $14026, _fn$3)); + var $13916 = $14027; break; case 'Kind.Term.var': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13921 = _fn$3(_term$2); - var $13920 = $13921; + var $14029 = _fn$3(_term$2); + var $14028 = $14029; break; case 'o': case 'i': - var $13922 = _term$2; - var $13920 = $13922; + var $14030 = _term$2; + var $14028 = $14030; break; }; - var $13808 = $13920; + var $13916 = $14028; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -45331,50 +45637,50 @@ module.exports = (function() { var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13924 = _fn$3(_term$2); - var $13923 = $13924; + var $14032 = _fn$3(_term$2); + var $14031 = $14032; break; case 'o': case 'i': - var $13925 = _term$2; - var $13923 = $13925; + var $14033 = _term$2; + var $14031 = $14033; break; }; - var $13808 = $13923; + var $13916 = $14031; break; case 'Kind.Term.typ': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13927 = _fn$3(_term$2); - var $13926 = $13927; + var $14035 = _fn$3(_term$2); + var $14034 = $14035; break; case 'o': case 'i': - var $13928 = _term$2; - var $13926 = $13928; + var $14036 = _term$2; + var $14034 = $14036; break; }; - var $13808 = $13926; + var $13916 = $14034; 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 $13930 = _fn$3(_term$2); - var $13929 = $13930; + var $14038 = _fn$3(_term$2); + var $14037 = $14038; break; case 'o': case 'i': - var $13931 = _term$2; - var $13929 = $13931; + var $14039 = _term$2; + var $14037 = $14039; break; }; - var $13808 = $13929; + var $13916 = $14037; break; }; - return $13808; + return $13916; }; const Kind$Term$patch_at = x0 => x1 => x2 => Kind$Term$patch_at$(x0, x1, x2); @@ -45382,134 +45688,134 @@ module.exports = (function() { var self = _errs$10; switch (self._) { case 'List.cons': - var $13933 = self.head; - var $13934 = self.tail; - var self = $13933; + var $14041 = self.head; + var $14042 = self.tail; + var self = $14041; switch (self._) { case 'Kind.Error.waiting': - var $13936 = self.name; - var $13937 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $13938 = _m$bind$15; - return $13938; - }))(Kind$Synth$one$($13936, _defs$9))((_new_defs$15 => { + var $14044 = self.name; + var $14045 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $14046 = _m$bind$15; + return $14046; + }))(Kind$Synth$one$($14044, _defs$9))((_new_defs$15 => { var self = _new_defs$15; switch (self._) { case 'Maybe.some': - var $13940 = self.value; - var $13941 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13940, $13934, Bool$true); - var $13939 = $13941; + var $14048 = self.value; + var $14049 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14048, $14042, Bool$true); + var $14047 = $14049; break; case 'Maybe.none': - var $13942 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13934, _fixd$11); - var $13939 = $13942; + var $14050 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14042, _fixd$11); + var $14047 = $14050; break; }; - return $13939; + return $14047; })); - var $13935 = $13937; + var $14043 = $14045; break; case 'Kind.Error.patch': - var $13943 = self.path; - var $13944 = self.term; - var self = $13943; + var $14051 = self.path; + var $14052 = self.term; + var self = $14051; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13946 = self.slice(0, -1); - var _term$17 = Kind$Term$patch_at$($13946, _term$5, (_x$17 => { - var $13948 = $13944; - return $13948; + var $14054 = self.slice(0, -1); + var _term$17 = Kind$Term$patch_at$($14054, _term$5, (_x$17 => { + var $14056 = $14052; + return $14056; })); - var $13947 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $13934, Bool$true); - var $13945 = $13947; + var $14055 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $14042, Bool$true); + var $14053 = $14055; break; case 'i': - var $13949 = self.slice(0, -1); - var _type$17 = Kind$Term$patch_at$($13949, _type$6, (_x$17 => { - var $13951 = $13944; - return $13951; + var $14057 = self.slice(0, -1); + var _type$17 = Kind$Term$patch_at$($14057, _type$6, (_x$17 => { + var $14059 = $14052; + return $14059; })); - var $13950 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $13934, Bool$true); - var $13945 = $13950; + var $14058 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $14042, Bool$true); + var $14053 = $14058; break; case 'e': - var $13952 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $13953 = _m$pure$17; - return $13953; + var $14060 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $14061 = _m$pure$17; + return $14061; }))(Maybe$none); - var $13945 = $13952; + var $14053 = $14060; break; }; - var $13935 = $13945; + var $14043 = $14053; break; case 'Kind.Error.undefined_reference': - var $13954 = self.name; - var $13955 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $13956 = _m$bind$16; - return $13956; - }))(Kind$Synth$one$($13954, _defs$9))((_new_defs$16 => { + var $14062 = self.name; + var $14063 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $14064 = _m$bind$16; + return $14064; + }))(Kind$Synth$one$($14062, _defs$9))((_new_defs$16 => { var self = _new_defs$16; switch (self._) { case 'Maybe.some': - var $13958 = self.value; - var $13959 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13958, $13934, Bool$true); - var $13957 = $13959; + var $14066 = self.value; + var $14067 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14066, $14042, Bool$true); + var $14065 = $14067; break; case 'Maybe.none': - var $13960 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13934, _fixd$11); - var $13957 = $13960; + var $14068 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14042, _fixd$11); + var $14065 = $14068; break; }; - return $13957; + return $14065; })); - var $13935 = $13955; + var $14043 = $14063; break; case 'Kind.Error.type_mismatch': case 'Kind.Error.show_goal': case 'Kind.Error.indirect': case 'Kind.Error.cant_infer': - var $13961 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13934, _fixd$11); - var $13935 = $13961; + var $14069 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14042, _fixd$11); + var $14043 = $14069; break; }; - var $13932 = $13935; + var $14040 = $14043; break; case 'List.nil': var self = _fixd$11; if (self) { var _type$12 = Kind$Term$bind$(List$nil, (_x$12 => { - var $13964 = (_x$12 + '1'); - return $13964; + var $14072 = (_x$12 + '1'); + return $14072; }), _type$6); var _term$13 = Kind$Term$bind$(List$nil, (_x$13 => { - var $13965 = (_x$13 + '0'); - return $13965; + var $14073 = (_x$13 + '0'); + return $14073; }), _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 $13963 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $13966 = _m$pure$16; - return $13966; + var $14071 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $14074 = _m$pure$16; + return $14074; }))(Maybe$some$(_defs$14)); - var $13962 = $13963; + var $14070 = $14071; } else { - var $13967 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $13968 = _m$pure$13; - return $13968; + var $14075 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $14076 = _m$pure$13; + return $14076; }))(Maybe$none); - var $13962 = $13967; + var $14070 = $14075; }; - var $13932 = $13962; + var $14040 = $14070; break; }; - return $13932; + return $14040; }; 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 $13969 = ({ + var $14077 = ({ _: 'Kind.Status.fail', 'errors': _errors$1 }); - return $13969; + return $14077; }; const Kind$Status$fail = x0 => Kind$Status$fail$(x0); @@ -45517,28 +45823,28 @@ module.exports = (function() { var self = Kind$Map$get$(_name$1, _defs$2); switch (self._) { case 'Maybe.some': - var $13971 = self.value; - var self = $13971; + var $14079 = self.value; + var self = $14079; switch (self._) { case 'Kind.Def.new': - var $13973 = self.file; - var $13974 = self.code; - var $13975 = self.orig; - var $13976 = self.name; - var $13977 = self.term; - var $13978 = self.type; - var $13979 = self.isct; - var $13980 = self.arit; - var $13981 = self.stat; - var _file$13 = $13973; - var _code$14 = $13974; - var _orig$15 = $13975; - var _name$16 = $13976; - var _term$17 = $13977; - var _type$18 = $13978; - var _isct$19 = $13979; - var _arit$20 = $13980; - var _stat$21 = $13981; + var $14081 = self.file; + var $14082 = self.code; + var $14083 = self.orig; + var $14084 = self.name; + var $14085 = self.term; + var $14086 = self.type; + var $14087 = self.isct; + var $14088 = self.arit; + var $14089 = self.stat; + var _file$13 = $14081; + var _code$14 = $14082; + var _orig$15 = $14083; + var _name$16 = $14084; + var _term$17 = $14085; + var _type$18 = $14086; + var _isct$19 = $14087; + var _arit$20 = $14088; + var _stat$21 = $14089; var self = _stat$21; switch (self._) { case 'Kind.Status.init': @@ -45546,173 +45852,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 $13984 = self.value; - var $13985 = self.errors; - var self = $13984; + var $14092 = self.value; + var $14093 = self.errors; + var self = $14092; switch (self._) { case 'Maybe.none': - var $13987 = Kind$Check$result$(Maybe$none, $13985); - var $13986 = $13987; + var $14095 = Kind$Check$result$(Maybe$none, $14093); + var $14094 = $14095; 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 $13989 = self.value; - var $13990 = self.errors; - var self = $13989; + var $14097 = self.value; + var $14098 = self.errors; + var self = $14097; switch (self._) { case 'Maybe.none': - var $13992 = Kind$Check$result$(Maybe$none, $13990); - var $13991 = $13992; + var $14100 = Kind$Check$result$(Maybe$none, $14098); + var $14099 = $14100; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13994 = self.value; - var $13995 = self.errors; - var $13996 = Kind$Check$result$($13994, List$concat$($13990, $13995)); - var $13993 = $13996; + var $14102 = self.value; + var $14103 = self.errors; + var $14104 = Kind$Check$result$($14102, List$concat$($14098, $14103)); + var $14101 = $14104; break; }; - var $13991 = $13993; + var $14099 = $14101; break; }; - var self = $13991; + var self = $14099; break; }; switch (self._) { case 'Kind.Check.result': - var $13997 = self.value; - var $13998 = self.errors; - var $13999 = Kind$Check$result$($13997, List$concat$($13985, $13998)); - var $13988 = $13999; + var $14105 = self.value; + var $14106 = self.errors; + var $14107 = Kind$Check$result$($14105, List$concat$($14093, $14106)); + var $14096 = $14107; break; }; - var $13986 = $13988; + var $14094 = $14096; break; }; - var _checked$23 = $13986; + var _checked$23 = $14094; break; }; var self = _checked$23; switch (self._) { case 'Kind.Check.result': - var $14000 = self.errors; - var self = List$is_empty$($14000); + var $14108 = self.errors; + var self = List$is_empty$($14108); 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 $14002 = IO$monad$((_m$bind$27 => _m$pure$28 => { - var $14003 = _m$pure$28; - return $14003; + var $14110 = IO$monad$((_m$bind$27 => _m$pure$28 => { + var $14111 = _m$pure$28; + return $14111; }))(Maybe$some$(_defs$26)); - var $14001 = $14002; + var $14109 = $14110; } else { - var $14004 = IO$monad$((_m$bind$26 => _m$pure$27 => { - var $14005 = _m$bind$26; - return $14005; - }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $14000, Bool$false))((_fixed$26 => { + var $14112 = IO$monad$((_m$bind$26 => _m$pure$27 => { + var $14113 = _m$bind$26; + return $14113; + }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $14108, Bool$false))((_fixed$26 => { var self = _fixed$26; switch (self._) { case 'Maybe.some': - var $14007 = self.value; - var $14008 = Kind$Synth$one$(_name$16, $14007); - var $14006 = $14008; + var $14115 = self.value; + var $14116 = Kind$Synth$one$(_name$16, $14115); + var $14114 = $14116; break; case 'Maybe.none': - var _stat$27 = Kind$Status$fail$($14000); + var _stat$27 = Kind$Status$fail$($14108); 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 $14009 = IO$monad$((_m$bind$29 => _m$pure$30 => { - var $14010 = _m$pure$30; - return $14010; + var $14117 = IO$monad$((_m$bind$29 => _m$pure$30 => { + var $14118 = _m$pure$30; + return $14118; }))(Maybe$some$(_defs$28)); - var $14006 = $14009; + var $14114 = $14117; break; }; - return $14006; + return $14114; })); - var $14001 = $14004; + var $14109 = $14112; }; - var $13983 = $14001; + var $14091 = $14109; break; }; - var $13982 = $13983; + var $14090 = $14091; break; case 'Kind.Status.wait': - var $14011 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $14012 = _m$pure$23; - return $14012; + var $14119 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $14120 = _m$pure$23; + return $14120; }))(Maybe$some$(_defs$2)); - var $13982 = $14011; + var $14090 = $14119; break; case 'Kind.Status.done': case 'Kind.Status.fail': - var $14013 = IO$monad$((_m$bind$23 => _m$pure$24 => { - var $14014 = _m$pure$24; - return $14014; + var $14121 = IO$monad$((_m$bind$23 => _m$pure$24 => { + var $14122 = _m$pure$24; + return $14122; }))(Maybe$some$(_defs$2)); - var $13982 = $14013; + var $14090 = $14121; break; }; - var $13972 = $13982; + var $14080 = $14090; break; }; - var $13970 = $13972; + var $14078 = $14080; break; case 'Maybe.none': - var $14015 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14016 = _m$bind$3; - return $14016; + var $14123 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14124 = _m$bind$3; + return $14124; }))(IO$get_time)((_time_a$3 => { - var $14017 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $14018 = _m$bind$4; - return $14018; + var $14125 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $14126 = _m$bind$4; + return $14126; }))(Kind$Synth$load$(_name$1, _defs$2))((_loaded$4 => { var self = _loaded$4; switch (self._) { case 'Maybe.some': - var $14020 = self.value; - var $14021 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14022 = _m$bind$6; - return $14022; + var $14128 = self.value; + var $14129 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14130 = _m$bind$6; + return $14130; }))(IO$get_time)((_time_b$6 => { - var $14023 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $14024 = _m$bind$7; - return $14024; - }))(Kind$Synth$one$(_name$1, $14020))((_result$7 => { - var $14025 = IO$monad$((_m$bind$8 => _m$pure$9 => { - var $14026 = _m$bind$8; - return $14026; + var $14131 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $14132 = _m$bind$7; + return $14132; + }))(Kind$Synth$one$(_name$1, $14128))((_result$7 => { + var $14133 = IO$monad$((_m$bind$8 => _m$pure$9 => { + var $14134 = _m$bind$8; + return $14134; }))(IO$get_time)((_time_c$8 => { - var $14027 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $14028 = _m$pure$10; - return $14028; + var $14135 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $14136 = _m$pure$10; + return $14136; }))(_result$7); - return $14027; + return $14135; })); - return $14025; + return $14133; })); - return $14023; + return $14131; })); - var $14019 = $14021; + var $14127 = $14129; break; case 'Maybe.none': - var $14029 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14030 = _m$pure$6; - return $14030; + var $14137 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14138 = _m$pure$6; + return $14138; }))(Maybe$none); - var $14019 = $14029; + var $14127 = $14137; break; }; - return $14019; + return $14127; })); - return $14017; + return $14125; })); - var $13970 = $14015; + var $14078 = $14123; break; }; - return $13970; + return $14078; }; const Kind$Synth$one = x0 => x1 => Kind$Synth$one$(x0, x1); @@ -45720,91 +46026,91 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $14032 = self.head; - var $14033 = self.tail; - var self = $14032; + var $14140 = self.head; + var $14141 = self.tail; + var self = $14140; switch (self._) { case 'Pair.new': - var $14035 = self.fst; - var $14036 = self.snd; - var $14037 = (bitsmap_set($14035, $14036, BitsMap$from_list$($14033), 'set')); - var $14034 = $14037; + var $14143 = self.fst; + var $14144 = self.snd; + var $14145 = (bitsmap_set($14143, $14144, BitsMap$from_list$($14141), 'set')); + var $14142 = $14145; break; }; - var $14031 = $14034; + var $14139 = $14142; break; case 'List.nil': - var $14038 = BitsMap$new; - var $14031 = $14038; + var $14146 = BitsMap$new; + var $14139 = $14146; break; }; - return $14031; + return $14139; }; 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 $14040 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); - return $14040; + var $14148 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); + return $14148; })); - var $14039 = BitsMap$from_list$(_kvs$2); - return $14039; + var $14147 = BitsMap$from_list$(_kvs$2); + return $14147; })(); function Kind$Term$inline$reduce$(_term$1, _defs$2) { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $14042 = self.name; - var _inli$4 = BitsSet$has$((kind_name_to_bits($14042)), Kind$Term$inline$names); + var $14150 = self.name; + var _inli$4 = BitsSet$has$((kind_name_to_bits($14150)), Kind$Term$inline$names); var self = _inli$4; if (self) { - var self = Kind$Map$get$($14042, _defs$2); + var self = Kind$Map$get$($14150, _defs$2); switch (self._) { case 'Maybe.some': - var $14045 = self.value; - var self = $14045; + var $14153 = self.value; + var self = $14153; switch (self._) { case 'Kind.Def.new': - var $14047 = self.term; - var $14048 = Kind$Term$inline$reduce$($14047, _defs$2); - var $14046 = $14048; + var $14155 = self.term; + var $14156 = Kind$Term$inline$reduce$($14155, _defs$2); + var $14154 = $14156; break; }; - var $14044 = $14046; + var $14152 = $14154; break; case 'Maybe.none': - var $14049 = Kind$Term$ref$($14042); - var $14044 = $14049; + var $14157 = Kind$Term$ref$($14150); + var $14152 = $14157; break; }; - var $14043 = $14044; + var $14151 = $14152; } else { - var $14050 = _term$1; - var $14043 = $14050; + var $14158 = _term$1; + var $14151 = $14158; }; - var $14041 = $14043; + var $14149 = $14151; break; case 'Kind.Term.app': - var $14051 = self.func; - var $14052 = self.argm; - var _func$5 = Kind$Term$inline$reduce$($14051, _defs$2); + var $14159 = self.func; + var $14160 = self.argm; + var _func$5 = Kind$Term$inline$reduce$($14159, _defs$2); var self = _func$5; switch (self._) { case 'Kind.Term.lam': - var $14054 = self.body; - var $14055 = Kind$Term$inline$reduce$($14054($14052), _defs$2); - var $14053 = $14055; + var $14162 = self.body; + var $14163 = Kind$Term$inline$reduce$($14162($14160), _defs$2); + var $14161 = $14163; break; case 'Kind.Term.let': - var $14056 = self.name; - var $14057 = self.expr; - var $14058 = self.body; - var $14059 = Kind$Term$let$($14056, $14057, (_x$9 => { - var $14060 = Kind$Term$inline$reduce$(Kind$Term$app$($14058(_x$9), $14052), _defs$2); - return $14060; + var $14164 = self.name; + var $14165 = self.expr; + var $14166 = self.body; + var $14167 = Kind$Term$let$($14164, $14165, (_x$9 => { + var $14168 = Kind$Term$inline$reduce$(Kind$Term$app$($14166(_x$9), $14160), _defs$2); + return $14168; })); - var $14053 = $14059; + var $14161 = $14167; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45827,21 +46133,21 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14061 = _term$1; - var $14053 = $14061; + var $14169 = _term$1; + var $14161 = $14169; break; }; - var $14041 = $14053; + var $14149 = $14161; break; case 'Kind.Term.imp': - var $14062 = self.expr; - var $14063 = Kind$Term$inline$reduce$($14062, _defs$2); - var $14041 = $14063; + var $14170 = self.expr; + var $14171 = Kind$Term$inline$reduce$($14170, _defs$2); + var $14149 = $14171; break; case 'Kind.Term.ori': - var $14064 = self.expr; - var $14065 = Kind$Term$inline$reduce$($14064, _defs$2); - var $14041 = $14065; + var $14172 = self.expr; + var $14173 = Kind$Term$inline$reduce$($14172, _defs$2); + var $14149 = $14173; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -45862,11 +46168,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $14066 = _term$1; - var $14041 = $14066; + var $14174 = _term$1; + var $14149 = $14174; break; }; - return $14041; + return $14149; }; const Kind$Term$inline$reduce = x0 => x1 => Kind$Term$inline$reduce$(x0, x1); @@ -45874,105 +46180,105 @@ module.exports = (function() { var self = Kind$Term$inline$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $14068 = self.name; - var $14069 = self.indx; - var $14070 = Kind$Term$var$($14068, $14069); - var $14067 = $14070; + var $14176 = self.name; + var $14177 = self.indx; + var $14178 = Kind$Term$var$($14176, $14177); + var $14175 = $14178; break; case 'Kind.Term.ref': - var $14071 = self.name; - var $14072 = Kind$Term$ref$($14071); - var $14067 = $14072; + var $14179 = self.name; + var $14180 = Kind$Term$ref$($14179); + var $14175 = $14180; break; case 'Kind.Term.all': - var $14073 = self.eras; - var $14074 = self.self; - var $14075 = self.name; - var $14076 = self.xtyp; - var $14077 = self.body; - var $14078 = Kind$Term$all$($14073, $14074, $14075, Kind$Term$inline$($14076, _defs$2), (_s$8 => _x$9 => { - var $14079 = Kind$Term$inline$($14077(_s$8)(_x$9), _defs$2); - return $14079; + var $14181 = self.eras; + var $14182 = self.self; + var $14183 = self.name; + var $14184 = self.xtyp; + var $14185 = self.body; + var $14186 = Kind$Term$all$($14181, $14182, $14183, Kind$Term$inline$($14184, _defs$2), (_s$8 => _x$9 => { + var $14187 = Kind$Term$inline$($14185(_s$8)(_x$9), _defs$2); + return $14187; })); - var $14067 = $14078; + var $14175 = $14186; break; case 'Kind.Term.lam': - var $14080 = self.name; - var $14081 = self.body; - var $14082 = Kind$Term$lam$($14080, (_x$5 => { - var $14083 = Kind$Term$inline$($14081(_x$5), _defs$2); - return $14083; + var $14188 = self.name; + var $14189 = self.body; + var $14190 = Kind$Term$lam$($14188, (_x$5 => { + var $14191 = Kind$Term$inline$($14189(_x$5), _defs$2); + return $14191; })); - var $14067 = $14082; + var $14175 = $14190; break; case 'Kind.Term.app': - var $14084 = self.func; - var $14085 = self.argm; - var $14086 = Kind$Term$app$(Kind$Term$inline$($14084, _defs$2), Kind$Term$inline$($14085, _defs$2)); - var $14067 = $14086; + var $14192 = self.func; + var $14193 = self.argm; + var $14194 = Kind$Term$app$(Kind$Term$inline$($14192, _defs$2), Kind$Term$inline$($14193, _defs$2)); + var $14175 = $14194; break; case 'Kind.Term.let': - var $14087 = self.name; - var $14088 = self.expr; - var $14089 = self.body; - var $14090 = Kind$Term$let$($14087, Kind$Term$inline$($14088, _defs$2), (_x$6 => { - var $14091 = Kind$Term$inline$($14089(_x$6), _defs$2); - return $14091; + var $14195 = self.name; + var $14196 = self.expr; + var $14197 = self.body; + var $14198 = Kind$Term$let$($14195, Kind$Term$inline$($14196, _defs$2), (_x$6 => { + var $14199 = Kind$Term$inline$($14197(_x$6), _defs$2); + return $14199; })); - var $14067 = $14090; + var $14175 = $14198; break; case 'Kind.Term.def': - var $14092 = self.name; - var $14093 = self.expr; - var $14094 = self.body; - var $14095 = Kind$Term$def$($14092, Kind$Term$inline$($14093, _defs$2), (_x$6 => { - var $14096 = Kind$Term$inline$($14094(_x$6), _defs$2); - return $14096; + var $14200 = self.name; + var $14201 = self.expr; + var $14202 = self.body; + var $14203 = Kind$Term$def$($14200, Kind$Term$inline$($14201, _defs$2), (_x$6 => { + var $14204 = Kind$Term$inline$($14202(_x$6), _defs$2); + return $14204; })); - var $14067 = $14095; + var $14175 = $14203; break; case 'Kind.Term.ann': - var $14097 = self.done; - var $14098 = self.term; - var $14099 = self.type; - var $14100 = Kind$Term$ann$($14097, Kind$Term$inline$($14098, _defs$2), Kind$Term$inline$($14099, _defs$2)); - var $14067 = $14100; + var $14205 = self.done; + var $14206 = self.term; + var $14207 = self.type; + var $14208 = Kind$Term$ann$($14205, Kind$Term$inline$($14206, _defs$2), Kind$Term$inline$($14207, _defs$2)); + var $14175 = $14208; break; case 'Kind.Term.gol': - var $14101 = self.name; - var $14102 = self.dref; - var $14103 = self.verb; - var $14104 = Kind$Term$gol$($14101, $14102, $14103); - var $14067 = $14104; + var $14209 = self.name; + var $14210 = self.dref; + var $14211 = self.verb; + var $14212 = Kind$Term$gol$($14209, $14210, $14211); + var $14175 = $14212; break; case 'Kind.Term.hol': - var $14105 = self.path; - var $14106 = Kind$Term$hol$($14105); - var $14067 = $14106; + var $14213 = self.path; + var $14214 = Kind$Term$hol$($14213); + var $14175 = $14214; break; case 'Kind.Term.nat': - var $14107 = self.natx; - var $14108 = Kind$Term$nat$($14107); - var $14067 = $14108; + var $14215 = self.natx; + var $14216 = Kind$Term$nat$($14215); + var $14175 = $14216; break; case 'Kind.Term.chr': - var $14109 = self.chrx; - var $14110 = Kind$Term$chr$($14109); - var $14067 = $14110; + var $14217 = self.chrx; + var $14218 = Kind$Term$chr$($14217); + var $14175 = $14218; break; case 'Kind.Term.str': - var $14111 = self.strx; - var $14112 = Kind$Term$str$($14111); - var $14067 = $14112; + var $14219 = self.strx; + var $14220 = Kind$Term$str$($14219); + var $14175 = $14220; break; case 'Kind.Term.ori': - var $14113 = self.expr; - var $14114 = Kind$Term$inline$($14113, _defs$2); - var $14067 = $14114; + var $14221 = self.expr; + var $14222 = Kind$Term$inline$($14221, _defs$2); + var $14175 = $14222; break; case 'Kind.Term.typ': - var $14115 = Kind$Term$typ; - var $14067 = $14115; + var $14223 = Kind$Term$typ; + var $14175 = $14223; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -45982,11 +46288,11 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $14116 = _term$1; - var $14067 = $14116; + var $14224 = _term$1; + var $14175 = $14224; break; }; - return $14067; + return $14175; }; const Kind$Term$inline = x0 => x1 => Kind$Term$inline$(x0, x1); @@ -45994,38 +46300,38 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $14118 = self.val; - var $14119 = self.lft; - var $14120 = self.rgt; - var self = $14118; + var $14226 = self.val; + var $14227 = self.lft; + var $14228 = self.rgt; + var self = $14226; switch (self._) { case 'Maybe.some': - var $14122 = self.value; - var $14123 = List$cons$($14122, _list$3); - var _list0$7 = $14123; + var $14230 = self.value; + var $14231 = List$cons$($14230, _list$3); + var _list0$7 = $14231; break; case 'Maybe.none': - var $14124 = _list$3; - var _list0$7 = $14124; + var $14232 = _list$3; + var _list0$7 = $14232; break; }; - var _list1$8 = BitsMap$values$go$($14119, _list0$7); - var _list2$9 = BitsMap$values$go$($14120, _list1$8); - var $14121 = _list2$9; - var $14117 = $14121; + var _list1$8 = BitsMap$values$go$($14227, _list0$7); + var _list2$9 = BitsMap$values$go$($14228, _list1$8); + var $14229 = _list2$9; + var $14225 = $14229; break; case 'BitsMap.new': - var $14125 = _list$3; - var $14117 = $14125; + var $14233 = _list$3; + var $14225 = $14233; break; }; - return $14117; + return $14225; }; const BitsMap$values$go = x0 => x1 => BitsMap$values$go$(x0, x1); function BitsMap$values$(_xs$2) { - var $14126 = BitsMap$values$go$(_xs$2, List$nil); - return $14126; + var $14234 = BitsMap$values$go$(_xs$2, List$nil); + return $14234; }; const BitsMap$values = x0 => BitsMap$values$(x0); @@ -46043,38 +46349,38 @@ module.exports = (function() { if (self === 0n) { var self = _brui$3; if (self === 0n) { - var $14128 = _name$2; - var $14127 = $14128; + var $14236 = _name$2; + var $14235 = $14236; } else { - var $14129 = (self - 1n); - var $14130 = (_name$2 + ("^" + Nat$show$(_brui$3))); - var $14127 = $14130; + var $14237 = (self - 1n); + var $14238 = (_name$2 + ("^" + Nat$show$(_brui$3))); + var $14235 = $14238; }; - return $14127; + return $14235; } else { - var $14131 = (self - 1n); + var $14239 = (self - 1n); var self = _vars$4; switch (self._) { case 'List.cons': - var $14133 = self.head; - var $14134 = self.tail; - var self = (_name$2 === $14133); + var $14241 = self.head; + var $14242 = self.tail; + var self = (_name$2 === $14241); if (self) { - var $14136 = Nat$succ$(_brui$3); - var _brui$8 = $14136; + var $14244 = Nat$succ$(_brui$3); + var _brui$8 = $14244; } else { - var $14137 = _brui$3; - var _brui$8 = $14137; + var $14245 = _brui$3; + var _brui$8 = $14245; }; - var $14135 = Kind$Core$var_name$($14131, _name$2, _brui$8, $14134); - var $14132 = $14135; + var $14243 = Kind$Core$var_name$($14239, _name$2, _brui$8, $14242); + var $14240 = $14243; break; case 'List.nil': - var $14138 = "unbound"; - var $14132 = $14138; + var $14246 = "unbound"; + var $14240 = $14246; break; }; - return $14132; + return $14240; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46084,8 +46390,8 @@ 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 $14139 = _name$1; - return $14139; + var $14247 = _name$1; + return $14247; }; const Kind$Name$show = x0 => Kind$Name$show$(x0); @@ -46093,21 +46399,21 @@ module.exports = (function() { var self = _b$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14141 = self.slice(0, -1); - var $14142 = (2n * Bits$to_nat$($14141)); - var $14140 = $14142; + var $14249 = self.slice(0, -1); + var $14250 = (Bits$to_nat$($14249) * 2n); + var $14248 = $14250; break; case 'i': - var $14143 = self.slice(0, -1); - var $14144 = Nat$succ$((2n * Bits$to_nat$($14143))); - var $14140 = $14144; + var $14251 = self.slice(0, -1); + var $14252 = Nat$succ$((Bits$to_nat$($14251) * 2n)); + var $14248 = $14252; break; case 'e': - var $14145 = 0n; - var $14140 = $14145; + var $14253 = Nat$zero; + var $14248 = $14253; break; }; - return $14140; + return $14248; }; const Bits$to_nat = x0 => Bits$to_nat$(x0); @@ -46115,46 +46421,46 @@ module.exports = (function() { var self = _a$1; switch ('u16') { case 'u16': - var $14147 = u16_to_word(self); - var $14148 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($14147))); - var $14146 = $14148; + var $14255 = u16_to_word(self); + var $14256 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($14255))); + var $14254 = $14256; break; }; - return $14146; + return $14254; }; 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 $14150 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $14149 = $14150; + var $14258 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $14257 = $14258; } else { var self = (_chr$1 === 34); if (self) { - var $14152 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $14151 = $14152; + var $14260 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $14259 = $14260; } else { var self = (_chr$1 === 39); if (self) { - var $14154 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $14153 = $14154; + var $14262 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $14261 = $14262; } else { var self = U16$btw$(32, _chr$1, 126); if (self) { - var $14156 = String$cons$(_chr$1, String$nil); - var $14155 = $14156; + var $14264 = String$cons$(_chr$1, String$nil); + var $14263 = $14264; } else { - var $14157 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); - var $14155 = $14157; + var $14265 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); + var $14263 = $14265; }; - var $14153 = $14155; + var $14261 = $14263; }; - var $14151 = $14153; + var $14259 = $14261; }; - var $14149 = $14151; + var $14257 = $14259; }; - return $14149; + return $14257; }; const Kind$Code$escape$char = x0 => Kind$Code$escape$char$(x0); @@ -46170,13 +46476,13 @@ module.exports = (function() { var R = (() => { var self = _str$1; if (self.length === 0) { - var $14158 = String$reverse$(_result$2); - return $14158; + var $14266 = String$reverse$(_result$2); + return $14266; } else { - var $14159 = self.charCodeAt(0); - var $14160 = self.slice(1); - var $14161 = Kind$Code$escape$go$($14160, (String$reverse$(Kind$Code$escape$char$($14159)) + _result$2)); - return $14161; + var $14267 = self.charCodeAt(0); + var $14268 = self.slice(1); + var $14269 = Kind$Code$escape$go$($14268, (String$reverse$(Kind$Code$escape$char$($14267)) + _result$2)); + return $14269; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46186,8 +46492,8 @@ module.exports = (function() { const Kind$Code$escape$go = x0 => x1 => Kind$Code$escape$go$(x0, x1); function Kind$Code$escape$(_str$1) { - var $14162 = Kind$Code$escape$go$(_str$1, ""); - return $14162; + var $14270 = Kind$Code$escape$go$(_str$1, ""); + return $14270; }; const Kind$Code$escape = x0 => Kind$Code$escape$(x0); @@ -46195,106 +46501,106 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14164 = self.name; - var $14165 = self.indx; - var $14166 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $14165 <= 0n ? 0n : _indx$2 - $14165)), $14164, 0n, _vars$3); - var $14163 = $14166; + var $14272 = self.name; + var $14273 = self.indx; + var $14274 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $14273 <= 0n ? 0n : _indx$2 - $14273)), $14272, 0n, _vars$3); + var $14271 = $14274; break; case 'Kind.Term.ref': - var $14167 = self.name; - var $14168 = Kind$Name$show$($14167); - var $14163 = $14168; + var $14275 = self.name; + var $14276 = Kind$Name$show$($14275); + var $14271 = $14276; break; case 'Kind.Term.all': - var $14169 = self.eras; - var $14170 = self.self; - var $14171 = self.name; - var $14172 = self.xtyp; - var $14173 = self.body; - var _eras$9 = $14169; + var $14277 = self.eras; + var $14278 = self.self; + var $14279 = self.name; + var $14280 = self.xtyp; + var $14281 = self.body; + var _eras$9 = $14277; var self = _eras$9; if (self) { - var $14175 = "%"; - var _init$10 = $14175; + var $14283 = "%"; + var _init$10 = $14283; } else { - var $14176 = "@"; - var _init$10 = $14176; + var $14284 = "@"; + var _init$10 = $14284; }; - var _self$11 = Kind$Name$show$($14170); - var _name$12 = Kind$Name$show$($14171); - var _xtyp$13 = Kind$Core$show$go$($14172, _indx$2, _vars$3); - var _body$14 = Kind$Core$show$go$($14173(Kind$Term$var$($14170, _indx$2))(Kind$Term$var$($14171, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($14171, List$cons$($14170, _vars$3))); - var $14174 = 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 $14163 = $14174; + var _self$11 = Kind$Name$show$($14278); + var _name$12 = Kind$Name$show$($14279); + var _xtyp$13 = Kind$Core$show$go$($14280, _indx$2, _vars$3); + var _body$14 = Kind$Core$show$go$($14281(Kind$Term$var$($14278, _indx$2))(Kind$Term$var$($14279, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($14279, List$cons$($14278, _vars$3))); + var $14282 = 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 $14271 = $14282; break; case 'Kind.Term.lam': - var $14177 = self.name; - var $14178 = self.body; - var _name$6 = Kind$Name$show$($14177); - var _body$7 = Kind$Core$show$go$($14178(Kind$Term$var$($14177, _indx$2)), Nat$succ$(_indx$2), List$cons$($14177, _vars$3)); - var $14179 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); - var $14163 = $14179; + var $14285 = self.name; + var $14286 = self.body; + var _name$6 = Kind$Name$show$($14285); + var _body$7 = Kind$Core$show$go$($14286(Kind$Term$var$($14285, _indx$2)), Nat$succ$(_indx$2), List$cons$($14285, _vars$3)); + var $14287 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); + var $14271 = $14287; break; case 'Kind.Term.app': - var $14180 = self.func; - var $14181 = self.argm; - var _func$6 = Kind$Core$show$go$($14180, _indx$2, _vars$3); - var _argm$7 = Kind$Core$show$go$($14181, _indx$2, _vars$3); - var $14182 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); - var $14163 = $14182; + var $14288 = self.func; + var $14289 = self.argm; + var _func$6 = Kind$Core$show$go$($14288, _indx$2, _vars$3); + var _argm$7 = Kind$Core$show$go$($14289, _indx$2, _vars$3); + var $14290 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); + var $14271 = $14290; break; case 'Kind.Term.let': - var $14183 = self.name; - var $14184 = self.expr; - var $14185 = self.body; - var _name$7 = Kind$Name$show$($14183); - var _expr$8 = Kind$Core$show$go$($14184, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($14185(Kind$Term$var$($14183, _indx$2)), Nat$succ$(_indx$2), List$cons$($14183, _vars$3)); - var $14186 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $14163 = $14186; + var $14291 = self.name; + var $14292 = self.expr; + var $14293 = self.body; + var _name$7 = Kind$Name$show$($14291); + var _expr$8 = Kind$Core$show$go$($14292, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($14293(Kind$Term$var$($14291, _indx$2)), Nat$succ$(_indx$2), List$cons$($14291, _vars$3)); + var $14294 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $14271 = $14294; break; case 'Kind.Term.def': - var $14187 = self.name; - var $14188 = self.expr; - var $14189 = self.body; - var _name$7 = Kind$Name$show$($14187); - var _expr$8 = Kind$Core$show$go$($14188, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($14189(Kind$Term$var$($14187, _indx$2)), Nat$succ$(_indx$2), List$cons$($14187, _vars$3)); - var $14190 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $14163 = $14190; + var $14295 = self.name; + var $14296 = self.expr; + var $14297 = self.body; + var _name$7 = Kind$Name$show$($14295); + var _expr$8 = Kind$Core$show$go$($14296, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($14297(Kind$Term$var$($14295, _indx$2)), Nat$succ$(_indx$2), List$cons$($14295, _vars$3)); + var $14298 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $14271 = $14298; break; case 'Kind.Term.ann': - var $14191 = self.term; - var $14192 = self.type; - var _term$7 = Kind$Core$show$go$($14191, _indx$2, _vars$3); - var _type$8 = Kind$Core$show$go$($14192, _indx$2, _vars$3); - var $14193 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); - var $14163 = $14193; + var $14299 = self.term; + var $14300 = self.type; + var _term$7 = Kind$Core$show$go$($14299, _indx$2, _vars$3); + var _type$8 = Kind$Core$show$go$($14300, _indx$2, _vars$3); + var $14301 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); + var $14271 = $14301; break; case 'Kind.Term.nat': - var $14194 = self.natx; - var $14195 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($14194), List$nil))); - var $14163 = $14195; + var $14302 = self.natx; + var $14303 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($14302), List$nil))); + var $14271 = $14303; break; case 'Kind.Term.chr': - var $14196 = self.chrx; - var $14197 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14196), List$cons$("\'", List$nil)))); - var $14163 = $14197; + var $14304 = self.chrx; + var $14305 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14304), List$cons$("\'", List$nil)))); + var $14271 = $14305; break; case 'Kind.Term.str': - var $14198 = self.strx; - var $14199 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14198), List$cons$("\"", List$nil)))); - var $14163 = $14199; + var $14306 = self.strx; + var $14307 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14306), List$cons$("\"", List$nil)))); + var $14271 = $14307; break; case 'Kind.Term.imp': - var $14200 = self.expr; - var $14201 = Kind$Core$show$go$($14200, _indx$2, _vars$3); - var $14163 = $14201; + var $14308 = self.expr; + var $14309 = Kind$Core$show$go$($14308, _indx$2, _vars$3); + var $14271 = $14309; break; case 'Kind.Term.ori': - var $14202 = self.expr; - var $14203 = Kind$Core$show$go$($14202, _indx$2, _vars$3); - var $14163 = $14203; + var $14310 = self.expr; + var $14311 = Kind$Core$show$go$($14310, _indx$2, _vars$3); + var $14271 = $14311; break; case 'Kind.Term.typ': case 'Kind.Term.gol': @@ -46306,110 +46612,110 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $14204 = "*"; - var $14163 = $14204; + var $14312 = "*"; + var $14271 = $14312; break; }; - return $14163; + return $14271; }; const Kind$Core$show$go = x0 => x1 => x2 => Kind$Core$show$go$(x0, x1, x2); function Kind$Core$show$(_term$1) { - var $14205 = Kind$Core$show$go$(_term$1, 0n, List$nil); - return $14205; + var $14313 = Kind$Core$show$go$(_term$1, 0n, List$nil); + return $14313; }; const Kind$Core$show = x0 => Kind$Core$show$(x0); function Kind$Defs$core$(_defs$1) { var _result$2 = ""; var _result$3 = (() => { - var $14208 = _result$2; - var $14209 = BitsMap$values$(_defs$1); - let _result$4 = $14208; + var $14316 = _result$2; + var $14317 = BitsMap$values$(_defs$1); + let _result$4 = $14316; let _defn$3; - while ($14209._ === 'List.cons') { - _defn$3 = $14209.head; + while ($14317._ === 'List.cons') { + _defn$3 = $14317.head; var self = _defn$3; switch (self._) { case 'Kind.Def.new': - var $14210 = self.name; - var $14211 = self.term; - var $14212 = self.type; - var $14213 = self.stat; - var self = $14213; + var $14318 = self.name; + var $14319 = self.term; + var $14320 = self.type; + var $14321 = self.stat; + var self = $14321; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $14215 = _result$4; - var $14214 = $14215; + var $14323 = _result$4; + var $14322 = $14323; break; case 'Kind.Status.done': - var _name$15 = $14210; - var _term$16 = Kind$Core$show$($14211); - var _type$17 = Kind$Core$show$($14212); - var $14216 = 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 $14214 = $14216; + var _name$15 = $14318; + var _term$16 = Kind$Core$show$($14319); + var _type$17 = Kind$Core$show$($14320); + var $14324 = 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 $14322 = $14324; break; }; - var $14208 = $14214; + var $14316 = $14322; break; }; - _result$4 = $14208; - $14209 = $14209.tail; + _result$4 = $14316; + $14317 = $14317.tail; } return _result$4; })(); - var $14206 = _result$3; - return $14206; + var $14314 = _result$3; + return $14314; }; const Kind$Defs$core = x0 => Kind$Defs$core$(x0); function Kind$api$io$term_to_core$(_name$1) { - var $14217 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14218 = _m$bind$2; - return $14218; + var $14325 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14326 = _m$bind$2; + return $14326; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $14220 = self.value; - var $14221 = $14220; - var _defs$3 = $14221; + var $14328 = self.value; + var $14329 = $14328; + var _defs$3 = $14329; break; case 'Maybe.none': - var $14222 = Kind$Map$new; - var _defs$3 = $14222; + var $14330 = Kind$Map$new; + var _defs$3 = $14330; break; }; var _defs$4 = BitsMap$map$((_defn$4 => { var self = _defn$4; switch (self._) { case 'Kind.Def.new': - var $14224 = self.file; - var $14225 = self.code; - var $14226 = self.orig; - var $14227 = self.name; - var $14228 = self.term; - var $14229 = self.type; - var $14230 = self.isct; - var $14231 = self.arit; - var $14232 = self.stat; - var _term$14 = Kind$Term$inline$($14228, _defs$3); - var _type$15 = Kind$Term$inline$($14229, _defs$3); - var $14233 = Kind$Def$new$($14224, $14225, $14226, $14227, _term$14, _type$15, $14230, $14231, $14232); - var $14223 = $14233; + var $14332 = self.file; + var $14333 = self.code; + var $14334 = self.orig; + var $14335 = self.name; + var $14336 = self.term; + var $14337 = self.type; + var $14338 = self.isct; + var $14339 = self.arit; + var $14340 = self.stat; + var _term$14 = Kind$Term$inline$($14336, _defs$3); + var _type$15 = Kind$Term$inline$($14337, _defs$3); + var $14341 = Kind$Def$new$($14332, $14333, $14334, $14335, _term$14, _type$15, $14338, $14339, $14340); + var $14331 = $14341; break; }; - return $14223; + return $14331; }), _defs$3); - var $14219 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14234 = _m$pure$6; - return $14234; + var $14327 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14342 = _m$pure$6; + return $14342; }))(Kind$Defs$core$(_defs$4)); - return $14219; + return $14327; })); - return $14217; + return $14325; }; const Kind$api$io$term_to_core = x0 => Kind$api$io$term_to_core$(x0); @@ -46417,31 +46723,31 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $14236 = self.file; - var $14237 = self.code; - var $14238 = self.orig; - var $14239 = self.name; - var $14240 = self.term; - var $14241 = self.type; - var $14242 = self.isct; - var $14243 = self.arit; - var $14244 = self.stat; - var _term$12 = Kind$Term$inline$($14240, _defs$2); - var _type$13 = Kind$Term$inline$($14241, _defs$2); - var $14245 = Kind$Def$new$($14236, $14237, $14238, $14239, _term$12, _type$13, $14242, $14243, $14244); - var $14235 = $14245; + var $14344 = self.file; + var $14345 = self.code; + var $14346 = self.orig; + var $14347 = self.name; + var $14348 = self.term; + var $14349 = self.type; + var $14350 = self.isct; + var $14351 = self.arit; + var $14352 = self.stat; + var _term$12 = Kind$Term$inline$($14348, _defs$2); + var _type$13 = Kind$Term$inline$($14349, _defs$2); + var $14353 = Kind$Def$new$($14344, $14345, $14346, $14347, _term$12, _type$13, $14350, $14351, $14352); + var $14343 = $14353; break; }; - return $14235; + return $14343; }; const Kind$Comp$Defs$compile$defn$adjust = x0 => x1 => Kind$Comp$Defs$compile$defn$adjust$(x0, x1); function Kind$Comp$var$(_name$1) { - var $14246 = ({ + var $14354 = ({ _: 'Kind.Comp.var', 'name': _name$1 }); - return $14246; + return $14354; }; const Kind$Comp$var = x0 => Kind$Comp$var$(x0); const Kind$Comp$nil = ({ @@ -46449,11 +46755,11 @@ module.exports = (function() { }); function Kind$Comp$ref$(_name$1) { - var $14247 = ({ + var $14355 = ({ _: 'Kind.Comp.ref', 'name': _name$1 }); - return $14247; + return $14355; }; const Kind$Comp$ref = x0 => Kind$Comp$ref$(x0); const Kind$Comp$Prim$bool = ({ @@ -46480,65 +46786,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 $14249 = self.value; - var $14250 = Maybe$default$($14249, Bool$false); - var $14248 = $14250; + var $14357 = self.value; + var $14358 = Maybe$default$($14357, Bool$false); + var $14356 = $14358; break; }; - return $14248; + return $14356; }; 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 $14253 = _result$3; - var $14254 = Kind$Comp$Prim$natives; - let _result$5 = $14253; + var $14361 = _result$3; + var $14362 = Kind$Comp$Prim$natives; + let _result$5 = $14361; let _prim$4; - while ($14254._ === 'List.cons') { - _prim$4 = $14254.head; + while ($14362._ === 'List.cons') { + _prim$4 = $14362.head; var self = _prim$4; switch (self._) { case 'Pair.new': - var $14255 = self.fst; - var $14256 = self.snd; + var $14363 = self.fst; + var $14364 = self.snd; var self = _result$5; switch (self._) { case 'Maybe.none': - var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($14255), _defs$2); + var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($14363), _defs$2); if (self) { - var $14259 = Maybe$some$($14256); - var $14258 = $14259; + var $14367 = Maybe$some$($14364); + var $14366 = $14367; } else { - var $14260 = Maybe$none; - var $14258 = $14260; + var $14368 = Maybe$none; + var $14366 = $14368; }; - var $14257 = $14258; + var $14365 = $14366; break; case 'Maybe.some': - var $14261 = _result$5; - var $14257 = $14261; + var $14369 = _result$5; + var $14365 = $14369; break; }; - var $14253 = $14257; + var $14361 = $14365; break; }; - _result$5 = $14253; - $14254 = $14254.tail; + _result$5 = $14361; + $14362 = $14362.tail; } return _result$5; })(); - var $14251 = _result$4; - return $14251; + var $14359 = _result$4; + return $14359; }; 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 $14262 = String$starts_with$(_xs_reserved$3, _match_reversed$4); - return $14262; + var $14370 = String$starts_with$(_xs_reserved$3, _match_reversed$4); + return $14370; }; const String$ends_with = x0 => x1 => String$ends_with$(x0, x1); @@ -46546,20 +46852,20 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $14264 = self.eras; - var $14265 = self.name; - var $14266 = self.body; - var _head$7 = $14265; - var _tail$8 = Kind$Comp$compile$adt$get_fields$($14266(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var self = $14264; + var $14372 = self.eras; + var $14373 = self.name; + var $14374 = self.body; + var _head$7 = $14373; + var _tail$8 = Kind$Comp$compile$adt$get_fields$($14374(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var self = $14372; if (self) { - var $14268 = _tail$8; - var $14267 = $14268; + var $14376 = _tail$8; + var $14375 = $14376; } else { - var $14269 = List$cons$(_head$7, _tail$8); - var $14267 = $14269; + var $14377 = List$cons$(_head$7, _tail$8); + var $14375 = $14377; }; - var $14263 = $14267; + var $14371 = $14375; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46583,11 +46889,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14270 = List$nil; - var $14263 = $14270; + var $14378 = List$nil; + var $14371 = $14378; break; }; - return $14263; + return $14371; }; const Kind$Comp$compile$adt$get_fields = x0 => Kind$Comp$compile$adt$get_fields$(x0); @@ -46595,14 +46901,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $14272 = self.name; - var $14273 = self.xtyp; - var $14274 = self.body; - var _tail$7 = Kind$Comp$compile$adt$get_constructors$($14274(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var _name$8 = $14272; - var _flds$9 = Kind$Comp$compile$adt$get_fields$($14273); - var $14275 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); - var $14271 = $14275; + var $14380 = self.name; + var $14381 = self.xtyp; + var $14382 = self.body; + var _tail$7 = Kind$Comp$compile$adt$get_constructors$($14382(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var _name$8 = $14380; + var _flds$9 = Kind$Comp$compile$adt$get_fields$($14381); + var $14383 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); + var $14379 = $14383; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46626,21 +46932,21 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14276 = List$nil; - var $14271 = $14276; + var $14384 = List$nil; + var $14379 = $14384; break; }; - return $14271; + return $14379; }; 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 $14277 = ({ + var $14385 = ({ _: 'Kind.Comp.Prim.data', 'name': _name$1, 'ctrs': _ctrs$2 }); - return $14277; + return $14385; }; const Kind$Comp$Prim$data = x0 => x1 => Kind$Comp$Prim$data$(x0, x1); @@ -46649,20 +46955,20 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.all': - var $14279 = self.self; - var $14280 = self.body; - var self = String$ends_with$($14279, ".Self"); + var $14387 = self.self; + var $14388 = self.body; + var self = String$ends_with$($14387, ".Self"); if (self) { - var _body$9 = $14280(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n)); + var _body$9 = $14388(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$($14279) - 5n <= 0n ? 0n : String$length$($14279) - 5n), $14279); - var $14282 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); - var $14281 = $14282; + var _name$11 = String$take$((String$length$($14387) - 5n <= 0n ? 0n : String$length$($14387) - 5n), $14387); + var $14390 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); + var $14389 = $14390; } else { - var $14283 = Maybe$none; - var $14281 = $14283; + var $14391 = Maybe$none; + var $14389 = $14391; }; - var $14278 = $14281; + var $14386 = $14389; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46686,89 +46992,89 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14284 = Maybe$none; - var $14278 = $14284; + var $14392 = Maybe$none; + var $14386 = $14392; break; }; - return $14278; + return $14386; }; const Kind$Comp$compile$adt = x0 => x1 => Kind$Comp$compile$adt$(x0, x1); function Kind$Comp$eli$(_prim$1, _expr$2) { - var $14285 = ({ + var $14393 = ({ _: 'Kind.Comp.eli', 'prim': _prim$1, 'expr': _expr$2 }); - return $14285; + return $14393; }; const Kind$Comp$eli = x0 => x1 => Kind$Comp$eli$(x0, x1); function Kind$Comp$app$(_func$1, _argm$2) { - var $14286 = ({ + var $14394 = ({ _: 'Kind.Comp.app', 'func': _func$1, 'argm': _argm$2 }); - return $14286; + return $14394; }; const Kind$Comp$app = x0 => x1 => Kind$Comp$app$(x0, x1); function Kind$Comp$let$(_name$1, _expr$2, _body$3) { - var $14287 = ({ + var $14395 = ({ _: 'Kind.Comp.let', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $14287; + return $14395; }; const Kind$Comp$let = x0 => x1 => x2 => Kind$Comp$let$(x0, x1, x2); function Kind$Comp$nat$(_natx$1) { - var $14288 = ({ + var $14396 = ({ _: 'Kind.Comp.nat', 'natx': _natx$1 }); - return $14288; + return $14396; }; const Kind$Comp$nat = x0 => Kind$Comp$nat$(x0); function Kind$Comp$chr$(_chrx$1) { - var $14289 = ({ + var $14397 = ({ _: 'Kind.Comp.chr', 'chrx': _chrx$1 }); - return $14289; + return $14397; }; const Kind$Comp$chr = x0 => Kind$Comp$chr$(x0); function Kind$Comp$str$(_strx$1) { - var $14290 = ({ + var $14398 = ({ _: 'Kind.Comp.str', 'strx': _strx$1 }); - return $14290; + return $14398; }; const Kind$Comp$str = x0 => Kind$Comp$str$(x0); function Kind$Comp$lam$(_name$1, _body$2) { - var $14291 = ({ + var $14399 = ({ _: 'Kind.Comp.lam', 'name': _name$1, 'body': _body$2 }); - return $14291; + return $14399; }; const Kind$Comp$lam = x0 => x1 => Kind$Comp$lam$(x0, x1); function Kind$Comp$ins$(_prim$1, _expr$2) { - var $14292 = ({ + var $14400 = ({ _: 'Kind.Comp.ins', 'prim': _prim$1, 'expr': _expr$2 }); - return $14292; + return $14400; }; const Kind$Comp$ins = x0 => x1 => Kind$Comp$ins$(x0, x1); @@ -46776,63 +47082,63 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $14294 = self.value; - var _typv$6 = Kind$Term$reduce$($14294, _defs$3); + var $14402 = self.value; + var _typv$6 = Kind$Term$reduce$($14402, _defs$3); var self = _term$1; switch (self._) { case 'Kind.Term.lam': - var $14296 = self.name; - var $14297 = self.body; + var $14404 = self.name; + var $14405 = self.body; var self = _typv$6; switch (self._) { case 'Kind.Term.all': - var $14299 = self.eras; - var $14300 = self.xtyp; - var $14301 = self.body; - var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $14294); - var _name_uid$15 = ($14296 + ("$" + Nat$show$(_size$4))); - var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $14300); - var _body_typ$17 = $14301(_self_var$14)(_name_var$16); - var self = Kind$Comp$compile$($14297(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); + var $14407 = self.eras; + var $14408 = self.xtyp; + var $14409 = self.body; + var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $14402); + var _name_uid$15 = ($14404 + ("$" + Nat$show$(_size$4))); + var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $14408); + var _body_typ$17 = $14409(_self_var$14)(_name_var$16); + var self = Kind$Comp$compile$($14405(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $14303 = self.fst; - var self = $14299; + var $14411 = self.fst; + var self = $14407; if (self) { - var $14305 = $14303; - var _term_cmp$20 = $14305; + var $14413 = $14411; + var _term_cmp$20 = $14413; } else { - var $14306 = Kind$Comp$lam$(_name_uid$15, $14303); - var _term_cmp$20 = $14306; + var $14414 = Kind$Comp$lam$(_name_uid$15, $14411); + var _term_cmp$20 = $14414; }; - var self = Kind$Comp$compile$prim_of$($14294, _defs$3); + var self = Kind$Comp$compile$prim_of$($14402, _defs$3); switch (self._) { case 'Maybe.some': - var $14307 = self.value; - var $14308 = Kind$Comp$ins$($14307, _term_cmp$20); - var _term_cmp$21 = $14308; + var $14415 = self.value; + var $14416 = Kind$Comp$ins$($14415, _term_cmp$20); + var _term_cmp$21 = $14416; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($14294, _defs$3); + var self = Kind$Comp$compile$adt$($14402, _defs$3); switch (self._) { case 'Maybe.some': - var $14310 = self.value; - var $14311 = Kind$Comp$ins$($14310, _term_cmp$20); - var $14309 = $14311; + var $14418 = self.value; + var $14419 = Kind$Comp$ins$($14418, _term_cmp$20); + var $14417 = $14419; break; case 'Maybe.none': - var $14312 = _term_cmp$20; - var $14309 = $14312; + var $14420 = _term_cmp$20; + var $14417 = $14420; break; }; - var _term_cmp$21 = $14309; + var _term_cmp$21 = $14417; break; }; - var $14304 = Pair$new$(_term_cmp$21, $14294); - var $14302 = $14304; + var $14412 = Pair$new$(_term_cmp$21, $14402); + var $14410 = $14412; break; }; - var $14298 = $14302; + var $14406 = $14410; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46856,48 +47162,48 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14313 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14298 = $14313; + var $14421 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14406 = $14421; break; }; - var $14295 = $14298; + var $14403 = $14406; break; case 'Kind.Term.let': - var $14314 = self.name; - var $14315 = self.expr; - var $14316 = self.body; - var self = Kind$Comp$compile$($14315, Maybe$none, _defs$3, _size$4); + var $14422 = self.name; + var $14423 = self.expr; + var $14424 = self.body; + var self = Kind$Comp$compile$($14423, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14318 = self.fst; - var $14319 = self.snd; - var _name_uid$12 = ($14314 + ("$" + Nat$show$(_size$4))); - var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $14319); - var self = Kind$Comp$compile$($14316(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); + var $14426 = self.fst; + var $14427 = self.snd; + var _name_uid$12 = ($14422 + ("$" + Nat$show$(_size$4))); + var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $14427); + var self = Kind$Comp$compile$($14424(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $14321 = self.fst; - var $14322 = self.snd; - var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $14318, $14321); - var _term_typ$17 = $14322; - var $14323 = Pair$new$(_term_cmp$16, _term_typ$17); - var $14320 = $14323; + var $14429 = self.fst; + var $14430 = self.snd; + var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $14426, $14429); + var _term_typ$17 = $14430; + var $14431 = Pair$new$(_term_cmp$16, _term_typ$17); + var $14428 = $14431; break; }; - var $14317 = $14320; + var $14425 = $14428; break; }; - var $14295 = $14317; + var $14403 = $14425; break; case 'Kind.Term.imp': - var $14324 = self.expr; - var $14325 = Kind$Comp$compile$($14324, _type$2, _defs$3, _size$4); - var $14295 = $14325; + var $14432 = self.expr; + var $14433 = Kind$Comp$compile$($14432, _type$2, _defs$3, _size$4); + var $14403 = $14433; break; case 'Kind.Term.ori': - var $14326 = self.expr; - var $14327 = Kind$Comp$compile$($14326, _type$2, _defs$3, _size$4); - var $14295 = $14327; + var $14434 = self.expr; + var $14435 = Kind$Comp$compile$($14434, _type$2, _defs$3, _size$4); + var $14403 = $14435; break; case 'Kind.Term.var': case 'Kind.Term.app': @@ -46926,15 +47232,15 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14329 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14328 = $14329; + var $14437 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14436 = $14437; break; case 'Kind.Term.typ': - var $14330 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14328 = $14330; + var $14438 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14436 = $14438; break; }; - var $14295 = $14328; + var $14403 = $14436; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -46966,15 +47272,15 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14332 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14331 = $14332; + var $14440 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14439 = $14440; break; case 'Kind.Term.typ': - var $14333 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14331 = $14333; + var $14441 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14439 = $14441; break; }; - var $14295 = $14331; + var $14403 = $14439; break; case 'Kind.Term.typ': var self = _typv$6; @@ -47001,15 +47307,15 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14335 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14334 = $14335; + var $14443 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14442 = $14443; break; case 'Kind.Term.typ': - var $14336 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14334 = $14336; + var $14444 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14442 = $14444; break; }; - var $14295 = $14334; + var $14403 = $14442; break; case 'Kind.Term.all': var self = _typv$6; @@ -47036,15 +47342,15 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14338 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14337 = $14338; + var $14446 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14445 = $14446; break; case 'Kind.Term.typ': - var $14339 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14337 = $14339; + var $14447 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14445 = $14447; break; }; - var $14295 = $14337; + var $14403 = $14445; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -47077,15 +47383,15 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14341 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14340 = $14341; + var $14449 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14448 = $14449; break; case 'Kind.Term.typ': - var $14342 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14340 = $14342; + var $14450 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14448 = $14450; break; }; - var $14295 = $14340; + var $14403 = $14448; break; case 'Kind.Term.cse': var self = _typv$6; @@ -47112,107 +47418,107 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14344 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14294); - var $14343 = $14344; + var $14452 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14402); + var $14451 = $14452; break; case 'Kind.Term.typ': - var $14345 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14343 = $14345; + var $14453 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14451 = $14453; break; }; - var $14295 = $14343; + var $14403 = $14451; break; }; - var $14293 = $14295; + var $14401 = $14403; break; case 'Maybe.none': var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14347 = self.name; - var $14348 = self.indx; - var $14349 = Pair$new$(Kind$Comp$var$($14347), Kind$Term$var$($14347, $14348)); - var $14346 = $14349; + var $14455 = self.name; + var $14456 = self.indx; + var $14457 = Pair$new$(Kind$Comp$var$($14455), Kind$Term$var$($14455, $14456)); + var $14454 = $14457; break; case 'Kind.Term.ref': - var $14350 = self.name; - var self = Kind$Map$get$($14350, _defs$3); + var $14458 = self.name; + var self = Kind$Map$get$($14458, _defs$3); switch (self._) { case 'Maybe.some': - var $14352 = self.value; - var $14353 = Pair$new$(Kind$Comp$ref$($14350), (() => { - var self = $14352; + var $14460 = self.value; + var $14461 = Pair$new$(Kind$Comp$ref$($14458), (() => { + var self = $14460; switch (self._) { case 'Kind.Def.new': - var $14354 = self.type; - var $14355 = $14354; - return $14355; + var $14462 = self.type; + var $14463 = $14462; + return $14463; }; })()); - var $14351 = $14353; + var $14459 = $14461; break; case 'Maybe.none': - var $14356 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14351 = $14356; + var $14464 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14459 = $14464; break; }; - var $14346 = $14351; + var $14454 = $14459; break; case 'Kind.Term.app': - var $14357 = self.func; - var $14358 = self.argm; - var self = Kind$Comp$compile$($14357, Maybe$none, _defs$3, _size$4); + var $14465 = self.func; + var $14466 = self.argm; + var self = Kind$Comp$compile$($14465, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14360 = self.fst; - var $14361 = self.snd; - var self = Kind$Term$reduce$($14361, _defs$3); + var $14468 = self.fst; + var $14469 = self.snd; + var self = Kind$Term$reduce$($14469, _defs$3); switch (self._) { case 'Kind.Term.all': - var $14363 = self.eras; - var $14364 = self.xtyp; - var $14365 = self.body; - var self = Kind$Comp$compile$($14358, Maybe$some$($14364), _defs$3, _size$4); + var $14471 = self.eras; + var $14472 = self.xtyp; + var $14473 = self.body; + var self = Kind$Comp$compile$($14466, Maybe$some$($14472), _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14367 = self.fst; - var _term_typ$16 = $14365($14357)($14358); - var self = Kind$Comp$compile$prim_of$($14361, _defs$3); + var $14475 = self.fst; + var _term_typ$16 = $14473($14465)($14466); + var self = Kind$Comp$compile$prim_of$($14469, _defs$3); switch (self._) { case 'Maybe.some': - var $14369 = self.value; - var $14370 = Kind$Comp$eli$($14369, $14360); - var _term_cmp$17 = $14370; + var $14477 = self.value; + var $14478 = Kind$Comp$eli$($14477, $14468); + var _term_cmp$17 = $14478; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($14361, _defs$3); + var self = Kind$Comp$compile$adt$($14469, _defs$3); switch (self._) { case 'Maybe.some': - var $14372 = self.value; - var $14373 = Kind$Comp$eli$($14372, $14360); - var $14371 = $14373; + var $14480 = self.value; + var $14481 = Kind$Comp$eli$($14480, $14468); + var $14479 = $14481; break; case 'Maybe.none': - var $14374 = $14360; - var $14371 = $14374; + var $14482 = $14468; + var $14479 = $14482; break; }; - var _term_cmp$17 = $14371; + var _term_cmp$17 = $14479; break; }; - var self = $14363; + var self = $14471; if (self) { - var $14375 = _term_cmp$17; - var _term_cmp$18 = $14375; + var $14483 = _term_cmp$17; + var _term_cmp$18 = $14483; } else { - var $14376 = Kind$Comp$app$(_term_cmp$17, $14367); - var _term_cmp$18 = $14376; + var $14484 = Kind$Comp$app$(_term_cmp$17, $14475); + var _term_cmp$18 = $14484; }; - var $14368 = Pair$new$(_term_cmp$18, _term_typ$16); - var $14366 = $14368; + var $14476 = Pair$new$(_term_cmp$18, _term_typ$16); + var $14474 = $14476; break; }; - var $14362 = $14366; + var $14470 = $14474; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -47236,76 +47542,76 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $14377 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14362 = $14377; + var $14485 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14470 = $14485; break; }; - var $14359 = $14362; + var $14467 = $14470; break; }; - var $14346 = $14359; + var $14454 = $14467; break; case 'Kind.Term.let': - var $14378 = self.name; - var $14379 = self.expr; - var $14380 = self.body; - var self = Kind$Comp$compile$($14379, Maybe$none, _defs$3, _size$4); + var $14486 = self.name; + var $14487 = self.expr; + var $14488 = self.body; + var self = Kind$Comp$compile$($14487, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14382 = self.fst; - var $14383 = self.snd; - var _name_uid$10 = ($14378 + ("$" + Nat$show$(_size$4))); - var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $14383); - var self = Kind$Comp$compile$($14380(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); + var $14490 = self.fst; + var $14491 = self.snd; + var _name_uid$10 = ($14486 + ("$" + Nat$show$(_size$4))); + var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $14491); + var self = Kind$Comp$compile$($14488(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $14385 = self.fst; - var $14386 = self.snd; - var $14387 = Pair$new$(Kind$Comp$let$(_name_uid$10, $14382, $14385), $14386); - var $14384 = $14387; + var $14493 = self.fst; + var $14494 = self.snd; + var $14495 = Pair$new$(Kind$Comp$let$(_name_uid$10, $14490, $14493), $14494); + var $14492 = $14495; break; }; - var $14381 = $14384; + var $14489 = $14492; break; }; - var $14346 = $14381; + var $14454 = $14489; break; case 'Kind.Term.def': - var $14388 = self.expr; - var $14389 = self.body; - var $14390 = Kind$Comp$compile$($14389($14388), Maybe$none, _defs$3, _size$4); - var $14346 = $14390; + var $14496 = self.expr; + var $14497 = self.body; + var $14498 = Kind$Comp$compile$($14497($14496), Maybe$none, _defs$3, _size$4); + var $14454 = $14498; break; case 'Kind.Term.ann': - var $14391 = self.term; - var $14392 = self.type; - var $14393 = Kind$Comp$compile$($14391, Maybe$some$($14392), _defs$3, _size$4); - var $14346 = $14393; + var $14499 = self.term; + var $14500 = self.type; + var $14501 = Kind$Comp$compile$($14499, Maybe$some$($14500), _defs$3, _size$4); + var $14454 = $14501; break; case 'Kind.Term.nat': - var $14394 = self.natx; - var $14395 = Pair$new$(Kind$Comp$nat$($14394), Kind$Term$ref$("Nat")); - var $14346 = $14395; + var $14502 = self.natx; + var $14503 = Pair$new$(Kind$Comp$nat$($14502), Kind$Term$ref$("Nat")); + var $14454 = $14503; break; case 'Kind.Term.chr': - var $14396 = self.chrx; - var $14397 = Pair$new$(Kind$Comp$chr$($14396), Kind$Term$ref$("Char")); - var $14346 = $14397; + var $14504 = self.chrx; + var $14505 = Pair$new$(Kind$Comp$chr$($14504), Kind$Term$ref$("Char")); + var $14454 = $14505; break; case 'Kind.Term.str': - var $14398 = self.strx; - var $14399 = Pair$new$(Kind$Comp$str$($14398), Kind$Term$ref$("String")); - var $14346 = $14399; + var $14506 = self.strx; + var $14507 = Pair$new$(Kind$Comp$str$($14506), Kind$Term$ref$("String")); + var $14454 = $14507; break; case 'Kind.Term.imp': - var $14400 = self.expr; - var $14401 = Kind$Comp$compile$($14400, Maybe$none, _defs$3, _size$4); - var $14346 = $14401; + var $14508 = self.expr; + var $14509 = Kind$Comp$compile$($14508, Maybe$none, _defs$3, _size$4); + var $14454 = $14509; break; case 'Kind.Term.ori': - var $14402 = self.expr; - var $14403 = Kind$Comp$compile$($14402, Maybe$none, _defs$3, _size$4); - var $14346 = $14403; + var $14510 = self.expr; + var $14511 = Kind$Comp$compile$($14510, Maybe$none, _defs$3, _size$4); + var $14454 = $14511; break; case 'Kind.Term.typ': case 'Kind.Term.all': @@ -47319,14 +47625,14 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $14404 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14346 = $14404; + var $14512 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14454 = $14512; break; }; - var $14293 = $14346; + var $14401 = $14454; break; }; - return $14293; + return $14401; }; const Kind$Comp$compile = x0 => x1 => x2 => x3 => Kind$Comp$compile$(x0, x1, x2, x3); @@ -47334,34 +47640,34 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $14406 = self.term; - var $14407 = self.type; - var self = Kind$Comp$compile$($14406, Maybe$some$($14407), _defs$2, 0n); + var $14514 = self.term; + var $14515 = self.type; + var self = Kind$Comp$compile$($14514, Maybe$some$($14515), _defs$2, 0n); switch (self._) { case 'Pair.new': - var $14409 = self.fst; - var $14410 = $14409; - var $14408 = $14410; + var $14517 = self.fst; + var $14518 = $14517; + var $14516 = $14518; break; }; - var $14405 = $14408; + var $14513 = $14516; break; }; - return $14405; + return $14513; }; 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 $14412 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); - return $14412; + var $14520 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); + return $14520; }), _defs$1); var _defs$3 = BitsMap$map$((_x$3 => { - var $14413 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); - return $14413; + var $14521 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); + return $14521; }), _defs$2); - var $14411 = _defs$3; - return $14411; + var $14519 = _defs$3; + return $14519; }; const Kind$Comp$Defs$compile = x0 => Kind$Comp$Defs$compile$(x0); @@ -47369,124 +47675,124 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.ref': - var $14415 = self.name; - var self = Kind$Map$get$($14415, _seen$3); + var $14523 = self.name; + var self = Kind$Map$get$($14523, _seen$3); switch (self._) { case 'Maybe.none': - var self = Kind$Map$get$($14415, _defs$2); + var self = Kind$Map$get$($14523, _defs$2); switch (self._) { case 'Maybe.some': - var $14418 = self.value; - var _term$7 = $14418; - var _seen$8 = Kind$Map$set$($14415, Unit$new, _seen$3); + var $14526 = self.value; + var _term$7 = $14526; + var _seen$8 = Kind$Map$set$($14523, 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 $14420 = self.fst; - var $14421 = self.snd; - var _list$11 = List$cons$(Pair$new$($14415, $14418), $14421); - var $14422 = Pair$new$($14420, _list$11); - var $14419 = $14422; + var $14528 = self.fst; + var $14529 = self.snd; + var _list$11 = List$cons$(Pair$new$($14523, $14526), $14529); + var $14530 = Pair$new$($14528, _list$11); + var $14527 = $14530; break; }; - var $14417 = $14419; + var $14525 = $14527; break; case 'Maybe.none': - var $14423 = Pair$new$(_seen$3, _list$4); - var $14417 = $14423; + var $14531 = Pair$new$(_seen$3, _list$4); + var $14525 = $14531; break; }; - var $14416 = $14417; + var $14524 = $14525; break; case 'Maybe.some': - var $14424 = Pair$new$(_seen$3, _list$4); - var $14416 = $14424; + var $14532 = Pair$new$(_seen$3, _list$4); + var $14524 = $14532; break; }; - var $14414 = $14416; + var $14522 = $14524; break; case 'Kind.Comp.lam': - var $14425 = self.body; - var self = Kind$Comp$dependency_sort$go$($14425, _defs$2, _seen$3, _list$4); + var $14533 = self.body; + var self = Kind$Comp$dependency_sort$go$($14533, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $14427 = self.fst; - var $14428 = self.snd; - var $14429 = Pair$new$($14427, $14428); - var $14426 = $14429; + var $14535 = self.fst; + var $14536 = self.snd; + var $14537 = Pair$new$($14535, $14536); + var $14534 = $14537; break; }; - var $14414 = $14426; + var $14522 = $14534; break; case 'Kind.Comp.app': - var $14430 = self.func; - var $14431 = self.argm; - var self = Kind$Comp$dependency_sort$go$($14430, _defs$2, _seen$3, _list$4); + var $14538 = self.func; + var $14539 = self.argm; + var self = Kind$Comp$dependency_sort$go$($14538, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $14433 = self.fst; - var $14434 = self.snd; - var self = Kind$Comp$dependency_sort$go$($14431, _defs$2, $14433, $14434); + var $14541 = self.fst; + var $14542 = self.snd; + var self = Kind$Comp$dependency_sort$go$($14539, _defs$2, $14541, $14542); switch (self._) { case 'Pair.new': - var $14436 = self.fst; - var $14437 = self.snd; - var $14438 = Pair$new$($14436, $14437); - var $14435 = $14438; + var $14544 = self.fst; + var $14545 = self.snd; + var $14546 = Pair$new$($14544, $14545); + var $14543 = $14546; break; }; - var $14432 = $14435; + var $14540 = $14543; break; }; - var $14414 = $14432; + var $14522 = $14540; break; case 'Kind.Comp.let': - var $14439 = self.expr; - var $14440 = self.body; - var self = Kind$Comp$dependency_sort$go$($14439, _defs$2, _seen$3, _list$4); + var $14547 = self.expr; + var $14548 = self.body; + var self = Kind$Comp$dependency_sort$go$($14547, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $14442 = self.fst; - var $14443 = self.snd; - var self = Kind$Comp$dependency_sort$go$($14440, _defs$2, $14442, $14443); + var $14550 = self.fst; + var $14551 = self.snd; + var self = Kind$Comp$dependency_sort$go$($14548, _defs$2, $14550, $14551); switch (self._) { case 'Pair.new': - var $14445 = self.fst; - var $14446 = self.snd; - var $14447 = Pair$new$($14445, $14446); - var $14444 = $14447; + var $14553 = self.fst; + var $14554 = self.snd; + var $14555 = Pair$new$($14553, $14554); + var $14552 = $14555; break; }; - var $14441 = $14444; + var $14549 = $14552; break; }; - var $14414 = $14441; + var $14522 = $14549; break; case 'Kind.Comp.eli': - var $14448 = self.expr; - var self = Kind$Comp$dependency_sort$go$($14448, _defs$2, _seen$3, _list$4); + var $14556 = self.expr; + var self = Kind$Comp$dependency_sort$go$($14556, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $14450 = self.fst; - var $14451 = self.snd; - var $14452 = Pair$new$($14450, $14451); - var $14449 = $14452; + var $14558 = self.fst; + var $14559 = self.snd; + var $14560 = Pair$new$($14558, $14559); + var $14557 = $14560; break; }; - var $14414 = $14449; + var $14522 = $14557; break; case 'Kind.Comp.ins': - var $14453 = self.expr; - var self = Kind$Comp$dependency_sort$go$($14453, _defs$2, _seen$3, _list$4); + var $14561 = self.expr; + var self = Kind$Comp$dependency_sort$go$($14561, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $14455 = self.fst; - var $14456 = self.snd; - var $14457 = Pair$new$($14455, $14456); - var $14454 = $14457; + var $14563 = self.fst; + var $14564 = self.snd; + var $14565 = Pair$new$($14563, $14564); + var $14562 = $14565; break; }; - var $14414 = $14454; + var $14522 = $14562; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -47494,11 +47800,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14458 = Pair$new$(_seen$3, _list$4); - var $14414 = $14458; + var $14566 = Pair$new$(_seen$3, _list$4); + var $14522 = $14566; break; }; - return $14414; + return $14522; }; const Kind$Comp$dependency_sort$go = x0 => x1 => x2 => x3 => Kind$Comp$dependency_sort$go$(x0, x1, x2, x3); @@ -47509,34 +47815,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 $14460 = self.snd; - var $14461 = List$reverse$($14460); - var $14459 = $14461; + var $14568 = self.snd; + var $14569 = List$reverse$($14568); + var $14567 = $14569; break; }; - return $14459; + return $14567; }; 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 $14463 = String$nil; - var $14462 = $14463; + var $14571 = String$nil; + var $14570 = $14571; } else { - var $14464 = self.charCodeAt(0); - var $14465 = self.slice(1); - var self = _f$1($14464); + var $14572 = self.charCodeAt(0); + var $14573 = self.slice(1); + var self = _f$1($14572); if (self) { - var $14467 = String$cons$($14464, String$take_while$(_f$1, $14465)); - var $14466 = $14467; + var $14575 = String$cons$($14572, String$take_while$(_f$1, $14573)); + var $14574 = $14575; } else { - var $14468 = String$nil; - var $14466 = $14468; + var $14576 = String$nil; + var $14574 = $14576; }; - var $14462 = $14466; + var $14570 = $14574; }; - return $14462; + return $14570; }; const String$take_while = x0 => x1 => String$take_while$(x0, x1); @@ -47552,20 +47858,20 @@ module.exports = (function() { var R = (() => { var self = _xs$2; if (self.length === 0) { - var $14469 = String$nil; - return $14469; + var $14577 = String$nil; + return $14577; } else { - var $14470 = self.charCodeAt(0); - var $14471 = self.slice(1); - var self = _f$1($14470); + var $14578 = self.charCodeAt(0); + var $14579 = self.slice(1); + var self = _f$1($14578); if (self) { - var $14473 = String$drop_while$(_f$1, $14471); - var $14472 = $14473; + var $14581 = String$drop_while$(_f$1, $14579); + var $14580 = $14581; } else { - var $14474 = _xs$2; - var $14472 = $14474; + var $14582 = _xs$2; + var $14580 = $14582; }; - return $14472; + return $14580; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47577,38 +47883,38 @@ module.exports = (function() { function Kind$Comp$replace$(_str$1, _vars$2) { var self = _str$1; if (self.length === 0) { - var $14476 = _str$1; - var $14475 = $14476; + var $14584 = _str$1; + var $14583 = $14584; } else { - var $14477 = self.charCodeAt(0); - var $14478 = self.slice(1); - var _a$5 = $14477; + var $14585 = self.charCodeAt(0); + var $14586 = self.slice(1); + var _a$5 = $14585; var self = (_a$5 === 36); if (self) { var _n_str$6 = String$take_while$((_b$6 => { - var $14481 = ((_b$6 >= 48) && (_b$6 <= 57)); - return $14481; - }), $14478); + var $14589 = ((_b$6 >= 48) && (_b$6 <= 57)); + return $14589; + }), $14586); var self = (String$length$(_n_str$6) > 0n); if (self) { var _n_str$tail$7 = String$drop_while$((_b$7 => { - var $14483 = ((_b$7 >= 48) && (_b$7 <= 57)); - return $14483; - }), $14478); - var $14482 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); - var $14480 = $14482; + var $14591 = ((_b$7 >= 48) && (_b$7 <= 57)); + return $14591; + }), $14586); + var $14590 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); + var $14588 = $14590; } else { - var $14484 = String$cons$(_a$5, Kind$Comp$replace$($14478, _vars$2)); - var $14480 = $14484; + var $14592 = String$cons$(_a$5, Kind$Comp$replace$($14586, _vars$2)); + var $14588 = $14592; }; - var $14479 = $14480; + var $14587 = $14588; } else { - var $14485 = String$cons$(_a$5, Kind$Comp$replace$($14478, _vars$2)); - var $14479 = $14485; + var $14593 = String$cons$(_a$5, Kind$Comp$replace$($14586, _vars$2)); + var $14587 = $14593; }; - var $14475 = $14479; + var $14583 = $14587; }; - return $14475; + return $14583; }; const Kind$Comp$replace = x0 => x1 => Kind$Comp$replace$(x0, x1); @@ -47624,12 +47930,12 @@ module.exports = (function() { var R = (() => { var self = _len$2; if (self === 0n) { - var $14486 = _result$4; - return $14486; + var $14594 = _result$4; + return $14594; } else { - var $14487 = (self - 1n); - var $14488 = List$create$go$($14487, _create_value$3, List$cons$(_create_value$3($14487), _result$4)); - return $14488; + var $14595 = (self - 1n); + var $14596 = List$create$go$($14595, _create_value$3, List$cons$(_create_value$3($14595), _result$4)); + return $14596; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47639,8 +47945,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 $14489 = List$create$go$(_len$2, _create_value$3, List$nil); - return $14489; + var $14597 = List$create$go$(_len$2, _create_value$3, List$nil); + return $14597; }; const List$create = x0 => x1 => List$create$(x0, x1); @@ -47648,38 +47954,38 @@ module.exports = (function() { var self = _ctor$5; switch (self._) { case 'Pair.new': - var $14491 = self.fst; - var $14492 = self.snd; - var self = (_j$6 === $14491); + var $14599 = self.fst; + var $14600 = self.snd; + var self = (_j$6 === $14599); if (self) { - var $14494 = Kind$Comp$replace$($14492, List$create$($14491, (_j$9 => { - var $14495 = ("x" + Nat$show$(_j$9)); - return $14495; + var $14602 = Kind$Comp$replace$($14600, List$create$($14599, (_j$9 => { + var $14603 = ("x" + Nat$show$(_j$9)); + return $14603; }))); - var $14493 = $14494; + var $14601 = $14602; } else { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14497 = self.gram; - var $14498 = $14497; - var self = $14498; + var $14605 = self.gram; + var $14606 = $14605; + var self = $14606; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14499 = self.lambda; - var $14500 = $14499; - var $14496 = $14500; + var $14607 = self.lambda; + var $14608 = $14607; + var $14604 = $14608; break; }; - var $14496 = $14496(("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 $14493 = $14496; + var $14604 = $14604(("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 $14601 = $14604; }; - var $14490 = $14493; + var $14598 = $14601; break; }; - return $14490; + return $14598; }; const Kind$Comp$Prim$instantiator$go = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Comp$Prim$instantiator$go$(x0, x1, x2, x3, x4, x5); @@ -47687,65 +47993,65 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14502 = self.nati; - var $14503 = $14502; - var _shape$5 = $14503; + var $14610 = self.nati; + var $14611 = $14610; + var _shape$5 = $14611; break; }; var _shape$5 = _shape$5(_prim$2); var self = _shape$5; switch (self._) { case 'Kind.Comp.Native.new': - var $14504 = self.inst; + var $14612 = self.inst; var _text$8 = "x"; var _text$9 = (() => { - var $14507 = _text$8; - var $14508 = $14504; - let _text$10 = $14507; + var $14615 = _text$8; + var $14616 = $14612; + let _text$10 = $14615; let _ctor$9; - while ($14508._ === 'List.cons') { - _ctor$9 = $14508.head; + while ($14616._ === 'List.cons') { + _ctor$9 = $14616.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14509 = self.gram; - var $14510 = $14509; - var self = $14510; + var $14617 = self.gram; + var $14618 = $14617; + var self = $14618; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14511 = self.application; - var $14512 = $14511; - var $14507 = $14512; + var $14619 = self.application; + var $14620 = $14619; + var $14615 = $14620; break; }; - var $14507 = $14507(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); - _text$10 = $14507; - $14508 = $14508.tail; + var $14615 = $14615(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); + _text$10 = $14615; + $14616 = $14616.tail; } return _text$10; })(); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14513 = self.gram; - var $14514 = $14513; - var self = $14514; + var $14621 = self.gram; + var $14622 = $14621; + var self = $14622; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14515 = self.lambda; - var $14516 = $14515; - var $14505 = $14516; + var $14623 = self.lambda; + var $14624 = $14623; + var $14613 = $14624; break; }; - var $14505 = $14505("x")(_text$9); - var $14501 = $14505; + var $14613 = $14613("x")(_text$9); + var $14609 = $14613; break; }; - return $14501; + return $14609; }; const Kind$Comp$Prim$instantiator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$instantiator$(x0, x1, x2, x3); @@ -47762,10 +48068,10 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.app': - var $14517 = self.func; - var $14518 = self.argm; - var $14519 = Kind$Comp$get_args$go$($14517, List$cons$($14518, _args$2)); - return $14519; + var $14625 = self.func; + var $14626 = self.argm; + var $14627 = Kind$Comp$get_args$go$($14625, List$cons$($14626, _args$2)); + return $14627; case 'Kind.Comp.nil': case 'Kind.Comp.var': case 'Kind.Comp.ref': @@ -47777,8 +48083,8 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14520 = Pair$new$(_term$1, _args$2); - return $14520; + var $14628 = Pair$new$(_term$1, _args$2); + return $14628; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47788,8 +48094,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 $14521 = Kind$Comp$get_args$go$(_term$1, List$nil); - return $14521; + var $14629 = Kind$Comp$get_args$go$(_term$1, List$nil); + return $14629; }; const Kind$Comp$get_args = x0 => Kind$Comp$get_args$(x0); @@ -47797,9 +48103,9 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $14523 = self.body; - var $14524 = (1n + Kind$Comp$get_arity$($14523)); - var $14522 = $14524; + var $14631 = self.body; + var $14632 = (1n + Kind$Comp$get_arity$($14631)); + var $14630 = $14632; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -47812,11 +48118,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14525 = 0n; - var $14522 = $14525; + var $14633 = 0n; + var $14630 = $14633; break; }; - return $14522; + return $14630; }; const Kind$Comp$get_arity = x0 => Kind$Comp$get_arity$(x0); @@ -47824,18 +48130,18 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $14527 = self.name; - var $14528 = self.body; - var self = Kind$Comp$get_vars$($14528); + var $14635 = self.name; + var $14636 = self.body; + var self = Kind$Comp$get_vars$($14636); switch (self._) { case 'Pair.new': - var $14530 = self.fst; - var $14531 = self.snd; - var $14532 = Pair$new$(List$cons$($14527, $14530), $14531); - var $14529 = $14532; + var $14638 = self.fst; + var $14639 = self.snd; + var $14640 = Pair$new$(List$cons$($14635, $14638), $14639); + var $14637 = $14640; break; }; - var $14526 = $14529; + var $14634 = $14637; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -47848,11 +48154,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14533 = Pair$new$(List$nil, _term$1); - var $14526 = $14533; + var $14641 = Pair$new$(List$nil, _term$1); + var $14634 = $14641; break; }; - return $14526; + return $14634; }; const Kind$Comp$get_vars = x0 => Kind$Comp$get_vars$(x0); @@ -47869,57 +48175,57 @@ module.exports = (function() { var self = _inst$3; switch (self._) { case 'List.cons': - var $14534 = self.head; - var $14535 = self.tail; + var $14642 = self.head; + var $14643 = self.tail; var self = _vars$4; switch (self._) { case 'List.cons': - var $14537 = self.head; - var $14538 = self.tail; - var self = (_name$2 === $14537); + var $14645 = self.head; + var $14646 = self.tail; + var self = (_name$2 === $14645); if (self) { - var self = $14534; + var self = $14642; switch (self._) { case 'Pair.new': - var $14541 = self.fst; - var $14542 = self.snd; - var self = ($14541 === (list_length(_args$5))); + var $14649 = self.fst; + var $14650 = self.snd; + var self = ($14649 === (list_length(_args$5))); if (self) { - var $14544 = Maybe$some$(Kind$Comp$replace$($14542, List$mapped$(_args$5, (_x$14 => { - var $14545 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); - return $14545; + var $14652 = Maybe$some$(Kind$Comp$replace$($14650, List$mapped$(_args$5, (_x$14 => { + var $14653 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); + return $14653; })))); - var $14543 = $14544; + var $14651 = $14652; } else { - var $14546 = Maybe$none; - var $14543 = $14546; + var $14654 = Maybe$none; + var $14651 = $14654; }; - var $14540 = $14543; + var $14648 = $14651; break; }; - var $14539 = $14540; + var $14647 = $14648; } else { - var $14547 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $14535, $14538, _args$5, _depth$6, _defs$7); - var $14539 = $14547; + var $14655 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $14643, $14646, _args$5, _depth$6, _defs$7); + var $14647 = $14655; }; - var $14536 = $14539; + var $14644 = $14647; break; case 'List.nil': - var $14548 = Maybe$none; - var $14536 = $14548; + var $14656 = Maybe$none; + var $14644 = $14656; break; }; - return $14536; + return $14644; case 'List.nil': var self = _vars$4; switch (self._) { case 'List.nil': case 'List.cons': - var $14550 = Maybe$none; - var $14549 = $14550; + var $14658 = Maybe$none; + var $14657 = $14658; break; }; - return $14549; + return $14657; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47932,44 +48238,44 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Comp.ins': - var $14552 = self.prim; - var $14553 = self.expr; + var $14660 = self.prim; + var $14661 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14555 = self.nati; - var $14556 = $14555; - var _shape$7 = $14556; + var $14663 = self.nati; + var $14664 = $14663; + var _shape$7 = $14664; break; }; - var _shape$7 = _shape$7($14552); + var _shape$7 = _shape$7($14660); var self = _shape$7; switch (self._) { case 'Kind.Comp.Native.new': - var $14557 = self.inst; - var self = Kind$Comp$get_vars$($14553); + var $14665 = self.inst; + var self = Kind$Comp$get_vars$($14661); switch (self._) { case 'Pair.new': - var $14559 = self.fst; - var $14560 = self.snd; - var self = ((list_length($14557)) === (list_length($14559))); + var $14667 = self.fst; + var $14668 = self.snd; + var self = ((list_length($14665)) === (list_length($14667))); if (self) { - var self = Kind$Comp$get_args$($14560); + var self = Kind$Comp$get_args$($14668); switch (self._) { case 'Pair.new': - var $14563 = self.fst; - var $14564 = self.snd; - var self = $14563; + var $14671 = self.fst; + var $14672 = self.snd; + var self = $14671; switch (self._) { case 'Kind.Comp.var': - var $14566 = self.name; - var $14567 = Kind$Comp$Prim$inst$go$(_lang$1, $14566, $14557, $14559, $14564, _depth$3, _defs$4); - var $14565 = $14567; + var $14674 = self.name; + var $14675 = Kind$Comp$Prim$inst$go$(_lang$1, $14674, $14665, $14667, $14672, _depth$3, _defs$4); + var $14673 = $14675; break; case 'Kind.Comp.ref': - var $14568 = self.name; - var $14569 = Kind$Comp$Prim$inst$go$(_lang$1, $14568, $14557, $14559, $14564, _depth$3, _defs$4); - var $14565 = $14569; + var $14676 = self.name; + var $14677 = Kind$Comp$Prim$inst$go$(_lang$1, $14676, $14665, $14667, $14672, _depth$3, _defs$4); + var $14673 = $14677; break; case 'Kind.Comp.nil': case 'Kind.Comp.lam': @@ -47981,25 +48287,25 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14570 = Maybe$none; - var $14565 = $14570; + var $14678 = Maybe$none; + var $14673 = $14678; break; }; - var $14562 = $14565; + var $14670 = $14673; break; }; - var $14561 = $14562; + var $14669 = $14670; } else { - var $14571 = Maybe$none; - var $14561 = $14571; + var $14679 = Maybe$none; + var $14669 = $14679; }; - var $14558 = $14561; + var $14666 = $14669; break; }; - var $14554 = $14558; + var $14662 = $14666; break; }; - var $14551 = $14554; + var $14659 = $14662; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -48012,11 +48318,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14572 = Maybe$none; - var $14551 = $14572; + var $14680 = Maybe$none; + var $14659 = $14680; break; }; - return $14551; + return $14659; }; const Kind$Comp$Prim$inst = x0 => x1 => x2 => x3 => Kind$Comp$Prim$inst$(x0, x1, x2, x3); @@ -48024,30 +48330,30 @@ module.exports = (function() { var self = _word$6; switch (self._) { case 'Word.o': - var $14574 = self.pred; - var $14575 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $14574)); - var $14573 = $14575; + var $14682 = self.pred; + var $14683 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $14682)); + var $14681 = $14683; break; case 'Word.i': - var $14576 = self.pred; - var $14577 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $14576)); - var $14573 = $14577; + var $14684 = self.pred; + var $14685 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $14684)); + var $14681 = $14685; break; case 'Word.e': - var $14578 = _nil$3; - var $14573 = $14578; + var $14686 = _nil$3; + var $14681 = $14686; break; }; - return $14573; + return $14681; }; const Word$fold = x0 => x1 => x2 => x3 => Word$fold$(x0, x1, x2, x3); function Word$to_nat$(_word$2) { - var $14579 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { - var $14580 = Nat$succ$((2n * _x$4)); - return $14580; + var $14687 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { + var $14688 = Nat$succ$((2n * _x$4)); + return $14688; }), _word$2); - return $14579; + return $14687; }; const Word$to_nat = x0 => Word$to_nat$(x0); const U16$to_nat = a0 => (BigInt(a0)); @@ -48057,731 +48363,731 @@ module.exports = (function() { var self = Kind$Comp$Prim$inst$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $14582 = self.value; - var $14583 = $14582; - var $14581 = $14583; + var $14690 = self.value; + var $14691 = $14690; + var $14689 = $14691; break; case 'Maybe.none': var self = Kind$Comp$Prim$elim$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $14585 = self.value; - var $14586 = $14585; - var $14584 = $14586; + var $14693 = self.value; + var $14694 = $14693; + var $14692 = $14694; break; case 'Maybe.none': var self = _comp$2; switch (self._) { case 'Kind.Comp.var': - var $14588 = self.name; + var $14696 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14590 = self.gram; - var $14591 = $14590; - var self = $14591; + var $14698 = self.gram; + var $14699 = $14698; + var self = $14699; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14592 = self.name; - var $14593 = $14592; - var $14589 = $14593; + var $14700 = self.name; + var $14701 = $14700; + var $14697 = $14701; break; }; - var $14589 = $14589($14588); - var $14587 = $14589; + var $14697 = $14697($14696); + var $14695 = $14697; break; case 'Kind.Comp.ref': - var $14594 = self.name; + var $14702 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14596 = self.gram; - var $14597 = $14596; - var self = $14597; + var $14704 = self.gram; + var $14705 = $14704; + var self = $14705; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14598 = self.name; - var $14599 = $14598; - var $14595 = $14599; + var $14706 = self.name; + var $14707 = $14706; + var $14703 = $14707; break; }; - var $14595 = $14595($14594); - var $14587 = $14595; + var $14703 = $14703($14702); + var $14695 = $14703; break; case 'Kind.Comp.lam': - var $14600 = self.name; - var $14601 = self.body; + var $14708 = self.name; + var $14709 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14603 = self.gram; - var $14604 = $14603; - var self = $14604; + var $14711 = self.gram; + var $14712 = $14711; + var self = $14712; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14605 = self.lambda; - var $14606 = $14605; - var $14602 = $14606; + var $14713 = self.lambda; + var $14714 = $14713; + var $14710 = $14714; break; }; - var $14602 = $14602((() => { + var $14710 = $14710((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14607 = self.gram; - var $14608 = $14607; - var self = $14608; + var $14715 = self.gram; + var $14716 = $14715; + var self = $14716; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14609 = self.name; - var $14610 = $14609; - return $14610; + var $14717 = self.name; + var $14718 = $14717; + return $14718; }; - })()($14600))(_go$5($14601)(Nat$succ$(_depth$3))(_defs$4)); - var $14587 = $14602; + })()($14708))(_go$5($14709)(Nat$succ$(_depth$3))(_defs$4)); + var $14695 = $14710; break; case 'Kind.Comp.app': - var $14611 = self.func; - var $14612 = self.argm; + var $14719 = self.func; + var $14720 = self.argm; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14614 = self.gram; - var $14615 = $14614; - var self = $14615; + var $14722 = self.gram; + var $14723 = $14722; + var self = $14723; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14616 = self.application; - var $14617 = $14616; - var $14613 = $14617; + var $14724 = self.application; + var $14725 = $14724; + var $14721 = $14725; break; }; - var $14613 = $14613(_go$5($14611)(_depth$3)(_defs$4))(_go$5($14612)(_depth$3)(_defs$4)); - var $14587 = $14613; + var $14721 = $14721(_go$5($14719)(_depth$3)(_defs$4))(_go$5($14720)(_depth$3)(_defs$4)); + var $14695 = $14721; break; case 'Kind.Comp.let': - var $14618 = self.name; - var $14619 = self.expr; - var $14620 = self.body; + var $14726 = self.name; + var $14727 = self.expr; + var $14728 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14622 = self.gram; - var $14623 = $14622; - var self = $14623; + var $14730 = self.gram; + var $14731 = $14730; + var self = $14731; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14624 = self.local_definition; - var $14625 = $14624; - var $14621 = $14625; + var $14732 = self.local_definition; + var $14733 = $14732; + var $14729 = $14733; break; }; - var $14621 = $14621((() => { + var $14729 = $14729((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14626 = self.gram; - var $14627 = $14626; - var self = $14627; + var $14734 = self.gram; + var $14735 = $14734; + var self = $14735; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14628 = self.name; - var $14629 = $14628; - return $14629; + var $14736 = self.name; + var $14737 = $14736; + return $14737; }; - })()($14618))(_go$5($14619)(_depth$3)(_defs$4))(_go$5($14620)(Nat$succ$(_depth$3))(_defs$4)); - var $14587 = $14621; + })()($14726))(_go$5($14727)(_depth$3)(_defs$4))(_go$5($14728)(Nat$succ$(_depth$3))(_defs$4)); + var $14695 = $14729; break; case 'Kind.Comp.eli': - var $14630 = self.prim; - var $14631 = self.expr; - var self = $14630; + var $14738 = self.prim; + var $14739 = self.expr; + var self = $14738; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14634 = self.gram; - var $14635 = $14634; - var self = $14635; + var $14742 = self.gram; + var $14743 = $14742; + var self = $14743; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14636 = self.application; - var $14637 = $14636; - var $14633 = $14637; + var $14744 = self.application; + var $14745 = $14744; + var $14741 = $14745; break; }; - var $14633 = $14633((() => { + var $14741 = $14741((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14638 = self.gram; - var $14639 = $14638; - var self = $14639; + var $14746 = self.gram; + var $14747 = $14746; + var self = $14747; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14640 = self.elim_name; - var $14641 = $14640; - return $14641; + var $14748 = self.elim_name; + var $14749 = $14748; + return $14749; }; - })()("Bool"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14633; + })()("Bool"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14741; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14643 = self.gram; - var $14644 = $14643; - var self = $14644; + var $14751 = self.gram; + var $14752 = $14751; + var self = $14752; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14645 = self.application; - var $14646 = $14645; - var $14642 = $14646; + var $14753 = self.application; + var $14754 = $14753; + var $14750 = $14754; break; }; - var $14642 = $14642((() => { + var $14750 = $14750((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14647 = self.gram; - var $14648 = $14647; - var self = $14648; + var $14755 = self.gram; + var $14756 = $14755; + var self = $14756; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14649 = self.elim_name; - var $14650 = $14649; - return $14650; + var $14757 = self.elim_name; + var $14758 = $14757; + return $14758; }; - })()("Bits"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14642; + })()("Bits"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14750; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14652 = self.gram; - var $14653 = $14652; - var self = $14653; + var $14760 = self.gram; + var $14761 = $14760; + var self = $14761; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14654 = self.application; - var $14655 = $14654; - var $14651 = $14655; + var $14762 = self.application; + var $14763 = $14762; + var $14759 = $14763; break; }; - var $14651 = $14651((() => { + var $14759 = $14759((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14656 = self.gram; - var $14657 = $14656; - var self = $14657; + var $14764 = self.gram; + var $14765 = $14764; + var self = $14765; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14658 = self.elim_name; - var $14659 = $14658; - return $14659; + var $14766 = self.elim_name; + var $14767 = $14766; + return $14767; }; - })()("Unit"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14651; + })()("Unit"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14759; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14661 = self.gram; - var $14662 = $14661; - var self = $14662; + var $14769 = self.gram; + var $14770 = $14769; + var self = $14770; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14663 = self.application; - var $14664 = $14663; - var $14660 = $14664; + var $14771 = self.application; + var $14772 = $14771; + var $14768 = $14772; break; }; - var $14660 = $14660((() => { + var $14768 = $14768((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14665 = self.gram; - var $14666 = $14665; - var self = $14666; + var $14773 = self.gram; + var $14774 = $14773; + var self = $14774; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14667 = self.elim_name; - var $14668 = $14667; - return $14668; + var $14775 = self.elim_name; + var $14776 = $14775; + return $14776; }; - })()("Nat"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14660; + })()("Nat"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14768; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14670 = self.gram; - var $14671 = $14670; - var self = $14671; + var $14778 = self.gram; + var $14779 = $14778; + var self = $14779; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14672 = self.application; - var $14673 = $14672; - var $14669 = $14673; + var $14780 = self.application; + var $14781 = $14780; + var $14777 = $14781; break; }; - var $14669 = $14669((() => { + var $14777 = $14777((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14674 = self.gram; - var $14675 = $14674; - var self = $14675; + var $14782 = self.gram; + var $14783 = $14782; + var self = $14783; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14676 = self.elim_name; - var $14677 = $14676; - return $14677; + var $14784 = self.elim_name; + var $14785 = $14784; + return $14785; }; - })()("U16"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14669; + })()("U16"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14777; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14679 = self.gram; - var $14680 = $14679; - var self = $14680; + var $14787 = self.gram; + var $14788 = $14787; + var self = $14788; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14681 = self.application; - var $14682 = $14681; - var $14678 = $14682; + var $14789 = self.application; + var $14790 = $14789; + var $14786 = $14790; break; }; - var $14678 = $14678((() => { + var $14786 = $14786((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14683 = self.gram; - var $14684 = $14683; - var self = $14684; + var $14791 = self.gram; + var $14792 = $14791; + var self = $14792; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14685 = self.elim_name; - var $14686 = $14685; - return $14686; + var $14793 = self.elim_name; + var $14794 = $14793; + return $14794; }; - })()("U32"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14678; + })()("U32"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14786; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14688 = self.gram; - var $14689 = $14688; - var self = $14689; + var $14796 = self.gram; + var $14797 = $14796; + var self = $14797; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14690 = self.application; - var $14691 = $14690; - var $14687 = $14691; + var $14798 = self.application; + var $14799 = $14798; + var $14795 = $14799; break; }; - var $14687 = $14687((() => { + var $14795 = $14795((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14692 = self.gram; - var $14693 = $14692; - var self = $14693; + var $14800 = self.gram; + var $14801 = $14800; + var self = $14801; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14694 = self.elim_name; - var $14695 = $14694; - return $14695; + var $14802 = self.elim_name; + var $14803 = $14802; + return $14803; }; - })()("String"))(_go$5($14631)(_depth$3)(_defs$4)); - var $14632 = $14687; + })()("String"))(_go$5($14739)(_depth$3)(_defs$4)); + var $14740 = $14795; break; case 'Kind.Comp.Prim.data': - var $14696 = _go$5($14631)(_depth$3)(_defs$4); - var $14632 = $14696; + var $14804 = _go$5($14739)(_depth$3)(_defs$4); + var $14740 = $14804; break; }; - var $14587 = $14632; + var $14695 = $14740; break; case 'Kind.Comp.ins': - var $14697 = self.prim; - var $14698 = self.expr; - var self = $14697; + var $14805 = self.prim; + var $14806 = self.expr; + var self = $14805; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14701 = self.gram; - var $14702 = $14701; - var self = $14702; + var $14809 = self.gram; + var $14810 = $14809; + var self = $14810; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14703 = self.application; - var $14704 = $14703; - var $14700 = $14704; + var $14811 = self.application; + var $14812 = $14811; + var $14808 = $14812; break; }; - var $14700 = $14700((() => { + var $14808 = $14808((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14705 = self.gram; - var $14706 = $14705; - var self = $14706; + var $14813 = self.gram; + var $14814 = $14813; + var self = $14814; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14707 = self.inst_name; - var $14708 = $14707; - return $14708; + var $14815 = self.inst_name; + var $14816 = $14815; + return $14816; }; - })()("Bool"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14700; + })()("Bool"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14808; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14710 = self.gram; - var $14711 = $14710; - var self = $14711; + var $14818 = self.gram; + var $14819 = $14818; + var self = $14819; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14712 = self.application; - var $14713 = $14712; - var $14709 = $14713; + var $14820 = self.application; + var $14821 = $14820; + var $14817 = $14821; break; }; - var $14709 = $14709((() => { + var $14817 = $14817((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14714 = self.gram; - var $14715 = $14714; - var self = $14715; + var $14822 = self.gram; + var $14823 = $14822; + var self = $14823; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14716 = self.inst_name; - var $14717 = $14716; - return $14717; + var $14824 = self.inst_name; + var $14825 = $14824; + return $14825; }; - })()("Bits"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14709; + })()("Bits"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14817; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14719 = self.gram; - var $14720 = $14719; - var self = $14720; + var $14827 = self.gram; + var $14828 = $14827; + var self = $14828; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14721 = self.application; - var $14722 = $14721; - var $14718 = $14722; + var $14829 = self.application; + var $14830 = $14829; + var $14826 = $14830; break; }; - var $14718 = $14718((() => { + var $14826 = $14826((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14723 = self.gram; - var $14724 = $14723; - var self = $14724; + var $14831 = self.gram; + var $14832 = $14831; + var self = $14832; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14725 = self.inst_name; - var $14726 = $14725; - return $14726; + var $14833 = self.inst_name; + var $14834 = $14833; + return $14834; }; - })()("Unit"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14718; + })()("Unit"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14826; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14728 = self.gram; - var $14729 = $14728; - var self = $14729; + var $14836 = self.gram; + var $14837 = $14836; + var self = $14837; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14730 = self.application; - var $14731 = $14730; - var $14727 = $14731; + var $14838 = self.application; + var $14839 = $14838; + var $14835 = $14839; break; }; - var $14727 = $14727((() => { + var $14835 = $14835((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14732 = self.gram; - var $14733 = $14732; - var self = $14733; + var $14840 = self.gram; + var $14841 = $14840; + var self = $14841; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14734 = self.inst_name; - var $14735 = $14734; - return $14735; + var $14842 = self.inst_name; + var $14843 = $14842; + return $14843; }; - })()("Nat"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14727; + })()("Nat"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14835; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14737 = self.gram; - var $14738 = $14737; - var self = $14738; + var $14845 = self.gram; + var $14846 = $14845; + var self = $14846; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14739 = self.application; - var $14740 = $14739; - var $14736 = $14740; + var $14847 = self.application; + var $14848 = $14847; + var $14844 = $14848; break; }; - var $14736 = $14736((() => { + var $14844 = $14844((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14741 = self.gram; - var $14742 = $14741; - var self = $14742; + var $14849 = self.gram; + var $14850 = $14849; + var self = $14850; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14743 = self.inst_name; - var $14744 = $14743; - return $14744; + var $14851 = self.inst_name; + var $14852 = $14851; + return $14852; }; - })()("U16"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14736; + })()("U16"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14844; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14746 = self.gram; - var $14747 = $14746; - var self = $14747; + var $14854 = self.gram; + var $14855 = $14854; + var self = $14855; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14748 = self.application; - var $14749 = $14748; - var $14745 = $14749; + var $14856 = self.application; + var $14857 = $14856; + var $14853 = $14857; break; }; - var $14745 = $14745((() => { + var $14853 = $14853((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14750 = self.gram; - var $14751 = $14750; - var self = $14751; + var $14858 = self.gram; + var $14859 = $14858; + var self = $14859; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14752 = self.inst_name; - var $14753 = $14752; - return $14753; + var $14860 = self.inst_name; + var $14861 = $14860; + return $14861; }; - })()("U32"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14745; + })()("U32"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14853; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14755 = self.gram; - var $14756 = $14755; - var self = $14756; + var $14863 = self.gram; + var $14864 = $14863; + var self = $14864; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14757 = self.application; - var $14758 = $14757; - var $14754 = $14758; + var $14865 = self.application; + var $14866 = $14865; + var $14862 = $14866; break; }; - var $14754 = $14754((() => { + var $14862 = $14862((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14759 = self.gram; - var $14760 = $14759; - var self = $14760; + var $14867 = self.gram; + var $14868 = $14867; + var self = $14868; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14761 = self.inst_name; - var $14762 = $14761; - return $14762; + var $14869 = self.inst_name; + var $14870 = $14869; + return $14870; }; - })()("String"))(_go$5($14698)(_depth$3)(_defs$4)); - var $14699 = $14754; + })()("String"))(_go$5($14806)(_depth$3)(_defs$4)); + var $14807 = $14862; break; case 'Kind.Comp.Prim.data': - var $14763 = _go$5($14698)(_depth$3)(_defs$4); - var $14699 = $14763; + var $14871 = _go$5($14806)(_depth$3)(_defs$4); + var $14807 = $14871; break; }; - var $14587 = $14699; + var $14695 = $14807; break; case 'Kind.Comp.nat': - var $14764 = self.natx; + var $14872 = self.natx; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14766 = self.gram; - var $14767 = $14766; - var self = $14767; + var $14874 = self.gram; + var $14875 = $14874; + var self = $14875; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14768 = self.nat; - var $14769 = $14768; - var $14765 = $14769; + var $14876 = self.nat; + var $14877 = $14876; + var $14873 = $14877; break; }; - var $14765 = $14765($14764); - var $14587 = $14765; + var $14873 = $14873($14872); + var $14695 = $14873; break; case 'Kind.Comp.chr': - var $14770 = self.chrx; - var $14771 = Nat$show$((BigInt($14770))); - var $14587 = $14771; + var $14878 = self.chrx; + var $14879 = Nat$show$((BigInt($14878))); + var $14695 = $14879; break; case 'Kind.Comp.str': - var $14772 = self.strx; - var $14773 = ("\"" + ((() => { + var $14880 = self.strx; + var $14881 = ("\"" + ((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14774 = self.gram; - var $14775 = $14774; - var self = $14775; + var $14882 = self.gram; + var $14883 = $14882; + var self = $14883; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14776 = self.string_literal; - var $14777 = $14776; - return $14777; + var $14884 = self.string_literal; + var $14885 = $14884; + return $14885; }; - })()($14772) + "\"")); - var $14587 = $14773; + })()($14880) + "\"")); + var $14695 = $14881; break; case 'Kind.Comp.txt': - var $14778 = self.text; - var $14779 = $14778; - var $14587 = $14779; + var $14886 = self.text; + var $14887 = $14886; + var $14695 = $14887; break; case 'Kind.Comp.nil': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14781 = self.gram; - var $14782 = $14781; - var self = $14782; + var $14889 = self.gram; + var $14890 = $14889; + var self = $14890; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14783 = self.null; - var $14784 = $14783; - var $14780 = $14784; + var $14891 = self.null; + var $14892 = $14891; + var $14888 = $14892; break; }; - var $14587 = $14780; + var $14695 = $14888; break; }; - var $14584 = $14587; + var $14692 = $14695; break; }; - var $14581 = $14584; + var $14689 = $14692; break; }; - return $14581; + return $14689; }; const Kind$Comp$transpile$term = x0 => x1 => x2 => x3 => Kind$Comp$transpile$term$(x0, x1, x2, x3); @@ -48789,17 +49095,17 @@ module.exports = (function() { var self = _as$4; switch (self._) { case 'List.cons': - var $14786 = self.head; - var $14787 = self.tail; - var $14788 = List$cons$(_f$3($14786), List$map$(_f$3, $14787)); - var $14785 = $14788; + var $14894 = self.head; + var $14895 = self.tail; + var $14896 = List$cons$(_f$3($14894), List$map$(_f$3, $14895)); + var $14893 = $14896; break; case 'List.nil': - var $14789 = List$nil; - var $14785 = $14789; + var $14897 = List$nil; + var $14893 = $14897; break; }; - return $14785; + return $14893; }; const List$map = x0 => x1 => List$map$(x0, x1); @@ -48815,12 +49121,12 @@ module.exports = (function() { var R = (() => { var self = _n$1; if (self === 0n) { - var $14790 = _xs$2; - return $14790; + var $14898 = _xs$2; + return $14898; } else { - var $14791 = (self - 1n); - var $14792 = List$seq$go$($14791, List$cons$($14791, _xs$2)); - return $14792; + var $14899 = (self - 1n); + var $14900 = List$seq$go$($14899, List$cons$($14899, _xs$2)); + return $14900; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -48830,17 +49136,17 @@ module.exports = (function() { const List$seq$go = x0 => x1 => List$seq$go$(x0, x1); function List$seq$(_n$1) { - var $14793 = List$seq$go$(_n$1, List$nil); - return $14793; + var $14901 = List$seq$go$(_n$1, List$nil); + return $14901; }; const List$seq = x0 => List$seq$(x0); function Kind$Comp$txt$(_text$1) { - var $14794 = ({ + var $14902 = ({ _: 'Kind.Comp.txt', 'text': _text$1 }); - return $14794; + return $14902; }; const Kind$Comp$txt = x0 => Kind$Comp$txt$(x0); @@ -48848,97 +49154,97 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Comp.var': - var $14796 = self.name; - var self = (_name$1 === $14796); + var $14904 = self.name; + var self = (_name$1 === $14904); if (self) { - var $14798 = _value$2; - var $14797 = $14798; + var $14906 = _value$2; + var $14905 = $14906; } else { - var $14799 = Kind$Comp$var$($14796); - var $14797 = $14799; + var $14907 = Kind$Comp$var$($14904); + var $14905 = $14907; }; - var $14795 = $14797; + var $14903 = $14905; break; case 'Kind.Comp.ref': - var $14800 = self.name; - var $14801 = Kind$Comp$ref$($14800); - var $14795 = $14801; + var $14908 = self.name; + var $14909 = Kind$Comp$ref$($14908); + var $14903 = $14909; break; case 'Kind.Comp.lam': - var $14802 = self.name; - var $14803 = self.body; - var $14804 = Kind$Comp$lam$($14802, (() => { - var self = (_name$1 === $14802); + var $14910 = self.name; + var $14911 = self.body; + var $14912 = Kind$Comp$lam$($14910, (() => { + var self = (_name$1 === $14910); if (self) { - var $14805 = $14803; - return $14805; + var $14913 = $14911; + return $14913; } else { - var $14806 = Kind$Comp$subst$(_name$1, _value$2, $14803); - return $14806; + var $14914 = Kind$Comp$subst$(_name$1, _value$2, $14911); + return $14914; }; })()); - var $14795 = $14804; + var $14903 = $14912; break; case 'Kind.Comp.app': - var $14807 = self.func; - var $14808 = self.argm; - var $14809 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $14807), Kind$Comp$subst$(_name$1, _value$2, $14808)); - var $14795 = $14809; + var $14915 = self.func; + var $14916 = self.argm; + var $14917 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $14915), Kind$Comp$subst$(_name$1, _value$2, $14916)); + var $14903 = $14917; break; case 'Kind.Comp.let': - var $14810 = self.name; - var $14811 = self.expr; - var $14812 = self.body; - var $14813 = Kind$Comp$let$($14810, Kind$Comp$subst$(_name$1, _value$2, $14811), (() => { - var self = (_name$1 === $14810); + var $14918 = self.name; + var $14919 = self.expr; + var $14920 = self.body; + var $14921 = Kind$Comp$let$($14918, Kind$Comp$subst$(_name$1, _value$2, $14919), (() => { + var self = (_name$1 === $14918); if (self) { - var $14814 = $14812; - return $14814; + var $14922 = $14920; + return $14922; } else { - var $14815 = Kind$Comp$subst$(_name$1, _value$2, $14812); - return $14815; + var $14923 = Kind$Comp$subst$(_name$1, _value$2, $14920); + return $14923; }; })()); - var $14795 = $14813; + var $14903 = $14921; break; case 'Kind.Comp.eli': - var $14816 = self.prim; - var $14817 = self.expr; - var $14818 = Kind$Comp$eli$($14816, Kind$Comp$subst$(_name$1, _value$2, $14817)); - var $14795 = $14818; + var $14924 = self.prim; + var $14925 = self.expr; + var $14926 = Kind$Comp$eli$($14924, Kind$Comp$subst$(_name$1, _value$2, $14925)); + var $14903 = $14926; break; case 'Kind.Comp.ins': - var $14819 = self.prim; - var $14820 = self.expr; - var $14821 = Kind$Comp$ins$($14819, Kind$Comp$subst$(_name$1, _value$2, $14820)); - var $14795 = $14821; + var $14927 = self.prim; + var $14928 = self.expr; + var $14929 = Kind$Comp$ins$($14927, Kind$Comp$subst$(_name$1, _value$2, $14928)); + var $14903 = $14929; break; case 'Kind.Comp.nat': - var $14822 = self.natx; - var $14823 = Kind$Comp$nat$($14822); - var $14795 = $14823; + var $14930 = self.natx; + var $14931 = Kind$Comp$nat$($14930); + var $14903 = $14931; break; case 'Kind.Comp.chr': - var $14824 = self.chrx; - var $14825 = Kind$Comp$chr$($14824); - var $14795 = $14825; + var $14932 = self.chrx; + var $14933 = Kind$Comp$chr$($14932); + var $14903 = $14933; break; case 'Kind.Comp.str': - var $14826 = self.strx; - var $14827 = Kind$Comp$str$($14826); - var $14795 = $14827; + var $14934 = self.strx; + var $14935 = Kind$Comp$str$($14934); + var $14903 = $14935; break; case 'Kind.Comp.txt': - var $14828 = self.text; - var $14829 = Kind$Comp$txt$($14828); - var $14795 = $14829; + var $14936 = self.text; + var $14937 = Kind$Comp$txt$($14936); + var $14903 = $14937; break; case 'Kind.Comp.nil': - var $14830 = Kind$Comp$nil; - var $14795 = $14830; + var $14938 = Kind$Comp$nil; + var $14903 = $14938; break; }; - return $14795; + return $14903; }; const Kind$Comp$subst = x0 => x1 => x2 => Kind$Comp$subst$(x0, x1, x2); @@ -48955,15 +49261,15 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.cons': - var $14831 = self.head; - var $14832 = self.tail; + var $14939 = self.head; + var $14940 = self.tail; var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $14834 = self.name; - var $14835 = self.body; - var $14836 = Kind$Comp$apply$(Kind$Comp$subst$($14834, $14831, $14835), $14832); - var $14833 = $14836; + var $14942 = self.name; + var $14943 = self.body; + var $14944 = Kind$Comp$apply$(Kind$Comp$subst$($14942, $14939, $14943), $14940); + var $14941 = $14944; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -48976,14 +49282,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14837 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $14831), $14832); - var $14833 = $14837; + var $14945 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $14939), $14940); + var $14941 = $14945; break; }; - return $14833; + return $14941; case 'List.nil': - var $14838 = _term$1; - return $14838; + var $14946 = _term$1; + return $14946; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -48996,216 +49302,216 @@ module.exports = (function() { var self = Kind$Comp$get_args$(_term$2); switch (self._) { case 'Pair.new': - var $14840 = self.fst; - var $14841 = self.snd; - var self = $14840; + var $14948 = self.fst; + var $14949 = self.snd; + var self = $14948; switch (self._) { case 'Kind.Comp.ref': - var $14843 = self.name; - var self = Kind$Map$get$($14843, _defs$4); + var $14951 = self.name; + var self = Kind$Map$get$($14951, _defs$4); switch (self._) { case 'Maybe.some': - var $14845 = self.value; - var _arity$9 = Kind$Comp$get_arity$($14845); - var self = ((_arity$9 === (list_length($14841))) && (_arity$9 > 0n)); + var $14953 = self.value; + var _arity$9 = Kind$Comp$get_arity$($14953); + var self = ((_arity$9 === (list_length($14949))) && (_arity$9 > 0n)); if (self) { var _inlined_args$10 = List$map$((_arg$10 => { - var $14848 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); - return $14848; - }), $14841); + var $14956 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); + return $14956; + }), $14949); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14849 = self.gram; - var $14850 = $14849; - var self = $14850; + var $14957 = self.gram; + var $14958 = $14957; + var self = $14958; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14851 = self.global_application; - var $14852 = $14851; - var _code$11 = $14852; + var $14959 = self.global_application; + var $14960 = $14959; + var _code$11 = $14960; break; }; - var _code$11 = _code$11($14843)(_inlined_args$10); - var $14847 = Maybe$some$(_code$11); - var $14846 = $14847; + var _code$11 = _code$11($14951)(_inlined_args$10); + var $14955 = Maybe$some$(_code$11); + var $14954 = $14955; } else { - var $14853 = Maybe$none; - var $14846 = $14853; + var $14961 = Maybe$none; + var $14954 = $14961; }; - var $14844 = $14846; + var $14952 = $14954; break; case 'Maybe.none': - var $14854 = Maybe$none; - var $14844 = $14854; + var $14962 = Maybe$none; + var $14952 = $14962; break; }; - var $14842 = $14844; + var $14950 = $14952; break; case 'Kind.Comp.eli': - var $14855 = self.prim; - var $14856 = self.expr; + var $14963 = self.prim; + var $14964 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14858 = self.nati; - var $14859 = $14858; - var _shape$9 = $14859; + var $14966 = self.nati; + var $14967 = $14966; + var _shape$9 = $14967; break; }; - var _shape$9 = _shape$9($14855); + var _shape$9 = _shape$9($14963); var self = _shape$9; switch (self._) { case 'Kind.Comp.Native.new': - var $14860 = self.elim; - var self = $14860; + var $14968 = self.elim; + var self = $14968; switch (self._) { case 'Pair.new': - var $14862 = self.fst; - var $14863 = self.snd; - var _args_len$14 = (list_length($14841)); - var _cses_len$15 = (list_length($14863)); + var $14970 = self.fst; + var $14971 = self.snd; + var _args_len$14 = (list_length($14949)); + var _cses_len$15 = (list_length($14971)); var self = (_args_len$14 > _cses_len$15); if (self) { - var $14865 = Maybe$none; - var $14864 = $14865; + var $14973 = Maybe$none; + var $14972 = $14973; } else { var _lams_len$16 = (_cses_len$15 - _args_len$14 <= 0n ? 0n : _cses_len$15 - _args_len$14); - var _args$17 = Nat$for$($14841, 0n, _lams_len$16, (_i$17 => _args$18 => { - var $14867 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); - return $14867; + var _args$17 = Nat$for$($14949, 0n, _lams_len$16, (_i$17 => _args$18 => { + var $14975 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); + return $14975; })); 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 $14869 = self.fst; - var $14870 = self.snd; - var self = $14869; + var $14977 = self.fst; + var $14978 = self.snd; + var self = $14977; switch (self._) { case 'Pair.new': - var $14872 = self.fst; - var $14873 = self.snd; - var _flds_len$24 = (list_length($14873)); + var $14980 = self.fst; + var $14981 = self.snd; + var _flds_len$24 = (list_length($14981)); 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 $14875 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); - return $14875; + var $14983 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); + return $14983; })); - var _argj$28 = Kind$Comp$apply$($14870, _keys$27); + var _argj$28 = Kind$Comp$apply$($14978, _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 $14877 = _body$29; - var $14878 = _lam_args_n$26; - let _body$31 = $14877; + var $14985 = _body$29; + var $14986 = _lam_args_n$26; + let _body$31 = $14985; let _i$30; - while ($14878._ === 'List.cons') { - _i$30 = $14878.head; + while ($14986._ === 'List.cons') { + _i$30 = $14986.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14879 = self.gram; - var $14880 = $14879; - var self = $14880; + var $14987 = self.gram; + var $14988 = $14987; + var self = $14988; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14881 = self.lambda; - var $14882 = $14881; - var $14877 = $14882; + var $14989 = self.lambda; + var $14990 = $14989; + var $14985 = $14990; break; }; - var $14877 = $14877(("c" + Nat$show$(_i$30)))(_body$31); - _body$31 = $14877; - $14878 = $14878.tail; + var $14985 = $14985(("c" + Nat$show$(_i$30)))(_body$31); + _body$31 = $14985; + $14986 = $14986.tail; } return _body$31; })(); var _text$31 = _body$30; var _text$32 = (() => { - var $14884 = _text$31; - var $14885 = _let_args_n$25; - let _text$33 = $14884; + var $14992 = _text$31; + var $14993 = _let_args_n$25; + let _text$33 = $14992; let _k$32; - while ($14885._ === 'List.cons') { - _k$32 = $14885.head; + while ($14993._ === 'List.cons') { + _k$32 = $14993.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14886 = self.gram; - var $14887 = $14886; - var self = $14887; + var $14994 = self.gram; + var $14995 = $14994; + var self = $14995; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14888 = self.local_definition; - var $14889 = $14888; - var $14884 = $14889; + var $14996 = self.local_definition; + var $14997 = $14996; + var $14992 = $14997; break; }; - var $14884 = $14884(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $14873), ""), List$cons$(_self$18, List$nil)))(_text$33); - _text$33 = $14884; - $14885 = $14885.tail; + var $14992 = $14992(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $14981), ""), List$cons$(_self$18, List$nil)))(_text$33); + _text$33 = $14992; + $14993 = $14993.tail; } return _text$33; })(); - var $14874 = Pair$new$($14872, _text$32); - var $14871 = $14874; + var $14982 = Pair$new$($14980, _text$32); + var $14979 = $14982; break; }; - var $14868 = $14871; + var $14976 = $14979; break; }; - return $14868; - }), List$zip$($14863, _args$17)); + return $14976; + }), List$zip$($14971, _args$17)); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14890 = self.gram; - var $14891 = $14890; - var self = $14891; + var $14998 = self.gram; + var $14999 = $14998; + var self = $14999; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14892 = self.select; - var $14893 = $14892; - var _ret$20 = $14893; + var $15000 = self.select; + var $15001 = $15000; + var _ret$20 = $15001; break; }; - var _ret$20 = _ret$20(Kind$Comp$replace$($14862, List$cons$(_self$18, List$nil)))(_cse_body_list$19); + var _ret$20 = _ret$20(Kind$Comp$replace$($14970, List$cons$(_self$18, List$nil)))(_cse_body_list$19); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14894 = self.gram; - var $14895 = $14894; - var self = $14895; + var $15002 = self.gram; + var $15003 = $15002; + var self = $15003; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14896 = self.local_definition; - var $14897 = $14896; - var _ret$21 = $14897; + var $15004 = self.local_definition; + var $15005 = $15004; + var _ret$21 = $15005; break; }; - var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $14856, _depth$3, _defs$4))(_ret$20); - var $14866 = Maybe$some$(_ret$21); - var $14864 = $14866; + var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $14964, _depth$3, _defs$4))(_ret$20); + var $14974 = Maybe$some$(_ret$21); + var $14972 = $14974; }; - var $14861 = $14864; + var $14969 = $14972; break; }; - var $14857 = $14861; + var $14965 = $14969; break; }; - var $14842 = $14857; + var $14950 = $14965; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -49217,14 +49523,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14898 = Maybe$none; - var $14842 = $14898; + var $15006 = Maybe$none; + var $14950 = $15006; break; }; - var $14839 = $14842; + var $14947 = $14950; break; }; - return $14839; + return $14947; }; const Kind$Comp$Prim$elim = x0 => x1 => x2 => x3 => Kind$Comp$Prim$elim$(x0, x1, x2, x3); @@ -49232,8 +49538,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 $14899 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); - return $14899; + var $15007 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); + return $15007; }; const Kind$Comp$Prim$eliminator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$eliminator$(x0, x1, x2, x3); @@ -49250,29 +49556,29 @@ module.exports = (function() { var self = _map$5; switch (self._) { case 'BBT.bin': - var $14900 = self.key; - var $14901 = self.val; - var $14902 = self.left; - var $14903 = self.right; - var self = _cmp$3(_key$4)($14900); + var $15008 = self.key; + var $15009 = self.val; + var $15010 = self.left; + var $15011 = self.right; + var self = _cmp$3(_key$4)($15008); switch (self._) { case 'Cmp.ltn': - var $14905 = BBT$lookup$(_cmp$3, _key$4, $14902); - var $14904 = $14905; + var $15013 = BBT$lookup$(_cmp$3, _key$4, $15010); + var $15012 = $15013; break; case 'Cmp.eql': - var $14906 = Maybe$some$($14901); - var $14904 = $14906; + var $15014 = Maybe$some$($15009); + var $15012 = $15014; break; case 'Cmp.gtn': - var $14907 = BBT$lookup$(_cmp$3, _key$4, $14903); - var $14904 = $14907; + var $15015 = BBT$lookup$(_cmp$3, _key$4, $15011); + var $15012 = $15015; break; }; - return $14904; + return $15012; case 'BBT.tip': - var $14908 = Maybe$none; - return $14908; + var $15016 = Maybe$none; + return $15016; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49284,20 +49590,20 @@ module.exports = (function() { function U16$cmp$(_a$1, _b$2) { var self = (_a$1 < _b$2); if (self) { - var $14910 = Cmp$ltn; - var $14909 = $14910; + var $15018 = Cmp$ltn; + var $15017 = $15018; } else { var self = (_a$1 === _b$2); if (self) { - var $14912 = Cmp$eql; - var $14911 = $14912; + var $15020 = Cmp$eql; + var $15019 = $15020; } else { - var $14913 = Cmp$gtn; - var $14911 = $14913; + var $15021 = Cmp$gtn; + var $15019 = $15021; }; - var $14909 = $14911; + var $15017 = $15019; }; - return $14909; + return $15017; }; const U16$cmp = x0 => x1 => U16$cmp$(x0, x1); @@ -49315,43 +49621,43 @@ module.exports = (function() { if (self.length === 0) { var self = _b$2; if (self.length === 0) { - var $14915 = Cmp$eql; - var $14914 = $14915; + var $15023 = Cmp$eql; + var $15022 = $15023; } else { - var $14916 = self.charCodeAt(0); - var $14917 = self.slice(1); - var $14918 = Cmp$ltn; - var $14914 = $14918; + var $15024 = self.charCodeAt(0); + var $15025 = self.slice(1); + var $15026 = Cmp$ltn; + var $15022 = $15026; }; - return $14914; + return $15022; } else { - var $14919 = self.charCodeAt(0); - var $14920 = self.slice(1); + var $15027 = self.charCodeAt(0); + var $15028 = self.slice(1); var self = _b$2; if (self.length === 0) { - var $14922 = Cmp$gtn; - var $14921 = $14922; + var $15030 = Cmp$gtn; + var $15029 = $15030; } else { - var $14923 = self.charCodeAt(0); - var $14924 = self.slice(1); - var self = U16$cmp$($14919, $14923); + var $15031 = self.charCodeAt(0); + var $15032 = self.slice(1); + var self = U16$cmp$($15027, $15031); switch (self._) { case 'Cmp.ltn': - var $14926 = Cmp$ltn; - var $14925 = $14926; + var $15034 = Cmp$ltn; + var $15033 = $15034; break; case 'Cmp.eql': - var $14927 = String$cmp$($14920, $14924); - var $14925 = $14927; + var $15035 = String$cmp$($15028, $15032); + var $15033 = $15035; break; case 'Cmp.gtn': - var $14928 = Cmp$gtn; - var $14925 = $14928; + var $15036 = Cmp$gtn; + var $15033 = $15036; break; }; - var $14921 = $14925; + var $15029 = $15033; }; - return $14921; + return $15029; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49361,175 +49667,175 @@ module.exports = (function() { const String$cmp = x0 => x1 => String$cmp$(x0, x1); function Map$get$(_key$2, _map$3) { - var $14929 = BBT$lookup$(String$cmp, _key$2, _map$3); - return $14929; + var $15037 = BBT$lookup$(String$cmp, _key$2, _map$3); + return $15037; }; const Map$get = x0 => x1 => Map$get$(x0, x1); function BBT$(_K$1, _V$2) { - var $14930 = null; - return $14930; + var $15038 = null; + return $15038; }; const BBT = x0 => x1 => BBT$(x0, x1); function Map$(_V$1) { - var $14931 = null; - return $14931; + var $15039 = null; + return $15039; }; 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 $14934 = _code$4; - var $14935 = Kind$Comp$Prim$natives; - let _code$6 = $14934; + var $15042 = _code$4; + var $15043 = Kind$Comp$Prim$natives; + let _code$6 = $15042; let _nati$5; - while ($14935._ === 'List.cons') { - _nati$5 = $14935.head; + while ($15043._ === 'List.cons') { + _nati$5 = $15043.head; var self = _nati$5; switch (self._) { case 'Pair.new': - var $14936 = self.fst; - var $14937 = self.snd; + var $15044 = self.fst; + var $15045 = self.snd; var _code$9 = (_code$6 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14939 = self.gram; - var $14940 = $14939; - var self = $14940; + var $15047 = self.gram; + var $15048 = $15047; + var self = $15048; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14941 = self.global_function; - var $14942 = $14941; - return $14942; + var $15049 = self.global_function; + var $15050 = $15049; + return $15050; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14943 = self.gram; - var $14944 = $14943; - var self = $14944; + var $15051 = self.gram; + var $15052 = $15051; + var self = $15052; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14945 = self.inst_name; - var $14946 = $14945; - return $14946; + var $15053 = self.inst_name; + var $15054 = $15053; + return $15054; }; - })()($14936))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $14937, 0n, _defs$3))); + })()($15044))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $15045, 0n, _defs$3))); var _code$10 = (_code$9 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14947 = self.gram; - var $14948 = $14947; - var self = $14948; + var $15055 = self.gram; + var $15056 = $15055; + var self = $15056; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14949 = self.global_function; - var $14950 = $14949; - return $14950; + var $15057 = self.global_function; + var $15058 = $15057; + return $15058; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14951 = self.gram; - var $14952 = $14951; - var self = $14952; + var $15059 = self.gram; + var $15060 = $15059; + var self = $15060; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14953 = self.elim_name; - var $14954 = $14953; - return $14954; + var $15061 = self.elim_name; + var $15062 = $15061; + return $15062; }; - })()($14936))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $14937, 0n, _defs$3))); - var $14938 = _code$10; - var $14934 = $14938; + })()($15044))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $15045, 0n, _defs$3))); + var $15046 = _code$10; + var $15042 = $15046; break; }; - _code$6 = $14934; - $14935 = $14935.tail; + _code$6 = $15042; + $15043 = $15043.tail; } return _code$6; })(); var _code$6 = (() => { - var $14956 = _code$5; - var $14957 = _defs_list$2; - let _code$7 = $14956; + var $15064 = _code$5; + var $15065 = _defs_list$2; + let _code$7 = $15064; let _defn$6; - while ($14957._ === 'List.cons') { - _defn$6 = $14957.head; + while ($15065._ === 'List.cons') { + _defn$6 = $15065.head; var self = _defn$6; switch (self._) { case 'Pair.new': - var $14958 = self.fst; - var $14959 = self.snd; - var self = Kind$Comp$get_vars$($14959); + var $15066 = self.fst; + var $15067 = self.snd; + var self = Kind$Comp$get_vars$($15067); switch (self._) { case 'Pair.new': - var $14961 = self.fst; - var $14962 = self.snd; - var self = Map$get$($14958, (() => { + var $15069 = self.fst; + var $15070 = self.snd; + var self = Map$get$($15066, (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14964 = self.opts; - var $14965 = $14964; - return $14965; + var $15072 = self.opts; + var $15073 = $15072; + return $15073; }; })()); switch (self._) { case 'Maybe.some': - var $14966 = self.value; - var $14967 = Kind$Comp$replace$(Pair$snd$($14966), $14961); - var _inlined_body$12 = $14967; + var $15074 = self.value; + var $15075 = Kind$Comp$replace$(Pair$snd$($15074), $15069); + var _inlined_body$12 = $15075; break; case 'Maybe.none': - var $14968 = Kind$Comp$transpile$term$(_lang$1, $14962, 0n, _defs$3); - var _inlined_body$12 = $14968; + var $15076 = Kind$Comp$transpile$term$(_lang$1, $15070, 0n, _defs$3); + var _inlined_body$12 = $15076; break; }; var _code$13 = (_code$7 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14969 = self.gram; - var $14970 = $14969; - var self = $14970; + var $15077 = self.gram; + var $15078 = $15077; + var self = $15078; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14971 = self.global_function; - var $14972 = $14971; - return $14972; + var $15079 = self.global_function; + var $15080 = $15079; + return $15080; }; - })()($14958)($14961)(_inlined_body$12)); - var $14963 = _code$13; - var $14960 = $14963; + })()($15066)($15069)(_inlined_body$12)); + var $15071 = _code$13; + var $15068 = $15071; break; }; - var $14956 = $14960; + var $15064 = $15068; break; }; - _code$7 = $14956; - $14957 = $14957.tail; + _code$7 = $15064; + $15065 = $15065.tail; } return _code$7; })(); - var $14932 = _code$6; - return $14932; + var $15040 = _code$6; + return $15040; }; const Kind$Comp$transpile$global_definitions = x0 => x1 => x2 => Kind$Comp$transpile$global_definitions$(x0, x1, x2); @@ -49538,46 +49844,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14974 = self.gram; - var $14975 = $14974; - var self = $14975; + var $15082 = self.gram; + var $15083 = $15082; + var self = $15083; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14976 = self.program; - var $14977 = $14976; - var _code$5 = $14977; + var $15084 = self.program; + var $15085 = $15084; + var _code$5 = $15085; break; }; var _code$5 = _code$5(_main$2)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14978 = self.base; - var $14979 = $14978; - return $14979; + var $15086 = self.base; + var $15087 = $15086; + return $15087; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$4, _defs$3)))); - var $14973 = _code$5; - return $14973; + var $15081 = _code$5; + return $15081; }; 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 $14980 = ({ + var $15088 = ({ _: 'Kind.Comp.Language.new', 'gram': _gram$1, 'nati': _nati$2, 'opts': _opts$3, 'base': _base$4 }); - return $14980; + return $15088; }; 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 $14981 = ({ + var $15089 = ({ _: 'Kind.Comp.Grammar.new', 'null': _null$1, 'name': _name$2, @@ -49594,7 +49900,7 @@ module.exports = (function() { 'module': _module$13, 'program': _program$14 }); - return $14981; + return $15089; }; 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 = "\'()"; @@ -49602,49 +49908,49 @@ module.exports = (function() { function Kind$Comp$Target$Scheme$name$(_name$1) { var self = String$is_empty$(_name$1); if (self) { - var $14983 = "-"; - var $14982 = $14983; + var $15091 = "-"; + var $15090 = $15091; } else { - var $14984 = _name$1; - var $14982 = $14984; + var $15092 = _name$1; + var $15090 = $15092; }; - return $14982; + return $15090; }; const Kind$Comp$Target$Scheme$name = x0 => Kind$Comp$Target$Scheme$name$(x0); function Kind$Comp$Target$Scheme$inst_name$(_name$1) { - var $14985 = (_name$1 + "-inst"); - return $14985; + var $15093 = (_name$1 + "-inst"); + return $15093; }; 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 $14986 = (_name$1 + "-elim"); - return $14986; + var $15094 = (_name$1 + "-elim"); + return $15094; }; 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 $14987 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); - return $14987; + var $15095 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); + return $15095; }; 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 $14988 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); - return $14988; + var $15096 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); + return $15096; }; 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 $14989 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); - return $14989; + var $15097 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); + return $15097; }; 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 $14990 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); - return $14990; + var $15098 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); + return $15098; }; const Kind$Comp$Target$Scheme$global_application = x0 => x1 => Kind$Comp$Target$Scheme$global_application$(x0, x1); @@ -49652,24 +49958,24 @@ module.exports = (function() { var self = _rem_args$3; switch (self._) { case 'List.cons': - var $14992 = self.head; - var $14993 = self.tail; - var $14994 = Kind$Comp$Target$Scheme$lambda$($14992, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $14993)); - var $14991 = $14994; + var $15100 = self.head; + var $15101 = self.tail; + var $15102 = Kind$Comp$Target$Scheme$lambda$($15100, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $15101)); + var $15099 = $15102; break; case 'List.nil': - var $14995 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); - var $14991 = $14995; + var $15103 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); + var $15099 = $15103; break; }; - return $14991; + return $15099; }; 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 $14996 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - return $14996; + var $15104 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + return $15104; }; const Kind$Comp$Target$Scheme$nest_lambdas = x0 => x1 => Kind$Comp$Target$Scheme$nest_lambdas$(x0, x1); @@ -49677,86 +49983,86 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.nil': - var $14998 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - var $14997 = $14998; + var $15106 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + var $15105 = $15106; break; case 'List.cons': - var $14999 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); - var $14997 = $14999; + var $15107 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); + var $15105 = $15107; break; }; - return $14997; + return $15105; }; 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 $15002 = _cses$3; - var $15003 = _cse_body_list$2; - let _cses$5 = $15002; + var $15110 = _cses$3; + var $15111 = _cse_body_list$2; + let _cses$5 = $15110; let _cse_body$4; - while ($15003._ === 'List.cons') { - _cse_body$4 = $15003.head; + while ($15111._ === 'List.cons') { + _cse_body$4 = $15111.head; var self = _cse_body$4; switch (self._) { case 'Pair.new': - var $15004 = self.fst; - var $15005 = self.snd; - var $15006 = (_cses$5 + (" (" + ($15004 + (" " + ($15005 + ")"))))); - var $15002 = $15006; + var $15112 = self.fst; + var $15113 = self.snd; + var $15114 = (_cses$5 + (" (" + ($15112 + (" " + ($15113 + ")"))))); + var $15110 = $15114; break; }; - _cses$5 = $15002; - $15003 = $15003.tail; + _cses$5 = $15110; + $15111 = $15111.tail; } return _cses$5; })(); - var $15000 = ("(case " + (_term$1 + (_cses$4 + ")"))); - return $15000; + var $15108 = ("(case " + (_term$1 + (_cses$4 + ")"))); + return $15108; }; const Kind$Comp$Target$Scheme$select = x0 => x1 => Kind$Comp$Target$Scheme$select$(x0, x1); function Char$to_string$(_chr$1) { - var $15007 = String$cons$(_chr$1, String$nil); - return $15007; + var $15115 = String$cons$(_chr$1, String$nil); + return $15115; }; 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 $15009 = ""; - var $15008 = $15009; + var $15117 = ""; + var $15116 = $15117; } else { - var $15010 = self.charCodeAt(0); - var $15011 = self.slice(1); - var $15012 = ((() => { - var self = (($15010 === 92) || ($15010 === 34)); + var $15118 = self.charCodeAt(0); + var $15119 = self.slice(1); + var $15120 = ((() => { + var self = (($15118 === 92) || ($15118 === 34)); if (self) { - var $15013 = ("\\" + Char$to_string$($15010)); - return $15013; + var $15121 = ("\\" + Char$to_string$($15118)); + return $15121; } else { - var self = (($15010 >= 32) && ($15010 <= 126)); + var self = (($15118 >= 32) && ($15118 <= 126)); if (self) { - var $15015 = Char$to_string$($15010); - var $15014 = $15015; + var $15123 = Char$to_string$($15118); + var $15122 = $15123; } else { - var $15016 = ("\\x" + (U16$show_hex$($15010) + ";")); - var $15014 = $15016; + var $15124 = ("\\x" + (U16$show_hex$($15118) + ";")); + var $15122 = $15124; }; - return $15014; + return $15122; }; - })() + Kind$Comp$Target$Scheme$string_literal$($15011)); - var $15008 = $15012; + })() + Kind$Comp$Target$Scheme$string_literal$($15119)); + var $15116 = $15120; }; - return $15008; + return $15116; }; const Kind$Comp$Target$Scheme$string_literal = x0 => Kind$Comp$Target$Scheme$string_literal$(x0); function Kind$Comp$Target$Scheme$nat$(_nat$1) { - var $15017 = Nat$show$(_nat$1); - return $15017; + var $15125 = Nat$show$(_nat$1); + return $15125; }; 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)))))))))))))))))))); @@ -49764,54 +50070,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 $15020 = _code$4; - var $15021 = Kind$Comp$Target$Scheme$exports; - let _code$6 = $15020; + var $15128 = _code$4; + var $15129 = Kind$Comp$Target$Scheme$exports; + let _code$6 = $15128; let _export$5; - while ($15021._ === 'List.cons') { - _export$5 = $15021.head; - var $15020 = (_code$6 + (" " + _export$5)); - _code$6 = $15020; - $15021 = $15021.tail; + while ($15129._ === 'List.cons') { + _export$5 = $15129.head; + var $15128 = (_code$6 + (" " + _export$5)); + _code$6 = $15128; + $15129 = $15129.tail; } return _code$6; })(); var _code$6 = (() => { - var $15023 = _code$5; - var $15024 = _exports$2; - let _code$7 = $15023; + var $15131 = _code$5; + var $15132 = _exports$2; + let _code$7 = $15131; let _export$6; - while ($15024._ === 'List.cons') { - _export$6 = $15024.head; - var $15023 = (_code$7 + (" " + _export$6)); - _code$7 = $15023; - $15024 = $15024.tail; + while ($15132._ === 'List.cons') { + _export$6 = $15132.head; + var $15131 = (_code$7 + (" " + _export$6)); + _code$7 = $15131; + $15132 = $15132.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 $15018 = _code$9; - return $15018; + var $15126 = _code$9; + return $15126; }; 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 $15025 = _code$3; - return $15025; + var $15133 = _code$3; + return $15133; }; 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 $15026 = ({ + var $15134 = ({ _: 'Kind.Comp.Native.new', 'inst': _inst$1, 'elim': _elim$2 }); - return $15026; + return $15134; }; const Kind$Comp$Native$new = x0 => x1 => Kind$Comp$Native$new$(x0, x1); @@ -49819,78 +50125,78 @@ module.exports = (function() { var self = _prim$1; switch (self._) { case 'Kind.Comp.Prim.data': - var $15028 = self.name; - var $15029 = self.ctrs; - var $15030 = Kind$Comp$Native$new$(List$fold$($15029, List$nil, (_ctr$4 => _result$5 => { + var $15136 = self.name; + var $15137 = self.ctrs; + var $15138 = Kind$Comp$Native$new$(List$fold$($15137, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $15032 = self.fst; - var $15033 = self.snd; - var _fields_size$8 = (list_length($15033)); + var $15140 = self.fst; + var $15141 = self.snd; + var _fields_size$8 = (list_length($15141)); var _fields_vars$9 = String$join$("", List$create$(_fields_size$8, (_x$9 => { - var $15035 = (" $" + Nat$show$(_x$9)); - return $15035; + var $15143 = (" $" + Nat$show$(_x$9)); + return $15143; }))); - var $15034 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($15028 + ("." + ($15032 + (_fields_vars$9 + ")")))))), _result$5); - var $15031 = $15034; + var $15142 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($15136 + ("." + ($15140 + (_fields_vars$9 + ")")))))), _result$5); + var $15139 = $15142; break; }; - return $15031; - })), Pair$new$("(get $0 0)", List$fold$($15029, List$nil, (_ctr$4 => _result$5 => { + return $15139; + })), Pair$new$("(get $0 0)", List$fold$($15137, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $15037 = self.fst; - var $15038 = self.snd; - var _fields_size$8 = (list_length($15038)); + var $15145 = self.fst; + var $15146 = self.snd; + var _fields_size$8 = (list_length($15146)); var _fields_gets$9 = List$create$(_fields_size$8, (_i$9 => { - var $15040 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); - return $15040; + var $15148 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); + return $15148; })); - var $15039 = List$cons$(Pair$new$(("\'" + ($15028 + ("." + $15037))), _fields_gets$9), _result$5); - var $15036 = $15039; + var $15147 = List$cons$(Pair$new$(("\'" + ($15136 + ("." + $15145))), _fields_gets$9), _result$5); + var $15144 = $15147; break; }; - return $15036; + return $15144; })))); - var $15027 = $15030; + var $15135 = $15138; break; case 'Kind.Comp.Prim.bool': - var $15041 = 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 $15027 = $15041; + var $15149 = 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 $15135 = $15149; break; case 'Kind.Comp.Prim.bits': - var $15042 = 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 $15027 = $15042; + var $15150 = 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 $15135 = $15150; break; case 'Kind.Comp.Prim.unit': - var $15043 = 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 $15027 = $15043; + var $15151 = 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 $15135 = $15151; break; case 'Kind.Comp.Prim.nat': - var $15044 = 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 $15027 = $15044; + var $15152 = 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 $15135 = $15152; break; case 'Kind.Comp.Prim.u16': - var $15045 = 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 $15027 = $15045; + var $15153 = 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 $15135 = $15153; break; case 'Kind.Comp.Prim.u32': - var $15046 = 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 $15027 = $15046; + var $15154 = 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 $15135 = $15154; break; case 'Kind.Comp.Prim.string': - var $15047 = 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 $15027 = $15047; + var $15155 = 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 $15135 = $15155; break; }; - return $15027; + return $15135; }; 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 $15048 = ({ + var $15156 = ({ _: 'BBT.bin', 'size': _size$3, 'key': _key$4, @@ -49898,13 +50204,13 @@ module.exports = (function() { 'left': _left$6, 'right': _right$7 }); - return $15048; + return $15156; }; const BBT$bin = x0 => x1 => x2 => x3 => x4 => BBT$bin$(x0, x1, x2, x3, x4); function U32$new$(_value$1) { - var $15049 = word_to_u32(_value$1); - return $15049; + var $15157 = word_to_u32(_value$1); + return $15157; }; const U32$new = x0 => U32$new$(x0); const Nat$to_u32 = a0 => (Number(a0) >>> 0); @@ -49913,8 +50219,8 @@ module.exports = (function() { }); function BBT$singleton$(_key$3, _val$4) { - var $15050 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); - return $15050; + var $15158 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); + return $15158; }; const BBT$singleton = x0 => x1 => BBT$singleton$(x0, x1); @@ -49922,16 +50228,16 @@ module.exports = (function() { var self = _map$3; switch (self._) { case 'BBT.bin': - var $15052 = self.size; - var $15053 = $15052; - var $15051 = $15053; + var $15160 = self.size; + var $15161 = $15160; + var $15159 = $15161; break; case 'BBT.tip': - var $15054 = 0; - var $15051 = $15054; + var $15162 = 0; + var $15159 = $15162; break; }; - return $15051; + return $15159; }; const BBT$size = x0 => BBT$size$(x0); const U32$add = a0 => a1 => ((a0 + a1) >>> 0); @@ -49944,8 +50250,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 $15055 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); - return $15055; + var $15163 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); + return $15163; }; const BBT$node = x0 => x1 => x2 => x3 => BBT$node$(x0, x1, x2, x3); @@ -49954,21 +50260,21 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.eql': - var $15057 = Bool$false; - var $15056 = $15057; + var $15165 = Bool$false; + var $15164 = $15165; break; case 'Cmp.gtn': - var $15058 = Bool$true; - var $15056 = $15058; + var $15166 = Bool$true; + var $15164 = $15166; break; }; - return $15056; + return $15164; }; const Cmp$as_gtn = x0 => Cmp$as_gtn$(x0); function Word$gtn$(_a$2, _b$3) { - var $15059 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); - return $15059; + var $15167 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); + return $15167; }; const Word$gtn = x0 => x1 => Word$gtn$(x0, x1); const U32$gtn = a0 => a1 => (a0 > a1); @@ -49981,117 +50287,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 $15061 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15060 = $15061; + var $15169 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15168 = $15169; } else { var self = (_size_r$8 > _w_x_size_l$10); if (self) { var self = _r$6; switch (self._) { case 'BBT.bin': - var $15064 = self.key; - var $15065 = self.val; - var $15066 = self.left; - var $15067 = self.right; - var _size_rl$17 = BBT$size$($15066); - var _size_rr$18 = BBT$size$($15067); + var $15172 = self.key; + var $15173 = self.val; + var $15174 = self.left; + var $15175 = self.right; + var _size_rl$17 = BBT$size$($15174); + var _size_rr$18 = BBT$size$($15175); var self = (_size_rl$17 < _size_rr$18); if (self) { - var _new_key$19 = $15064; - var _new_val$20 = $15065; - var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $15066); - var _new_right$22 = $15067; - var $15069 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $15068 = $15069; + var _new_key$19 = $15172; + var _new_val$20 = $15173; + var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $15174); + var _new_right$22 = $15175; + var $15177 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $15176 = $15177; } else { - var self = $15066; + var self = $15174; switch (self._) { case 'BBT.bin': - var $15071 = self.key; - var $15072 = self.val; - var $15073 = self.left; - var $15074 = self.right; - var _new_key$24 = $15071; - var _new_val$25 = $15072; - var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $15073); - var _new_right$27 = BBT$node$($15064, $15065, $15074, $15067); - var $15075 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $15070 = $15075; + var $15179 = self.key; + var $15180 = self.val; + var $15181 = self.left; + var $15182 = self.right; + var _new_key$24 = $15179; + var _new_val$25 = $15180; + var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $15181); + var _new_right$27 = BBT$node$($15172, $15173, $15182, $15175); + var $15183 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $15178 = $15183; break; case 'BBT.tip': - var $15076 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15070 = $15076; + var $15184 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15178 = $15184; break; }; - var $15068 = $15070; + var $15176 = $15178; }; - var $15063 = $15068; + var $15171 = $15176; break; case 'BBT.tip': - var $15077 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15063 = $15077; + var $15185 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15171 = $15185; break; }; - var $15062 = $15063; + var $15170 = $15171; } else { var self = (_size_l$7 > _w_x_size_r$11); if (self) { var self = _l$5; switch (self._) { case 'BBT.bin': - var $15080 = self.key; - var $15081 = self.val; - var $15082 = self.left; - var $15083 = self.right; - var _size_ll$17 = BBT$size$($15082); - var _size_lr$18 = BBT$size$($15083); + var $15188 = self.key; + var $15189 = self.val; + var $15190 = self.left; + var $15191 = self.right; + var _size_ll$17 = BBT$size$($15190); + var _size_lr$18 = BBT$size$($15191); var self = (_size_lr$18 < _size_ll$17); if (self) { - var _new_key$19 = $15080; - var _new_val$20 = $15081; - var _new_left$21 = $15082; - var _new_right$22 = BBT$node$(_k$3, _v$4, $15083, _r$6); - var $15085 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $15084 = $15085; + var _new_key$19 = $15188; + var _new_val$20 = $15189; + var _new_left$21 = $15190; + var _new_right$22 = BBT$node$(_k$3, _v$4, $15191, _r$6); + var $15193 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $15192 = $15193; } else { - var self = $15083; + var self = $15191; switch (self._) { case 'BBT.bin': - var $15087 = self.key; - var $15088 = self.val; - var $15089 = self.left; - var $15090 = self.right; - var _new_key$24 = $15087; - var _new_val$25 = $15088; - var _new_left$26 = BBT$node$($15080, $15081, $15082, $15089); - var _new_right$27 = BBT$node$(_k$3, _v$4, $15090, _r$6); - var $15091 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $15086 = $15091; + var $15195 = self.key; + var $15196 = self.val; + var $15197 = self.left; + var $15198 = self.right; + var _new_key$24 = $15195; + var _new_val$25 = $15196; + var _new_left$26 = BBT$node$($15188, $15189, $15190, $15197); + var _new_right$27 = BBT$node$(_k$3, _v$4, $15198, _r$6); + var $15199 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $15194 = $15199; break; case 'BBT.tip': - var $15092 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15086 = $15092; + var $15200 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15194 = $15200; break; }; - var $15084 = $15086; + var $15192 = $15194; }; - var $15079 = $15084; + var $15187 = $15192; break; case 'BBT.tip': - var $15093 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15079 = $15093; + var $15201 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15187 = $15201; break; }; - var $15078 = $15079; + var $15186 = $15187; } else { - var $15094 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15078 = $15094; + var $15202 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15186 = $15202; }; - var $15062 = $15078; + var $15170 = $15186; }; - var $15060 = $15062; + var $15168 = $15170; }; - return $15060; + return $15168; }; const BBT$balance = x0 => x1 => x2 => x3 => BBT$balance$(x0, x1, x2, x3); @@ -50099,41 +50405,41 @@ module.exports = (function() { var self = _map$6; switch (self._) { case 'BBT.bin': - var $15096 = self.key; - var $15097 = self.val; - var $15098 = self.left; - var $15099 = self.right; - var self = _cmp$3(_key$4)($15096); + var $15204 = self.key; + var $15205 = self.val; + var $15206 = self.left; + var $15207 = self.right; + var self = _cmp$3(_key$4)($15204); switch (self._) { case 'Cmp.ltn': - var _new_key$12 = $15096; - var _new_val$13 = $15097; - var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $15098); - var _new_right$15 = $15099; - var $15101 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $15100 = $15101; + var _new_key$12 = $15204; + var _new_val$13 = $15205; + var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $15206); + var _new_right$15 = $15207; + var $15209 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $15208 = $15209; break; case 'Cmp.eql': - var $15102 = BBT$node$(_key$4, _val$5, $15098, $15099); - var $15100 = $15102; + var $15210 = BBT$node$(_key$4, _val$5, $15206, $15207); + var $15208 = $15210; break; case 'Cmp.gtn': - var _new_key$12 = $15096; - var _new_val$13 = $15097; - var _new_left$14 = $15098; - var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $15099); - var $15103 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $15100 = $15103; + var _new_key$12 = $15204; + var _new_val$13 = $15205; + var _new_left$14 = $15206; + var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $15207); + var $15211 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $15208 = $15211; break; }; - var $15095 = $15100; + var $15203 = $15208; break; case 'BBT.tip': - var $15104 = BBT$singleton$(_key$4, _val$5); - var $15095 = $15104; + var $15212 = BBT$singleton$(_key$4, _val$5); + var $15203 = $15212; break; }; - return $15095; + return $15203; }; const BBT$insert = x0 => x1 => x2 => x3 => BBT$insert$(x0, x1, x2, x3); @@ -50150,16 +50456,16 @@ module.exports = (function() { var self = _xs$5; switch (self._) { case 'List.cons': - var $15105 = self.head; - var $15106 = self.tail; - var _key$8 = Pair$fst$($15105); - var _val$9 = Pair$snd$($15105); + var $15213 = self.head; + var $15214 = self.tail; + var _key$8 = Pair$fst$($15213); + var _val$9 = Pair$snd$($15213); var _new_acc$10 = BBT$insert$(_cmp$3, _key$8, _val$9, _acc$4); - var $15107 = BBT$from_list$go$(_cmp$3, _new_acc$10, $15106); - return $15107; + var $15215 = BBT$from_list$go$(_cmp$3, _new_acc$10, $15214); + return $15215; case 'List.nil': - var $15108 = _acc$4; - return $15108; + var $15216 = _acc$4; + return $15216; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -50169,14 +50475,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 $15109 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); - return $15109; + var $15217 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); + return $15217; }; const BBT$from_list = x0 => x1 => BBT$from_list$(x0, x1); function Map$from_list$(_xs$2) { - var $15110 = BBT$from_list$(String$cmp, _xs$2); - return $15110; + var $15218 = BBT$from_list$(String$cmp, _xs$2); + return $15218; }; 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))))))))))))))))))))))))))))))))); @@ -50184,20 +50490,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 $15111 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15112 = _m$bind$2; - return $15112; + var $15219 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15220 = _m$bind$2; + return $15220; }))(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 $15113 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15114 = _m$pure$7; - return $15114; + var $15221 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15222 = _m$pure$7; + return $15222; }))(_schemed$5); - return $15113; + return $15221; })); - return $15111; + return $15219; }; const Kind$api$io$term_to_scheme = x0 => Kind$api$io$term_to_scheme$(x0); @@ -50205,73 +50511,73 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $15116 = self.head; - var $15117 = self.tail; - var $15118 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $15119 = _m$bind$5; - return $15119; - }))(Kind$Synth$one$($15116, _defs$2))((_new_defs$5 => { + var $15224 = self.head; + var $15225 = self.tail; + var $15226 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $15227 = _m$bind$5; + return $15227; + }))(Kind$Synth$one$($15224, _defs$2))((_new_defs$5 => { var self = _new_defs$5; switch (self._) { case 'Maybe.some': - var $15121 = self.value; - var $15122 = Kind$Synth$many$($15117, $15121); - var $15120 = $15122; + var $15229 = self.value; + var $15230 = Kind$Synth$many$($15225, $15229); + var $15228 = $15230; break; case 'Maybe.none': - var $15123 = Kind$Synth$many$($15117, _defs$2); - var $15120 = $15123; + var $15231 = Kind$Synth$many$($15225, _defs$2); + var $15228 = $15231; break; }; - return $15120; + return $15228; })); - var $15115 = $15118; + var $15223 = $15226; break; case 'List.nil': - var $15124 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15125 = _m$pure$4; - return $15125; + var $15232 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15233 = _m$pure$4; + return $15233; }))(_defs$2); - var $15115 = $15124; + var $15223 = $15232; break; }; - return $15115; + return $15223; }; 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 $15128 = _ret$3; - var $15129 = _exports$1; - let _ret$5 = $15128; + var $15236 = _ret$3; + var $15237 = _exports$1; + let _ret$5 = $15236; let _export$4; - while ($15129._ === 'List.cons') { - _export$4 = $15129.head; + while ($15237._ === 'List.cons') { + _export$4 = $15237.head; var _term$6 = Kind$Comp$ref$(_export$4); var self = _ret$5; switch (self._) { case 'Pair.new': - var $15130 = self.fst; - var $15131 = self.snd; - var $15132 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $15130, $15131); - var $15128 = $15132; + var $15238 = self.fst; + var $15239 = self.snd; + var $15240 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $15238, $15239); + var $15236 = $15240; break; }; - _ret$5 = $15128; - $15129 = $15129.tail; + _ret$5 = $15236; + $15237 = $15237.tail; } return _ret$5; })(); var self = _ret$4; switch (self._) { case 'Pair.new': - var $15133 = self.snd; - var $15134 = List$reverse$($15133); - var $15126 = $15134; + var $15241 = self.snd; + var $15242 = List$reverse$($15241); + var $15234 = $15242; break; }; - return $15126; + return $15234; }; const Kind$Comp$dependency_sort$module = x0 => x1 => Kind$Comp$dependency_sort$module$(x0, x1); @@ -50280,46 +50586,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15136 = self.gram; - var $15137 = $15136; - var self = $15137; + var $15244 = self.gram; + var $15245 = $15244; + var self = $15245; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15138 = self.module; - var $15139 = $15138; - var _code$6 = $15139; + var $15246 = self.module; + var $15247 = $15246; + var _code$6 = $15247; break; }; var _code$6 = _code$6(_name$2)(_exports$3)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15140 = self.base; - var $15141 = $15140; - return $15141; + var $15248 = self.base; + var $15249 = $15248; + return $15249; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$5, _defs$4)))); - var $15135 = _code$6; - return $15135; + var $15243 = _code$6; + return $15243; }; 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 $15142 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15143 = _m$bind$3; - return $15143; + var $15250 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15251 = _m$bind$3; + return $15251; }))(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 $15144 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15145 = _m$pure$7; - return $15145; + var $15252 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15253 = _m$pure$7; + return $15253; }))(_schemed$5); - return $15144; + return $15252; })); - return $15142; + return $15250; }; const Kind$api$io$terms_to_scheme_lib = x0 => x1 => Kind$api$io$terms_to_scheme_lib$(x0, x1); @@ -50327,92 +50633,92 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $15147 = self.val; - var $15148 = self.lft; - var $15149 = self.rgt; - var self = $15147; + var $15255 = self.val; + var $15256 = self.lft; + var $15257 = self.rgt; + var self = $15255; switch (self._) { case 'Maybe.none': - var $15151 = _list$4; - var _list0$8 = $15151; + var $15259 = _list$4; + var _list0$8 = $15259; break; case 'Maybe.some': - var $15152 = List$cons$(Bits$reverse$(_key$3), _list$4); - var _list0$8 = $15152; + var $15260 = List$cons$(Bits$reverse$(_key$3), _list$4); + var _list0$8 = $15260; break; }; - var _list1$9 = BitsMap$keys$go$($15148, (_key$3 + '0'), _list0$8); - var _list2$10 = BitsMap$keys$go$($15149, (_key$3 + '1'), _list1$9); - var $15150 = _list2$10; - var $15146 = $15150; + var _list1$9 = BitsMap$keys$go$($15256, (_key$3 + '0'), _list0$8); + var _list2$10 = BitsMap$keys$go$($15257, (_key$3 + '1'), _list1$9); + var $15258 = _list2$10; + var $15254 = $15258; break; case 'BitsMap.new': - var $15153 = _list$4; - var $15146 = $15153; + var $15261 = _list$4; + var $15254 = $15261; break; }; - return $15146; + return $15254; }; const BitsMap$keys$go = x0 => x1 => x2 => BitsMap$keys$go$(x0, x1, x2); function BitsMap$keys$(_xs$2) { - var $15154 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); - return $15154; + var $15262 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); + return $15262; }; const BitsMap$keys = x0 => BitsMap$keys$(x0); function Kind$Synth$file$(_file$1, _defs$2) { - var $15155 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15156 = _m$bind$3; - return $15156; + var $15263 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15264 = _m$bind$3; + return $15264; }))(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 $15158 = self.value; - var $15159 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15160 = _m$pure$7; - return $15160; - }))(Either$left$($15158)); - var $15157 = $15159; + var $15266 = self.value; + var $15267 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15268 = _m$pure$7; + return $15268; + }))(Either$left$($15266)); + var $15265 = $15267; break; case 'Either.right': - var $15161 = self.value; - var _file_defs$6 = $15161; + var $15269 = self.value; + var _file_defs$6 = $15269; var _file_keys$7 = BitsMap$keys$(_file_defs$6); var _file_nams$8 = List$mapped$(_file_keys$7, Kind$Name$from_bits); - var $15162 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $15163 = _m$bind$9; - return $15163; + var $15270 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $15271 = _m$bind$9; + return $15271; }))(Kind$Synth$many$(_file_nams$8, _file_defs$6))((_defs$9 => { - var $15164 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $15165 = _m$pure$11; - return $15165; + var $15272 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $15273 = _m$pure$11; + return $15273; }))(Either$right$(Pair$new$(_file_nams$8, _defs$9))); - return $15164; + return $15272; })); - var $15157 = $15162; + var $15265 = $15270; break; }; - return $15157; + return $15265; })); - return $15155; + return $15263; }; const Kind$Synth$file = x0 => x1 => Kind$Synth$file$(x0, x1); function IO$put_string$(_text$1) { - var $15166 = IO$ask$("put_string", _text$1, (_skip$2 => { - var $15167 = IO$end$(Unit$new); - return $15167; + var $15274 = IO$ask$("put_string", _text$1, (_skip$2 => { + var $15275 = IO$end$(Unit$new); + return $15275; })); - return $15166; + return $15274; }; const IO$put_string = x0 => IO$put_string$(x0); function IO$print$(_text$1) { - var $15168 = IO$put_string$((_text$1 + "\u{a}")); - return $15168; + var $15276 = IO$put_string$((_text$1 + "\u{a}")); + return $15276; }; const IO$print = x0 => IO$print$(x0); @@ -50420,42 +50726,42 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $15170 = self.name; - var self = ($15170 === "Nat.zero"); + var $15278 = self.name; + var self = ($15278 === "Nat.zero"); if (self) { - var $15172 = Maybe$some$(0n); - var $15171 = $15172; + var $15280 = Maybe$some$(0n); + var $15279 = $15280; } else { - var $15173 = Maybe$none; - var $15171 = $15173; + var $15281 = Maybe$none; + var $15279 = $15281; }; - var $15169 = $15171; + var $15277 = $15279; break; case 'Kind.Term.app': - var $15174 = self.func; - var $15175 = self.argm; - var self = $15174; + var $15282 = self.func; + var $15283 = self.argm; + var self = $15282; switch (self._) { case 'Kind.Term.ref': - var $15177 = self.name; - var self = ($15177 === "Nat.succ"); + var $15285 = self.name; + var self = ($15285 === "Nat.succ"); if (self) { - var $15179 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { - var $15180 = _m$bind$5; - return $15180; - }))(Kind$Term$show$as_nat$go$($15175))((_pred$5 => { - var $15181 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { - var $15182 = _m$pure$7; - return $15182; + var $15287 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { + var $15288 = _m$bind$5; + return $15288; + }))(Kind$Term$show$as_nat$go$($15283))((_pred$5 => { + var $15289 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { + var $15290 = _m$pure$7; + return $15290; }))(Nat$succ$(_pred$5)); - return $15181; + return $15289; })); - var $15178 = $15179; + var $15286 = $15287; } else { - var $15183 = Maybe$none; - var $15178 = $15183; + var $15291 = Maybe$none; + var $15286 = $15291; }; - var $15176 = $15178; + var $15284 = $15286; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -50479,11 +50785,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $15184 = Maybe$none; - var $15176 = $15184; + var $15292 = Maybe$none; + var $15284 = $15292; break; }; - var $15169 = $15176; + var $15277 = $15284; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -50506,17 +50812,17 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $15185 = Maybe$none; - var $15169 = $15185; + var $15293 = Maybe$none; + var $15277 = $15293; break; }; - return $15169; + return $15277; }; const Kind$Term$show$as_nat$go = x0 => Kind$Term$show$as_nat$go$(x0); function Kind$Term$show$as_nat$(_term$1) { - var $15186 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); - return $15186; + var $15294 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); + return $15294; }; const Kind$Term$show$as_nat = x0 => Kind$Term$show$as_nat$(x0); @@ -50524,9 +50830,9 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $15188 = self.name; - var $15189 = (_name$2 === $15188); - var $15187 = $15189; + var $15296 = self.name; + var $15297 = (_name$2 === $15296); + var $15295 = $15297; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -50550,11 +50856,11 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $15190 = Bool$false; - var $15187 = $15190; + var $15298 = Bool$false; + var $15295 = $15298; break; }; - return $15187; + return $15295; }; const Kind$Term$show$is_ref = x0 => x1 => Kind$Term$show$is_ref$(x0, x1); @@ -50565,33 +50871,33 @@ module.exports = (function() { 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 $15192 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); - var $15191 = $15192; + var $15300 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); + var $15299 = $15300; } else { var _func$5 = Kind$Term$show$go$(_term$1, _path$2); var self = _func$5; if (self.length === 0) { - var $15194 = Bool$false; - var _wrap$6 = $15194; + var $15302 = Bool$false; + var _wrap$6 = $15302; } else { - var $15195 = self.charCodeAt(0); - var $15196 = self.slice(1); - var $15197 = ($15195 === 40); - var _wrap$6 = $15197; + var $15303 = self.charCodeAt(0); + var $15304 = self.slice(1); + var $15305 = ($15303 === 40); + var _wrap$6 = $15305; }; var _args$7 = String$join$(",", _args$3); var self = _wrap$6; if (self) { - var $15198 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); - var _func$8 = $15198; + var $15306 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); + var _func$8 = $15306; } else { - var $15199 = _func$5; - var _func$8 = $15199; + var $15307 = _func$5; + var _func$8 = $15307; }; - var $15193 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); - var $15191 = $15193; + var $15301 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); + var $15299 = $15301; }; - return $15191; + return $15299; }; const Kind$Term$show$app$done = x0 => x1 => x2 => Kind$Term$show$app$done$(x0, x1, x2); @@ -50608,14 +50914,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.app': - var $15200 = self.func; - var $15201 = self.argm; - var $15202 = Kind$Term$show$app$($15200, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($15201, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); - return $15202; + var $15308 = self.func; + var $15309 = self.argm; + var $15310 = Kind$Term$show$app$($15308, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($15309, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); + return $15310; case 'Kind.Term.ori': - var $15203 = self.expr; - var $15204 = Kind$Term$show$app$($15203, _path$2, _args$3); - return $15204; + var $15311 = self.expr; + var $15312 = Kind$Term$show$app$($15311, _path$2, _args$3); + return $15312; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -50637,8 +50943,8 @@ module.exports = (function() { case 'Kind.Term.mut': case 'Kind.Term.ope': case 'Kind.Term.imp': - var $15205 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); - return $15205; + var $15313 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); + return $15313; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -50648,8 +50954,8 @@ module.exports = (function() { const Kind$Term$show$app = x0 => x1 => x2 => Kind$Term$show$app$(x0, x1, x2); function BitsMap$to_list$(_xs$2) { - var $15206 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); - return $15206; + var $15314 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); + return $15314; }; const BitsMap$to_list = x0 => BitsMap$to_list$(x0); @@ -50657,331 +50963,331 @@ module.exports = (function() { var self = Kind$Term$show$as_nat$(_term$1); switch (self._) { case 'Maybe.some': - var $15208 = self.value; - var $15209 = $15208; - var $15207 = $15209; + var $15316 = self.value; + var $15317 = $15316; + var $15315 = $15317; break; case 'Maybe.none': var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $15211 = self.name; - var $15212 = Kind$Name$show$($15211); - var $15210 = $15212; + var $15319 = self.name; + var $15320 = Kind$Name$show$($15319); + var $15318 = $15320; break; case 'Kind.Term.ref': - var $15213 = self.name; - var _name$4 = Kind$Name$show$($15213); + var $15321 = self.name; + var _name$4 = Kind$Name$show$($15321); var self = _path$2; switch (self._) { case 'Maybe.some': - var $15215 = self.value; - var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($15215)); + var $15323 = self.value; + var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($15323)); var _path_str$7 = Nat$show$(Bits$to_nat$(_path_val$6)); - var $15216 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); - var $15214 = $15216; + var $15324 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); + var $15322 = $15324; break; case 'Maybe.none': - var $15217 = _name$4; - var $15214 = $15217; + var $15325 = _name$4; + var $15322 = $15325; break; }; - var $15210 = $15214; + var $15318 = $15322; break; case 'Kind.Term.all': - var $15218 = self.eras; - var $15219 = self.self; - var $15220 = self.name; - var $15221 = self.xtyp; - var $15222 = self.body; - var _eras$8 = $15218; - var _self$9 = Kind$Name$show$($15219); - var _name$10 = Kind$Name$show$($15220); - var _type$11 = Kind$Term$show$go$($15221, Kind$Path$Maybe$Builder$o$(_path$2)); + var $15326 = self.eras; + var $15327 = self.self; + var $15328 = self.name; + var $15329 = self.xtyp; + var $15330 = self.body; + var _eras$8 = $15326; + var _self$9 = Kind$Name$show$($15327); + var _name$10 = Kind$Name$show$($15328); + var _type$11 = Kind$Term$show$go$($15329, Kind$Path$Maybe$Builder$o$(_path$2)); var self = _eras$8; if (self) { - var $15224 = "<"; - var _open$12 = $15224; + var $15332 = "<"; + var _open$12 = $15332; } else { - var $15225 = "("; - var _open$12 = $15225; + var $15333 = "("; + var _open$12 = $15333; }; var self = _eras$8; if (self) { - var $15226 = ">"; - var _clos$13 = $15226; + var $15334 = ">"; + var _clos$13 = $15334; } else { - var $15227 = ")"; - var _clos$13 = $15227; + var $15335 = ")"; + var _clos$13 = $15335; }; - var _body$14 = Kind$Term$show$go$($15222(Kind$Term$var$($15219, 0n))(Kind$Term$var$($15220, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $15223 = 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 $15210 = $15223; + var _body$14 = Kind$Term$show$go$($15330(Kind$Term$var$($15327, 0n))(Kind$Term$var$($15328, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $15331 = 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 $15318 = $15331; break; case 'Kind.Term.lam': - var $15228 = self.name; - var $15229 = self.body; - var _name$5 = Kind$Name$show$($15228); - var _body$6 = Kind$Term$show$go$($15229(Kind$Term$var$($15228, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); - var $15230 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); - var $15210 = $15230; + var $15336 = self.name; + var $15337 = self.body; + var _name$5 = Kind$Name$show$($15336); + var _body$6 = Kind$Term$show$go$($15337(Kind$Term$var$($15336, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); + var $15338 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); + var $15318 = $15338; break; case 'Kind.Term.let': - var $15231 = self.name; - var $15232 = self.expr; - var $15233 = self.body; - var _name$6 = Kind$Name$show$($15231); - var _expr$7 = Kind$Term$show$go$($15232, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($15233(Kind$Term$var$($15231, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $15234 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $15210 = $15234; + var $15339 = self.name; + var $15340 = self.expr; + var $15341 = self.body; + var _name$6 = Kind$Name$show$($15339); + var _expr$7 = Kind$Term$show$go$($15340, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($15341(Kind$Term$var$($15339, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $15342 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $15318 = $15342; break; case 'Kind.Term.def': - var $15235 = self.name; - var $15236 = self.expr; - var $15237 = self.body; - var _name$6 = Kind$Name$show$($15235); - var _expr$7 = Kind$Term$show$go$($15236, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($15237(Kind$Term$var$($15235, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $15238 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $15210 = $15238; + var $15343 = self.name; + var $15344 = self.expr; + var $15345 = self.body; + var _name$6 = Kind$Name$show$($15343); + var _expr$7 = Kind$Term$show$go$($15344, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($15345(Kind$Term$var$($15343, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $15346 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $15318 = $15346; break; case 'Kind.Term.ann': - var $15239 = self.term; - var $15240 = self.type; - var _term$6 = Kind$Term$show$go$($15239, Kind$Path$Maybe$Builder$o$(_path$2)); - var _type$7 = Kind$Term$show$go$($15240, Kind$Path$Maybe$Builder$i$(_path$2)); - var $15241 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); - var $15210 = $15241; + var $15347 = self.term; + var $15348 = self.type; + var _term$6 = Kind$Term$show$go$($15347, Kind$Path$Maybe$Builder$o$(_path$2)); + var _type$7 = Kind$Term$show$go$($15348, Kind$Path$Maybe$Builder$i$(_path$2)); + var $15349 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); + var $15318 = $15349; break; case 'Kind.Term.gol': - var $15242 = self.name; - var _name$6 = Kind$Name$show$($15242); - var $15243 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); - var $15210 = $15243; + var $15350 = self.name; + var _name$6 = Kind$Name$show$($15350); + var $15351 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); + var $15318 = $15351; break; case 'Kind.Term.nat': - var $15244 = self.natx; - var $15245 = String$flatten$(List$cons$(Nat$show$($15244), List$nil)); - var $15210 = $15245; + var $15352 = self.natx; + var $15353 = String$flatten$(List$cons$(Nat$show$($15352), List$nil)); + var $15318 = $15353; break; case 'Kind.Term.chr': - var $15246 = self.chrx; - var $15247 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($15246), List$cons$("\'", List$nil)))); - var $15210 = $15247; + var $15354 = self.chrx; + var $15355 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($15354), List$cons$("\'", List$nil)))); + var $15318 = $15355; break; case 'Kind.Term.str': - var $15248 = self.strx; - var $15249 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($15248), List$cons$("\"", List$nil)))); - var $15210 = $15249; + var $15356 = self.strx; + var $15357 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($15356), List$cons$("\"", List$nil)))); + var $15318 = $15357; break; case 'Kind.Term.num': - var $15250 = self.sign; - var $15251 = self.numb; - var $15252 = self.frac; - var $15253 = String$flatten$(List$cons$((() => { - var self = $15250; + var $15358 = self.sign; + var $15359 = self.numb; + var $15360 = self.frac; + var $15361 = String$flatten$(List$cons$((() => { + var self = $15358; switch (self._) { case 'Maybe.some': - var $15254 = self.value; - var self = $15254; + var $15362 = self.value; + var self = $15362; if (self) { - var $15256 = "+"; - var $15255 = $15256; + var $15364 = "+"; + var $15363 = $15364; } else { - var $15257 = "-"; - var $15255 = $15257; + var $15365 = "-"; + var $15363 = $15365; }; - return $15255; + return $15363; case 'Maybe.none': - var $15258 = ""; - return $15258; + var $15366 = ""; + return $15366; }; - })(), List$cons$(Nat$show$($15251), List$cons$((() => { - var self = $15252; + })(), List$cons$(Nat$show$($15359), List$cons$((() => { + var self = $15360; switch (self._) { case 'Maybe.some': - var $15259 = self.value; - var $15260 = ("." + Nat$show$($15259)); - return $15260; + var $15367 = self.value; + var $15368 = ("." + Nat$show$($15367)); + return $15368; case 'Maybe.none': - var $15261 = ""; - return $15261; + var $15369 = ""; + return $15369; }; })(), List$nil)))); - var $15210 = $15253; + var $15318 = $15361; break; case 'Kind.Term.cse': - var $15262 = self.expr; - var $15263 = self.name; - var $15264 = self.with; - var $15265 = self.cses; - var $15266 = self.moti; - var _expr$9 = Kind$Term$show$go$($15262, Kind$Path$Maybe$Builder$o$(_path$2)); - var _name$10 = Kind$Name$show$($15263); - var _wyth$11 = String$join$("; ", List$mapped$($15264, (_with_var$11 => { + var $15370 = self.expr; + var $15371 = self.name; + var $15372 = self.with; + var $15373 = self.cses; + var $15374 = self.moti; + var _expr$9 = Kind$Term$show$go$($15370, Kind$Path$Maybe$Builder$o$(_path$2)); + var _name$10 = Kind$Name$show$($15371); + var _wyth$11 = String$join$("; ", List$mapped$($15372, (_with_var$11 => { var self = _with_var$11; switch (self._) { case 'Kind.Ann.new': - var $15269 = self.name; - var $15270 = self.type; - var self = $15270; + var $15377 = self.name; + var $15378 = self.type; + var self = $15378; switch (self._) { case 'Maybe.some': - var $15272 = self.value; - var $15273 = ($15269 + (": " + Kind$Term$show$go$($15272, Maybe$none))); - var $15271 = $15273; + var $15380 = self.value; + var $15381 = ($15377 + (": " + Kind$Term$show$go$($15380, Maybe$none))); + var $15379 = $15381; break; case 'Maybe.none': - var $15274 = $15269; - var $15271 = $15274; + var $15382 = $15377; + var $15379 = $15382; break; }; - var $15268 = $15271; + var $15376 = $15379; break; }; - return $15268; + return $15376; }))); - var _cses$12 = BitsMap$to_list$($15265); + var _cses$12 = BitsMap$to_list$($15373); 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 $15275 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); - return $15275; + var $15383 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); + return $15383; }))); - var self = $15266; + var self = $15374; switch (self._) { case 'Maybe.some': - var $15276 = self.value; - var $15277 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($15276, Maybe$none), List$nil))); - var _moti$14 = $15277; + var $15384 = self.value; + var $15385 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($15384, Maybe$none), List$nil))); + var _moti$14 = $15385; break; case 'Maybe.none': - var $15278 = ""; - var _moti$14 = $15278; + var $15386 = ""; + var _moti$14 = $15386; break; }; - var $15267 = 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 $15210 = $15267; + var $15375 = 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 $15318 = $15375; break; case 'Kind.Term.new': - var $15279 = self.args; - var _args$4 = List$fold$($15279, (_path$4 => { - var $15281 = List$nil; - return $15281; + var $15387 = self.args; + var _args$4 = List$fold$($15387, (_path$4 => { + var $15389 = List$nil; + return $15389; }), (_arg$4 => _res$5 => _path$6 => { - var $15282 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); - return $15282; + var $15390 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); + return $15390; }))(_path$2); - var $15280 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); - var $15210 = $15280; + var $15388 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); + var $15318 = $15388; break; case 'Kind.Term.get': - var $15283 = self.expr; - var $15284 = self.fkey; - var _expr$5 = Kind$Term$show$go$($15283, Kind$Path$Maybe$Builder$o$(_path$2)); - var $15285 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($15284, List$nil)))); - var $15210 = $15285; + var $15391 = self.expr; + var $15392 = self.fkey; + var _expr$5 = Kind$Term$show$go$($15391, Kind$Path$Maybe$Builder$o$(_path$2)); + var $15393 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($15392, List$nil)))); + var $15318 = $15393; break; case 'Kind.Term.set': - var $15286 = self.expr; - var $15287 = self.fkey; - var $15288 = self.fval; - var _expr$6 = Kind$Term$show$go$($15286, Kind$Path$Maybe$Builder$o$(_path$2)); - var _fval$7 = Kind$Term$show$go$($15288, Kind$Path$Maybe$Builder$i$(_path$2)); - var $15289 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($15287, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); - var $15210 = $15289; + var $15394 = self.expr; + var $15395 = self.fkey; + var $15396 = self.fval; + var _expr$6 = Kind$Term$show$go$($15394, Kind$Path$Maybe$Builder$o$(_path$2)); + var _fval$7 = Kind$Term$show$go$($15396, Kind$Path$Maybe$Builder$i$(_path$2)); + var $15397 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($15395, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); + var $15318 = $15397; break; case 'Kind.Term.mut': - var $15290 = self.expr; - var $15291 = self.fkey; - var $15292 = self.ffun; - var _expr$6 = Kind$Term$show$go$($15290, Kind$Path$Maybe$Builder$o$(_path$2)); - var _ffun$7 = Kind$Term$show$go$($15292, Kind$Path$Maybe$Builder$i$(_path$2)); - var $15293 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($15291, List$cons$(" <= ", List$cons$(_ffun$7, List$nil)))))); - var $15210 = $15293; + var $15398 = self.expr; + var $15399 = self.fkey; + var $15400 = self.ffun; + var _expr$6 = Kind$Term$show$go$($15398, Kind$Path$Maybe$Builder$o$(_path$2)); + var _ffun$7 = Kind$Term$show$go$($15400, Kind$Path$Maybe$Builder$i$(_path$2)); + var $15401 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($15399, List$cons$(" <= ", List$cons$(_ffun$7, List$nil)))))); + var $15318 = $15401; break; case 'Kind.Term.ope': - var $15294 = self.name; - var $15295 = self.arg0; - var $15296 = self.arg1; - var _arg0$6 = Kind$Term$show$go$($15295, Kind$Path$Maybe$Builder$o$(_path$2)); - var _arg1$7 = Kind$Term$show$go$($15296, Kind$Path$Maybe$Builder$i$(_path$2)); - var $15297 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($15294, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); - var $15210 = $15297; + var $15402 = self.name; + var $15403 = self.arg0; + var $15404 = self.arg1; + var _arg0$6 = Kind$Term$show$go$($15403, Kind$Path$Maybe$Builder$o$(_path$2)); + var _arg1$7 = Kind$Term$show$go$($15404, Kind$Path$Maybe$Builder$i$(_path$2)); + var $15405 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($15402, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); + var $15318 = $15405; break; case 'Kind.Term.imp': - var $15298 = self.expr; - var _expr$4 = Kind$Term$show$go$($15298, _path$2); - var $15299 = String$flatten$(List$cons$("$", List$cons$(_expr$4, List$nil))); - var $15210 = $15299; + var $15406 = self.expr; + var _expr$4 = Kind$Term$show$go$($15406, _path$2); + var $15407 = String$flatten$(List$cons$("$", List$cons$(_expr$4, List$nil))); + var $15318 = $15407; break; case 'Kind.Term.ori': - var $15300 = self.expr; - var $15301 = Kind$Term$show$go$($15300, _path$2); - var $15210 = $15301; + var $15408 = self.expr; + var $15409 = Kind$Term$show$go$($15408, _path$2); + var $15318 = $15409; break; case 'Kind.Term.typ': - var $15302 = "Type"; - var $15210 = $15302; + var $15410 = "Type"; + var $15318 = $15410; break; case 'Kind.Term.app': - var $15303 = Kind$Term$show$app$(_term$1, _path$2, List$nil); - var $15210 = $15303; + var $15411 = Kind$Term$show$app$(_term$1, _path$2, List$nil); + var $15318 = $15411; break; case 'Kind.Term.hol': - var $15304 = "_"; - var $15210 = $15304; + var $15412 = "_"; + var $15318 = $15412; break; }; - var $15207 = $15210; + var $15315 = $15318; break; }; - return $15207; + return $15315; }; const Kind$Term$show$go = x0 => x1 => Kind$Term$show$go$(x0, x1); function Kind$Term$show$(_term$1) { - var $15305 = Kind$Term$show$go$(_term$1, Maybe$none); - return $15305; + var $15413 = Kind$Term$show$go$(_term$1, Maybe$none); + return $15413; }; 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 $15308 = _types$3; - var $15309 = _names$2; - let _types$5 = $15308; + var $15416 = _types$3; + var $15417 = _names$2; + let _types$5 = $15416; let _name$4; - while ($15309._ === 'List.cons') { - _name$4 = $15309.head; + while ($15417._ === 'List.cons') { + _name$4 = $15417.head; var self = Kind$Map$get$(_name$4, _defs$1); switch (self._) { case 'Maybe.some': - var $15310 = self.value; - var self = $15310; + var $15418 = self.value; + var self = $15418; switch (self._) { case 'Kind.Def.new': - var $15312 = self.type; - var $15313 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($15312) + "\u{a}")))); - var $15311 = $15313; + var $15420 = self.type; + var $15421 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($15420) + "\u{a}")))); + var $15419 = $15421; break; }; - var $15308 = $15311; + var $15416 = $15419; break; case 'Maybe.none': - var $15314 = _types$5; - var $15308 = $15314; + var $15422 = _types$5; + var $15416 = $15422; break; }; - _types$5 = $15308; - $15309 = $15309.tail; + _types$5 = $15416; + $15417 = $15417.tail; } return _types$5; })(); - var $15306 = _types$4; - return $15306; + var $15414 = _types$4; + return $15414; }; const Kind$Defs$report$types = x0 => x1 => Kind$Defs$report$types$(x0, x1); @@ -50989,24 +51295,24 @@ module.exports = (function() { var self = _xs$3; switch (self._) { case 'List.cons': - var $15316 = self.head; - var $15317 = self.tail; - var self = _f$2($15316); + var $15424 = self.head; + var $15425 = self.tail; + var self = _f$2($15424); if (self) { - var $15319 = List$cons$($15316, List$filter$(_f$2, $15317)); - var $15318 = $15319; + var $15427 = List$cons$($15424, List$filter$(_f$2, $15425)); + var $15426 = $15427; } else { - var $15320 = List$filter$(_f$2, $15317); - var $15318 = $15320; + var $15428 = List$filter$(_f$2, $15425); + var $15426 = $15428; }; - var $15315 = $15318; + var $15423 = $15426; break; case 'List.nil': - var $15321 = List$nil; - var $15315 = $15321; + var $15429 = List$nil; + var $15423 = $15429; break; }; - return $15315; + return $15423; }; const List$filter = x0 => x1 => List$filter$(x0, x1); @@ -51019,15 +51325,15 @@ module.exports = (function() { case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.cant_infer': - var $15323 = Bool$false; - var $15322 = $15323; + var $15431 = Bool$false; + var $15430 = $15431; break; case 'Kind.Error.undefined_reference': - var $15324 = Bool$true; - var $15322 = $15324; + var $15432 = Bool$true; + var $15430 = $15432; break; }; - return $15322; + return $15430; }; const Kind$Error$is_undef = x0 => Kind$Error$is_undef$(x0); @@ -51036,19 +51342,19 @@ module.exports = (function() { switch (self._) { case 'Kind.Error.type_mismatch': case 'Kind.Error.cant_infer': - var $15326 = Bool$true; - var $15325 = $15326; + var $15434 = Bool$true; + var $15433 = $15434; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': - var $15327 = Bool$false; - var $15325 = $15327; + var $15435 = Bool$false; + var $15433 = $15435; break; }; - return $15325; + return $15433; }; const Kind$Error$is_mistake = x0 => Kind$Error$is_mistake$(x0); @@ -51061,15 +51367,15 @@ module.exports = (function() { case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': case 'Kind.Error.cant_infer': - var $15329 = Bool$false; - var $15328 = $15329; + var $15437 = Bool$false; + var $15436 = $15437; break; case 'Kind.Error.show_goal': - var $15330 = Bool$true; - var $15328 = $15330; + var $15438 = Bool$true; + var $15436 = $15438; break; }; - return $15328; + return $15436; }; const Kind$Error$is_goal = x0 => Kind$Error$is_goal$(x0); @@ -51083,23 +51389,23 @@ module.exports = (function() { var self = _mistakes$3; switch (self._) { case 'List.cons': - var $15333 = self.head; - var $15334 = List$concat$(List$cons$($15333, List$nil), _goals$4); - var $15332 = $15334; + var $15441 = self.head; + var $15442 = List$concat$(List$cons$($15441, List$nil), _goals$4); + var $15440 = $15442; break; case 'List.nil': - var $15335 = _goals$4; - var $15332 = $15335; + var $15443 = _goals$4; + var $15440 = $15443; break; }; - var $15331 = $15332; + var $15439 = $15440; break; case 'List.cons': - var $15336 = List$concat$(_undefs$2, _goals$4); - var $15331 = $15336; + var $15444 = List$concat$(_undefs$2, _goals$4); + var $15439 = $15444; break; }; - return $15331; + return $15439; }; const Kind$Error$relevant = x0 => Kind$Error$relevant$(x0); @@ -51107,57 +51413,57 @@ module.exports = (function() { var self = _context$1; switch (self._) { case 'List.cons': - var $15338 = self.head; - var $15339 = self.tail; - var self = $15338; + var $15446 = self.head; + var $15447 = self.tail; + var self = $15446; switch (self._) { case 'Pair.new': - var $15341 = self.fst; - var $15342 = self.snd; - var _name$6 = Kind$Name$show$($15341); - var _type$7 = Kind$Term$show$(Kind$Term$normalize$($15342, Kind$Map$new)); - var _rest$8 = Kind$Context$show$($15339); - var $15343 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); - var $15340 = $15343; + var $15449 = self.fst; + var $15450 = self.snd; + var _name$6 = Kind$Name$show$($15449); + var _type$7 = Kind$Term$show$(Kind$Term$normalize$($15450, Kind$Map$new)); + var _rest$8 = Kind$Context$show$($15447); + var $15451 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); + var $15448 = $15451; break; }; - var $15337 = $15340; + var $15445 = $15448; break; case 'List.nil': - var $15344 = ""; - var $15337 = $15344; + var $15452 = ""; + var $15445 = $15452; break; }; - return $15337; + return $15445; }; const Kind$Context$show = x0 => Kind$Context$show$(x0); function Kind$Term$expand_at$(_path$1, _term$2, _defs$3) { - var $15345 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { + var $15453 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { var self = _term$4; switch (self._) { case 'Kind.Term.ref': - var $15347 = self.name; - var self = Kind$Map$get$($15347, _defs$3); + var $15455 = self.name; + var self = Kind$Map$get$($15455, _defs$3); switch (self._) { case 'Maybe.some': - var $15349 = self.value; - var self = $15349; + var $15457 = self.value; + var self = $15457; switch (self._) { case 'Kind.Def.new': - var $15351 = self.term; - var $15352 = $15351; - var $15350 = $15352; + var $15459 = self.term; + var $15460 = $15459; + var $15458 = $15460; break; }; - var $15348 = $15350; + var $15456 = $15458; break; case 'Maybe.none': - var $15353 = Kind$Term$ref$($15347); - var $15348 = $15353; + var $15461 = Kind$Term$ref$($15455); + var $15456 = $15461; break; }; - var $15346 = $15348; + var $15454 = $15456; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -51181,13 +51487,13 @@ module.exports = (function() { case 'Kind.Term.ope': case 'Kind.Term.imp': case 'Kind.Term.ori': - var $15354 = _term$4; - var $15346 = $15354; + var $15462 = _term$4; + var $15454 = $15462; break; }; - return $15346; + return $15454; })); - return $15345; + return $15453; }; const Kind$Term$expand_at = x0 => x1 => x2 => Kind$Term$expand_at$(x0, x1, x2); @@ -51195,138 +51501,138 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $15356 = self.name; - var $15357 = self.indx; - var $15358 = Kind$Term$var$($15356, $15357); - var $15355 = $15358; + var $15464 = self.name; + var $15465 = self.indx; + var $15466 = Kind$Term$var$($15464, $15465); + var $15463 = $15466; break; case 'Kind.Term.ref': - var $15359 = self.name; - var self = Kind$Map$get$($15359, _defs$2); + var $15467 = self.name; + var self = Kind$Map$get$($15467, _defs$2); switch (self._) { case 'Maybe.some': - var $15361 = self.value; - var self = $15361; + var $15469 = self.value; + var self = $15469; switch (self._) { case 'Kind.Def.new': - var $15363 = self.term; - var $15364 = self.isct; - var $15365 = self.arit; - var self = ($15364 && (_arity$3 > $15365)); + var $15471 = self.term; + var $15472 = self.isct; + var $15473 = self.arit; + var self = ($15472 && (_arity$3 > $15473)); if (self) { - var $15367 = $15363; - var $15366 = $15367; + var $15475 = $15471; + var $15474 = $15475; } else { - var $15368 = Kind$Term$ref$($15359); - var $15366 = $15368; + var $15476 = Kind$Term$ref$($15467); + var $15474 = $15476; }; - var $15362 = $15366; + var $15470 = $15474; break; }; - var $15360 = $15362; + var $15468 = $15470; break; case 'Maybe.none': - var $15369 = Kind$Term$ref$($15359); - var $15360 = $15369; + var $15477 = Kind$Term$ref$($15467); + var $15468 = $15477; break; }; - var $15355 = $15360; + var $15463 = $15468; break; case 'Kind.Term.all': - var $15370 = self.eras; - var $15371 = self.self; - var $15372 = self.name; - var $15373 = self.xtyp; - var $15374 = self.body; - var $15375 = Kind$Term$all$($15370, $15371, $15372, Kind$Term$expand_ct$($15373, _defs$2, 0n), (_s$9 => _x$10 => { - var $15376 = Kind$Term$expand_ct$($15374(_s$9)(_x$10), _defs$2, 0n); - return $15376; + var $15478 = self.eras; + var $15479 = self.self; + var $15480 = self.name; + var $15481 = self.xtyp; + var $15482 = self.body; + var $15483 = Kind$Term$all$($15478, $15479, $15480, Kind$Term$expand_ct$($15481, _defs$2, 0n), (_s$9 => _x$10 => { + var $15484 = Kind$Term$expand_ct$($15482(_s$9)(_x$10), _defs$2, 0n); + return $15484; })); - var $15355 = $15375; + var $15463 = $15483; break; case 'Kind.Term.lam': - var $15377 = self.name; - var $15378 = self.body; - var $15379 = Kind$Term$lam$($15377, (_x$6 => { - var $15380 = Kind$Term$expand_ct$($15378(_x$6), _defs$2, 0n); - return $15380; + var $15485 = self.name; + var $15486 = self.body; + var $15487 = Kind$Term$lam$($15485, (_x$6 => { + var $15488 = Kind$Term$expand_ct$($15486(_x$6), _defs$2, 0n); + return $15488; })); - var $15355 = $15379; + var $15463 = $15487; break; case 'Kind.Term.app': - var $15381 = self.func; - var $15382 = self.argm; - var $15383 = Kind$Term$app$(Kind$Term$expand_ct$($15381, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($15382, _defs$2, 0n)); - var $15355 = $15383; + var $15489 = self.func; + var $15490 = self.argm; + var $15491 = Kind$Term$app$(Kind$Term$expand_ct$($15489, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($15490, _defs$2, 0n)); + var $15463 = $15491; break; case 'Kind.Term.let': - var $15384 = self.name; - var $15385 = self.expr; - var $15386 = self.body; - var $15387 = Kind$Term$let$($15384, Kind$Term$expand_ct$($15385, _defs$2, 0n), (_x$7 => { - var $15388 = Kind$Term$expand_ct$($15386(_x$7), _defs$2, 0n); - return $15388; + var $15492 = self.name; + var $15493 = self.expr; + var $15494 = self.body; + var $15495 = Kind$Term$let$($15492, Kind$Term$expand_ct$($15493, _defs$2, 0n), (_x$7 => { + var $15496 = Kind$Term$expand_ct$($15494(_x$7), _defs$2, 0n); + return $15496; })); - var $15355 = $15387; + var $15463 = $15495; break; case 'Kind.Term.def': - var $15389 = self.name; - var $15390 = self.expr; - var $15391 = self.body; - var $15392 = Kind$Term$def$($15389, Kind$Term$expand_ct$($15390, _defs$2, 0n), (_x$7 => { - var $15393 = Kind$Term$expand_ct$($15391(_x$7), _defs$2, 0n); - return $15393; + var $15497 = self.name; + var $15498 = self.expr; + var $15499 = self.body; + var $15500 = Kind$Term$def$($15497, Kind$Term$expand_ct$($15498, _defs$2, 0n), (_x$7 => { + var $15501 = Kind$Term$expand_ct$($15499(_x$7), _defs$2, 0n); + return $15501; })); - var $15355 = $15392; + var $15463 = $15500; break; case 'Kind.Term.ann': - var $15394 = self.done; - var $15395 = self.term; - var $15396 = self.type; - var $15397 = Kind$Term$ann$($15394, Kind$Term$expand_ct$($15395, _defs$2, 0n), Kind$Term$expand_ct$($15396, _defs$2, 0n)); - var $15355 = $15397; + var $15502 = self.done; + var $15503 = self.term; + var $15504 = self.type; + var $15505 = Kind$Term$ann$($15502, Kind$Term$expand_ct$($15503, _defs$2, 0n), Kind$Term$expand_ct$($15504, _defs$2, 0n)); + var $15463 = $15505; break; case 'Kind.Term.gol': - var $15398 = self.name; - var $15399 = self.dref; - var $15400 = self.verb; - var $15401 = Kind$Term$gol$($15398, $15399, $15400); - var $15355 = $15401; + var $15506 = self.name; + var $15507 = self.dref; + var $15508 = self.verb; + var $15509 = Kind$Term$gol$($15506, $15507, $15508); + var $15463 = $15509; break; case 'Kind.Term.hol': - var $15402 = self.path; - var $15403 = Kind$Term$hol$($15402); - var $15355 = $15403; + var $15510 = self.path; + var $15511 = Kind$Term$hol$($15510); + var $15463 = $15511; break; case 'Kind.Term.nat': - var $15404 = self.natx; - var $15405 = Kind$Term$nat$($15404); - var $15355 = $15405; + var $15512 = self.natx; + var $15513 = Kind$Term$nat$($15512); + var $15463 = $15513; break; case 'Kind.Term.chr': - var $15406 = self.chrx; - var $15407 = Kind$Term$chr$($15406); - var $15355 = $15407; + var $15514 = self.chrx; + var $15515 = Kind$Term$chr$($15514); + var $15463 = $15515; break; case 'Kind.Term.str': - var $15408 = self.strx; - var $15409 = Kind$Term$str$($15408); - var $15355 = $15409; + var $15516 = self.strx; + var $15517 = Kind$Term$str$($15516); + var $15463 = $15517; break; case 'Kind.Term.imp': - var $15410 = self.expr; - var $15411 = Kind$Term$imp$(Kind$Term$expand_ct$($15410, _defs$2, 0n)); - var $15355 = $15411; + var $15518 = self.expr; + var $15519 = Kind$Term$imp$(Kind$Term$expand_ct$($15518, _defs$2, 0n)); + var $15463 = $15519; break; case 'Kind.Term.ori': - var $15412 = self.orig; - var $15413 = self.expr; - var $15414 = Kind$Term$ori$($15412, Kind$Term$expand_ct$($15413, _defs$2, 0n)); - var $15355 = $15414; + var $15520 = self.orig; + var $15521 = self.expr; + var $15522 = Kind$Term$ori$($15520, Kind$Term$expand_ct$($15521, _defs$2, 0n)); + var $15463 = $15522; break; case 'Kind.Term.typ': - var $15415 = Kind$Term$typ; - var $15355 = $15415; + var $15523 = Kind$Term$typ; + var $15463 = $15523; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -51335,35 +51641,35 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.mut': case 'Kind.Term.ope': - var $15416 = _term$1; - var $15355 = $15416; + var $15524 = _term$1; + var $15463 = $15524; break; }; - return $15355; + return $15463; }; 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 $15419 = _term$4; - var $15420 = _dref$1; - let _term$6 = $15419; + var $15527 = _term$4; + var $15528 = _dref$1; + let _term$6 = $15527; let _path$5; - while ($15420._ === 'List.cons') { - _path$5 = $15420.head; + while ($15528._ === 'List.cons') { + _path$5 = $15528.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 $15419 = _term$10; - _term$6 = $15419; - $15420 = $15420.tail; + var $15527 = _term$10; + _term$6 = $15527; + $15528 = $15528.tail; } return _term$6; })(); - var $15417 = _term$5; - return $15417; + var $15525 = _term$5; + return $15525; }; const Kind$Term$expand = x0 => x1 => x2 => Kind$Term$expand$(x0, x1, x2); @@ -51371,124 +51677,124 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $15422 = self.expected; - var $15423 = self.detected; - var $15424 = self.context; - var self = $15422; + var $15530 = self.expected; + var $15531 = self.detected; + var $15532 = self.context; + var self = $15530; switch (self._) { case 'Either.left': - var $15426 = self.value; - var $15427 = $15426; - var _expected$7 = $15427; + var $15534 = self.value; + var $15535 = $15534; + var _expected$7 = $15535; break; case 'Either.right': - var $15428 = self.value; - var $15429 = Kind$Term$show$(Kind$Term$normalize$($15428, BitsMap$new)); - var _expected$7 = $15429; + var $15536 = self.value; + var $15537 = Kind$Term$show$(Kind$Term$normalize$($15536, BitsMap$new)); + var _expected$7 = $15537; break; }; - var self = $15423; + var self = $15531; switch (self._) { case 'Either.left': - var $15430 = self.value; - var $15431 = $15430; - var _detected$8 = $15431; + var $15538 = self.value; + var $15539 = $15538; + var _detected$8 = $15539; break; case 'Either.right': - var $15432 = self.value; - var $15433 = Kind$Term$show$(Kind$Term$normalize$($15432, BitsMap$new)); - var _detected$8 = $15433; + var $15540 = self.value; + var $15541 = Kind$Term$show$(Kind$Term$normalize$($15540, BitsMap$new)); + var _detected$8 = $15541; break; }; - var $15425 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { - var self = $15424; + var $15533 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { + var self = $15532; switch (self._) { case 'List.nil': - var $15434 = ""; - return $15434; + var $15542 = ""; + return $15542; case 'List.cons': - var $15435 = ("With context:\u{a}" + Kind$Context$show$($15424)); - return $15435; + var $15543 = ("With context:\u{a}" + Kind$Context$show$($15532)); + return $15543; }; })()))))))); - var $15421 = $15425; + var $15529 = $15533; break; case 'Kind.Error.show_goal': - var $15436 = self.name; - var $15437 = self.dref; - var $15438 = self.verb; - var $15439 = self.goal; - var $15440 = self.context; - var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($15436) + ":\u{a}")); - var self = $15439; + var $15544 = self.name; + var $15545 = self.dref; + var $15546 = self.verb; + var $15547 = self.goal; + var $15548 = self.context; + var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($15544) + ":\u{a}")); + var self = $15547; switch (self._) { case 'Maybe.some': - var $15442 = self.value; - var _goal$10 = Kind$Term$expand$($15437, $15442, _defs$2); - var $15443 = ("With type: " + ((() => { - var self = $15438; + var $15550 = self.value; + var _goal$10 = Kind$Term$expand$($15545, $15550, _defs$2); + var $15551 = ("With type: " + ((() => { + var self = $15546; if (self) { - var $15444 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { - var $15445 = _x$11; - return $15445; + var $15552 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { + var $15553 = _x$11; + return $15553; }))); - return $15444; + return $15552; } else { - var $15446 = Kind$Term$show$(_goal$10); - return $15446; + var $15554 = Kind$Term$show$(_goal$10); + return $15554; }; })() + "\u{a}")); - var _with_type$9 = $15443; + var _with_type$9 = $15551; break; case 'Maybe.none': - var $15447 = ""; - var _with_type$9 = $15447; + var $15555 = ""; + var _with_type$9 = $15555; break; }; - var self = $15440; + var self = $15548; switch (self._) { case 'List.nil': - var $15448 = ""; - var _with_ctxt$10 = $15448; + var $15556 = ""; + var _with_ctxt$10 = $15556; break; case 'List.cons': - var $15449 = ("With context:\u{a}" + Kind$Context$show$($15440)); - var _with_ctxt$10 = $15449; + var $15557 = ("With context:\u{a}" + Kind$Context$show$($15548)); + var _with_ctxt$10 = $15557; break; }; - var $15441 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); - var $15421 = $15441; + var $15549 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); + var $15529 = $15549; break; case 'Kind.Error.waiting': - var $15450 = self.name; - var $15451 = ("Waiting for \'" + ($15450 + "\'.")); - var $15421 = $15451; + var $15558 = self.name; + var $15559 = ("Waiting for \'" + ($15558 + "\'.")); + var $15529 = $15559; break; case 'Kind.Error.indirect': - var $15452 = self.name; - var $15453 = ("Error on dependency \'" + ($15452 + "\'.")); - var $15421 = $15453; + var $15560 = self.name; + var $15561 = ("Error on dependency \'" + ($15560 + "\'.")); + var $15529 = $15561; break; case 'Kind.Error.patch': - var $15454 = self.term; - var $15455 = ("Patching: " + Kind$Term$show$($15454)); - var $15421 = $15455; + var $15562 = self.term; + var $15563 = ("Patching: " + Kind$Term$show$($15562)); + var $15529 = $15563; break; case 'Kind.Error.undefined_reference': - var $15456 = self.name; - var $15457 = ("Undefined reference: " + (Kind$Name$show$($15456) + "\u{a}")); - var $15421 = $15457; + var $15564 = self.name; + var $15565 = ("Undefined reference: " + (Kind$Name$show$($15564) + "\u{a}")); + var $15529 = $15565; break; case 'Kind.Error.cant_infer': - var $15458 = self.term; - var $15459 = self.context; - var _term$6 = Kind$Term$show$($15458); - var _context$7 = Kind$Context$show$($15459); - var $15460 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); - var $15421 = $15460; + var $15566 = self.term; + var $15567 = self.context; + var _term$6 = Kind$Term$show$($15566); + var _context$7 = Kind$Context$show$($15567); + var $15568 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); + var $15529 = $15568; break; }; - return $15421; + return $15529; }; const Kind$Error$show = x0 => x1 => Kind$Error$show$(x0, x1); @@ -51496,133 +51802,133 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $15462 = self.origin; - var $15463 = $15462; - var $15461 = $15463; + var $15570 = self.origin; + var $15571 = $15570; + var $15569 = $15571; break; case 'Kind.Error.undefined_reference': - var $15464 = self.origin; - var $15465 = $15464; - var $15461 = $15465; + var $15572 = self.origin; + var $15573 = $15572; + var $15569 = $15573; break; case 'Kind.Error.cant_infer': - var $15466 = self.origin; - var $15467 = $15466; - var $15461 = $15467; + var $15574 = self.origin; + var $15575 = $15574; + var $15569 = $15575; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': - var $15468 = Maybe$none; - var $15461 = $15468; + var $15576 = Maybe$none; + var $15569 = $15576; break; }; - return $15461; + return $15569; }; const Kind$Error$origin = x0 => Kind$Error$origin$(x0); function Kind$Defs$report$errors$(_defs$1) { var _errors$2 = ""; var _errors$3 = (() => { - var $15471 = _errors$2; - var $15472 = BitsMap$keys$(_defs$1); - let _errors$4 = $15471; + var $15579 = _errors$2; + var $15580 = BitsMap$keys$(_defs$1); + let _errors$4 = $15579; let _key$3; - while ($15472._ === 'List.cons') { - _key$3 = $15472.head; + while ($15580._ === 'List.cons') { + _key$3 = $15580.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 $15473 = self.value; - var self = $15473; + var $15581 = self.value; + var self = $15581; switch (self._) { case 'Kind.Def.new': - var $15475 = self.file; - var $15476 = self.code; - var $15477 = self.name; - var $15478 = self.stat; - var self = $15478; + var $15583 = self.file; + var $15584 = self.code; + var $15585 = self.name; + var $15586 = self.stat; + var self = $15586; switch (self._) { case 'Kind.Status.fail': - var $15480 = self.errors; - var self = $15480; + var $15588 = self.errors; + var self = $15588; switch (self._) { case 'List.nil': - var $15482 = _errors$4; - var $15481 = $15482; + var $15590 = _errors$4; + var $15589 = $15590; break; case 'List.cons': - var _name_str$20 = $15477; - var _rel_errs$21 = Kind$Error$relevant$($15480); + var _name_str$20 = $15585; + var _rel_errs$21 = Kind$Error$relevant$($15588); var _errors$22 = (() => { - var $15485 = _errors$4; - var $15486 = _rel_errs$21; - let _errors$23 = $15485; + var $15593 = _errors$4; + var $15594 = _rel_errs$21; + let _errors$23 = $15593; let _err$22; - while ($15486._ === 'List.cons') { - _err$22 = $15486.head; + while ($15594._ === 'List.cons') { + _err$22 = $15594.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 $15487 = self.value; - var self = $15487; + var $15595 = self.value; + var self = $15595; switch (self._) { case 'Pair.new': - var $15489 = self.fst; - var $15490 = self.snd; - var _inside$29 = ("Inside \'" + ($15475 + "\':\u{a}")); - var _source$30 = Kind$Code$highlight$($15476, $15489, $15489, $15490); - var $15491 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); - var $15488 = $15491; + var $15597 = self.fst; + var $15598 = self.snd; + var _inside$29 = ("Inside \'" + ($15583 + "\':\u{a}")); + var _source$30 = Kind$Code$highlight$($15584, $15597, $15597, $15598); + var $15599 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); + var $15596 = $15599; break; }; - var $15485 = $15488; + var $15593 = $15596; break; case 'Maybe.none': - var $15492 = (_errors$23 + (_err_msg$24 + "\u{a}")); - var $15485 = $15492; + var $15600 = (_errors$23 + (_err_msg$24 + "\u{a}")); + var $15593 = $15600; break; }; - _errors$23 = $15485; - $15486 = $15486.tail; + _errors$23 = $15593; + $15594 = $15594.tail; } return _errors$23; })(); - var $15483 = _errors$22; - var $15481 = $15483; + var $15591 = _errors$22; + var $15589 = $15591; break; }; - var $15479 = $15481; + var $15587 = $15589; break; case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.done': - var $15493 = _errors$4; - var $15479 = $15493; + var $15601 = _errors$4; + var $15587 = $15601; break; }; - var $15474 = $15479; + var $15582 = $15587; break; }; - var $15471 = $15474; + var $15579 = $15582; break; case 'Maybe.none': - var $15494 = _errors$4; - var $15471 = $15494; + var $15602 = _errors$4; + var $15579 = $15602; break; }; - _errors$4 = $15471; - $15472 = $15472.tail; + _errors$4 = $15579; + $15580 = $15580.tail; } return _errors$4; })(); - var $15469 = _errors$3; - return $15469; + var $15577 = _errors$3; + return $15577; }; const Kind$Defs$report$errors = x0 => Kind$Defs$report$errors$(x0); @@ -51631,44 +51937,44 @@ module.exports = (function() { var _errors$4 = Kind$Defs$report$errors$(_defs$1); var self = _errors$4; if (self.length === 0) { - var $15496 = "All terms check."; - var _errors$5 = $15496; + var $15604 = "All terms check."; + var _errors$5 = $15604; } else { - var $15497 = self.charCodeAt(0); - var $15498 = self.slice(1); - var $15499 = _errors$4; - var _errors$5 = $15499; + var $15605 = self.charCodeAt(0); + var $15606 = self.slice(1); + var $15607 = _errors$4; + var _errors$5 = $15607; }; - var $15495 = (_types$3 + ("\u{a}" + _errors$5)); - return $15495; + var $15603 = (_types$3 + ("\u{a}" + _errors$5)); + return $15603; }; const Kind$Defs$report = x0 => x1 => Kind$Defs$report$(x0, x1); function IO$set_file$(_name$1, _content$2) { - var $15500 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { - var $15501 = IO$end$(Unit$new); - return $15501; + var $15608 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { + var $15609 = IO$end$(Unit$new); + return $15609; })); - return $15500; + return $15608; }; const IO$set_file = x0 => x1 => IO$set_file$(x0, x1); function Kind$Synth$load$cached$set_file$(_name$1, _value$2) { - var $15502 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); - return $15502; + var $15610 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); + return $15610; }; 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 $15504 = "true"; - var $15503 = $15504; + var $15612 = "true"; + var $15611 = $15612; } else { - var $15505 = "false"; - var $15503 = $15505; + var $15613 = "false"; + var $15611 = $15613; }; - return $15503; + return $15611; }; const Bool$show = x0 => Bool$show$(x0); @@ -51676,156 +51982,156 @@ module.exports = (function() { var self = _kvs$1; switch (self._) { case 'List.cons': - var $15507 = self.head; - var $15508 = self.tail; - var self = $15507; + var $15615 = self.head; + var $15616 = self.tail; + var self = $15615; switch (self._) { case 'Pair.new': - var $15510 = self.fst; - var $15511 = self.snd; - var self = $15511; + var $15618 = self.fst; + var $15619 = self.snd; + var self = $15619; switch (self._) { case 'Kind.Def.new': - var $15513 = self.file; - var $15514 = self.term; - var $15515 = self.type; - var $15516 = self.isct; - var $15517 = self.arit; - var $15518 = self.stat; - var self = $15518; + var $15621 = self.file; + var $15622 = self.term; + var $15623 = self.type; + var $15624 = self.isct; + var $15625 = self.arit; + var $15626 = self.stat; + var self = $15626; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $15520 = Kind$Defs$cache$go$($15508); - var $15519 = $15520; + var $15628 = Kind$Defs$cache$go$($15616); + var $15627 = $15628; break; case 'Kind.Status.done': - var $15521 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $15522 = _m$bind$16; - return $15522; - }))(IO$get_file_mtime$($15513))((_time$16 => { - var $15523 = IO$monad$((_m$bind$17 => _m$pure$18 => { - var $15524 = _m$bind$17; - return $15524; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".term"), Kind$Core$show$($15514)))((_$17 => { - var $15525 = IO$monad$((_m$bind$18 => _m$pure$19 => { - var $15526 = _m$bind$18; - return $15526; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".type"), Kind$Core$show$($15515)))((_$18 => { - var $15527 = IO$monad$((_m$bind$19 => _m$pure$20 => { - var $15528 = _m$bind$19; - return $15528; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".isct"), Bool$show$($15516)))((_$19 => { - var $15529 = IO$monad$((_m$bind$20 => _m$pure$21 => { - var $15530 = _m$bind$20; - return $15530; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".arit"), Nat$show$($15517)))((_$20 => { - var $15531 = IO$monad$((_m$bind$21 => _m$pure$22 => { - var $15532 = _m$bind$21; - return $15532; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".file"), $15513))((_$21 => { - var $15533 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $15534 = _m$bind$22; - return $15534; - }))(Kind$Synth$load$cached$set_file$(($15510 + ".time"), _time$16))((_$22 => { - var $15535 = Kind$Defs$cache$go$($15508); - return $15535; + var $15629 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $15630 = _m$bind$16; + return $15630; + }))(IO$get_file_mtime$($15621))((_time$16 => { + var $15631 = IO$monad$((_m$bind$17 => _m$pure$18 => { + var $15632 = _m$bind$17; + return $15632; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".term"), Kind$Core$show$($15622)))((_$17 => { + var $15633 = IO$monad$((_m$bind$18 => _m$pure$19 => { + var $15634 = _m$bind$18; + return $15634; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".type"), Kind$Core$show$($15623)))((_$18 => { + var $15635 = IO$monad$((_m$bind$19 => _m$pure$20 => { + var $15636 = _m$bind$19; + return $15636; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".isct"), Bool$show$($15624)))((_$19 => { + var $15637 = IO$monad$((_m$bind$20 => _m$pure$21 => { + var $15638 = _m$bind$20; + return $15638; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".arit"), Nat$show$($15625)))((_$20 => { + var $15639 = IO$monad$((_m$bind$21 => _m$pure$22 => { + var $15640 = _m$bind$21; + return $15640; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".file"), $15621))((_$21 => { + var $15641 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $15642 = _m$bind$22; + return $15642; + }))(Kind$Synth$load$cached$set_file$(($15618 + ".time"), _time$16))((_$22 => { + var $15643 = Kind$Defs$cache$go$($15616); + return $15643; })); - return $15533; + return $15641; })); - return $15531; + return $15639; })); - return $15529; + return $15637; })); - return $15527; + return $15635; })); - return $15525; + return $15633; })); - return $15523; + return $15631; })); - var $15519 = $15521; + var $15627 = $15629; break; }; - var $15512 = $15519; + var $15620 = $15627; break; }; - var $15509 = $15512; + var $15617 = $15620; break; }; - var $15506 = $15509; + var $15614 = $15617; break; case 'List.nil': - var $15536 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15537 = _m$pure$3; - return $15537; + var $15644 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15645 = _m$pure$3; + return $15645; }))(Unit$new); - var $15506 = $15536; + var $15614 = $15644; break; }; - return $15506; + return $15614; }; const Kind$Defs$cache$go = x0 => Kind$Defs$cache$go$(x0); function Kind$Defs$cache$(_defs$1) { - var $15538 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); - return $15538; + var $15646 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); + return $15646; }; const Kind$Defs$cache = x0 => Kind$Defs$cache$(x0); function Kind$api$io$check_file$(_file$1) { - var $15539 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15540 = _m$bind$2; - return $15540; + var $15647 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15648 = _m$bind$2; + return $15648; }))(Kind$Synth$file$(_file$1, Kind$Map$new))((_loaded$2 => { var self = _loaded$2; switch (self._) { case 'Either.left': - var $15542 = self.value; - var $15543 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $15544 = _m$bind$4; - return $15544; + var $15650 = self.value; + var $15651 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $15652 = _m$bind$4; + return $15652; }))(IO$print$(String$flatten$(List$cons$("On \'", List$cons$(_file$1, List$cons$("\':", List$nil))))))((_$4 => { - var $15545 = IO$print$($15542); - return $15545; + var $15653 = IO$print$($15650); + return $15653; })); - var $15541 = $15543; + var $15649 = $15651; break; case 'Either.right': - var $15546 = self.value; - var self = $15546; + var $15654 = self.value; + var self = $15654; switch (self._) { case 'Pair.new': - var $15548 = self.fst; - var $15549 = self.snd; - var _nams$6 = $15548; - var _defs$7 = $15549; + var $15656 = self.fst; + var $15657 = self.snd; + var _nams$6 = $15656; + var _defs$7 = $15657; var self = _nams$6; switch (self._) { case 'List.nil': - var $15551 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); - var $15550 = $15551; + var $15659 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); + var $15658 = $15659; break; case 'List.cons': - var $15552 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $15553 = _m$bind$10; - return $15553; + var $15660 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $15661 = _m$bind$10; + return $15661; }))(IO$print$(Kind$Defs$report$(_defs$7, _nams$6)))((_$10 => { - var $15554 = Kind$Defs$cache$(_defs$7); - return $15554; + var $15662 = Kind$Defs$cache$(_defs$7); + return $15662; })); - var $15550 = $15552; + var $15658 = $15660; break; }; - var $15547 = $15550; + var $15655 = $15658; break; }; - var $15541 = $15547; + var $15649 = $15655; break; }; - return $15541; + return $15649; })); - return $15539; + return $15647; }; const Kind$api$io$check_file = x0 => Kind$api$io$check_file$(x0); @@ -51833,243 +52139,243 @@ module.exports = (function() { var self = _files$1; switch (self._) { case 'List.cons': - var $15556 = self.head; - var $15557 = self.tail; - var $15558 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $15559 = _m$bind$5; - return $15559; - }))(Kind$Synth$file$($15556, _defs$2))((_file_synth$5 => { + var $15664 = self.head; + var $15665 = self.tail; + var $15666 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $15667 = _m$bind$5; + return $15667; + }))(Kind$Synth$file$($15664, _defs$2))((_file_synth$5 => { var self = _file_synth$5; switch (self._) { case 'Either.right': - var $15561 = self.value; - var _nams$7 = Pair$fst$($15561); - var _defs$8 = Pair$snd$($15561); - var $15562 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $15563 = _m$bind$9; - return $15563; - }))(Kind$Synth$files$go$($15557, _defs$8))((_rest$9 => { + var $15669 = self.value; + var _nams$7 = Pair$fst$($15669); + var _defs$8 = Pair$snd$($15669); + var $15670 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $15671 = _m$bind$9; + return $15671; + }))(Kind$Synth$files$go$($15665, _defs$8))((_rest$9 => { var _nams$10 = List$concat$(_nams$7, Pair$fst$(_rest$9)); var _defs$11 = Pair$snd$(_rest$9); - var $15564 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $15565 = _m$pure$13; - return $15565; + var $15672 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $15673 = _m$pure$13; + return $15673; }))(Pair$new$(_nams$10, _defs$11)); - return $15564; + return $15672; })); - var $15560 = $15562; + var $15668 = $15670; break; case 'Either.left': - var $15566 = Kind$Synth$files$go$($15557, _defs$2); - var $15560 = $15566; + var $15674 = Kind$Synth$files$go$($15665, _defs$2); + var $15668 = $15674; break; }; - return $15560; + return $15668; })); - var $15555 = $15558; + var $15663 = $15666; break; case 'List.nil': - var $15567 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15568 = _m$pure$4; - return $15568; + var $15675 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15676 = _m$pure$4; + return $15676; }))(Pair$new$(List$nil, _defs$2)); - var $15555 = $15567; + var $15663 = $15675; break; }; - return $15555; + return $15663; }; 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 $15570 = Kind$Map$set(_name$2)(Unit$new); - return $15570; + var $15678 = Kind$Map$set(_name$2)(Unit$new); + return $15678; })); - var $15569 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); - return $15569; + var $15677 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); + return $15677; }; const Kind$Synth$remove_duplicate_names = x0 => Kind$Synth$remove_duplicate_names$(x0); function Kind$Synth$files$(_files$1, _defs$2) { - var $15571 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15572 = _m$bind$3; - return $15572; + var $15679 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15680 = _m$bind$3; + return $15680; }))(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 $15573 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15574 = _m$pure$7; - return $15574; + var $15681 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15682 = _m$pure$7; + return $15682; }))(Pair$new$(_nams$4, _defs$5)); - return $15573; + return $15681; })); - return $15571; + return $15679; }; const Kind$Synth$files = x0 => x1 => Kind$Synth$files$(x0, x1); function Kind$api$io$check_files$(_files$1) { - var $15575 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15576 = _m$bind$2; - return $15576; + var $15683 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15684 = _m$bind$2; + return $15684; }))(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 $15578 = IO$print$("No valid Kind file found."); - var $15577 = $15578; + var $15686 = IO$print$("No valid Kind file found."); + var $15685 = $15686; break; case 'List.cons': - var $15579 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $15580 = _m$bind$7; - return $15580; + var $15687 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $15688 = _m$bind$7; + return $15688; }))(IO$print$(Kind$Defs$report$(_defs$4, _nams$3)))((_$7 => { - var $15581 = Kind$Defs$cache$(_defs$4); - return $15581; + var $15689 = Kind$Defs$cache$(_defs$4); + return $15689; })); - var $15577 = $15579; + var $15685 = $15687; break; }; - return $15577; + return $15685; })); - return $15575; + return $15683; }; const Kind$api$io$check_files = x0 => Kind$api$io$check_files$(x0); function Kind$api$io$check_term$(_name$1) { - var $15582 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15583 = _m$bind$2; - return $15583; + var $15690 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15691 = _m$bind$2; + return $15691; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_defs$2 => { var self = _defs$2; switch (self._) { case 'Maybe.some': - var $15585 = self.value; - var $15586 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $15587 = _m$bind$4; - return $15587; - }))(IO$print$(Kind$Defs$report$($15585, List$cons$(_name$1, List$nil))))((_$4 => { - var $15588 = Kind$Defs$cache$($15585); - return $15588; + var $15693 = self.value; + var $15694 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $15695 = _m$bind$4; + return $15695; + }))(IO$print$(Kind$Defs$report$($15693, List$cons$(_name$1, List$nil))))((_$4 => { + var $15696 = Kind$Defs$cache$($15693); + return $15696; })); - var $15584 = $15586; + var $15692 = $15694; 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 $15590 = ("\'" + (_x$4 + "\'")); - return $15590; + var $15698 = ("\'" + (_x$4 + "\'")); + return $15698; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $15589 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); - var $15584 = $15589; + var $15697 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); + var $15692 = $15697; break; }; - return $15584; + return $15692; })); - return $15582; + return $15690; }; const Kind$api$io$check_term = x0 => Kind$api$io$check_term$(x0); function Kind$api$io$show_term$(_name$1) { - var $15591 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15592 = _m$bind$2; - return $15592; + var $15699 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15700 = _m$bind$2; + return $15700; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $15593 = IO$print$((() => { + var $15701 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $15594 = self.value; - var _defs$4 = $15594; + var $15702 = self.value; + var _defs$4 = $15702; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $15596 = self.value; - var self = $15596; + var $15704 = self.value; + var self = $15704; switch (self._) { case 'Kind.Def.new': - var $15598 = self.term; - var _term$16 = $15598; - var $15599 = Kind$Term$show$(_term$16); - var $15597 = $15599; + var $15706 = self.term; + var _term$16 = $15706; + var $15707 = Kind$Term$show$(_term$16); + var $15705 = $15707; break; }; - var $15595 = $15597; + var $15703 = $15705; break; case 'Maybe.none': - var $15600 = ("Term not found: \'" + (_name$1 + "\'.")); - var $15595 = $15600; + var $15708 = ("Term not found: \'" + (_name$1 + "\'.")); + var $15703 = $15708; break; }; - return $15595; + return $15703; 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 $15602 = ("\'" + (_x$4 + "\'")); - return $15602; + var $15710 = ("\'" + (_x$4 + "\'")); + return $15710; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $15601 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $15601; + var $15709 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $15709; }; })()); - return $15593; + return $15701; })); - return $15591; + return $15699; }; const Kind$api$io$show_term = x0 => Kind$api$io$show_term$(x0); function Kind$api$io$show_term_normal$(_name$1) { - var $15603 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15604 = _m$bind$2; - return $15604; + var $15711 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15712 = _m$bind$2; + return $15712; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $15605 = IO$print$((() => { + var $15713 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $15606 = self.value; - var _defs$4 = $15606; + var $15714 = self.value; + var _defs$4 = $15714; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $15608 = self.value; - var self = $15608; + var $15716 = self.value; + var self = $15716; switch (self._) { case 'Kind.Def.new': - var $15610 = self.term; - var _term$16 = $15610; + var $15718 = self.term; + var _term$16 = $15718; var _norm$17 = Kind$Term$normalize$(_term$16, _defs$4); - var $15611 = Kind$Term$show$(_norm$17); - var $15609 = $15611; + var $15719 = Kind$Term$show$(_norm$17); + var $15717 = $15719; break; }; - var $15607 = $15609; + var $15715 = $15717; break; case 'Maybe.none': - var $15612 = ("Term not found: \'" + (_name$1 + "\'.")); - var $15607 = $15612; + var $15720 = ("Term not found: \'" + (_name$1 + "\'.")); + var $15715 = $15720; break; }; - return $15607; + return $15715; 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 $15614 = ("\'" + (_x$4 + "\'")); - return $15614; + var $15722 = ("\'" + (_x$4 + "\'")); + return $15722; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $15613 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $15613; + var $15721 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $15721; }; })()); - return $15605; + return $15713; })); - return $15603; + return $15711; }; const Kind$api$io$show_term_normal = x0 => Kind$api$io$show_term_normal$(x0); @@ -52086,13 +52392,13 @@ module.exports = (function() { var self = _io$2; switch (self._) { case 'IO.end': - var $15615 = self.value; - var $15616 = $15615; - return $15616; + var $15723 = self.value; + var $15724 = $15723; + return $15724; case 'IO.ask': - var $15617 = self.then; - var $15618 = IO$purify$($15617("")); - return $15618; + var $15725 = self.then; + var $15726 = IO$purify$($15725("")); + return $15726; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -52105,31 +52411,31 @@ module.exports = (function() { var self = Kind$Defs$read$("Main.kind", _code$1, Kind$Map$new); switch (self._) { case 'Either.left': - var $15620 = self.value; - var $15621 = $15620; - var $15619 = $15621; + var $15728 = self.value; + var $15729 = $15728; + var $15727 = $15729; break; case 'Either.right': - var $15622 = self.value; - var $15623 = IO$purify$((() => { - var _defs$3 = $15622; + var $15730 = self.value; + var $15731 = IO$purify$((() => { + var _defs$3 = $15730; var _nams$4 = List$mapped$(BitsMap$keys$(_defs$3), Kind$Name$from_bits); - var $15624 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $15625 = _m$bind$5; - return $15625; + var $15732 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $15733 = _m$bind$5; + return $15733; }))(Kind$Synth$many$(_nams$4, _defs$3))((_defs$5 => { - var $15626 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15627 = _m$pure$7; - return $15627; + var $15734 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15735 = _m$pure$7; + return $15735; }))(Kind$Defs$report$(_defs$5, _nams$4)); - return $15626; + return $15734; })); - return $15624; + return $15732; })()); - var $15619 = $15623; + var $15727 = $15731; break; }; - return $15619; + return $15727; }; const Kind$api$check_code = x0 => Kind$api$check_code$(x0); @@ -52137,16 +52443,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 $15629 = self.val; - var $15630 = Maybe$some$($15629); - var $15628 = $15630; + var $15737 = self.val; + var $15738 = Maybe$some$($15737); + var $15736 = $15738; break; case 'Parser.Reply.error': - var $15631 = Maybe$none; - var $15628 = $15631; + var $15739 = Maybe$none; + var $15736 = $15739; break; }; - return $15628; + return $15736; }; const Kind$Term$read = x0 => Kind$Term$read$(x0); const Kind$api$export = (() => { @@ -52160,11 +52466,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 $15632 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $15633 = _m$pure$12; - return $15633; + var $15740 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $15741 = _m$pure$12; + return $15741; }))(Unit$new); - return $15632; + return $15740; })(); return { '$main$': () => run(Kind$api$export), @@ -52443,6 +52749,7 @@ module.exports = (function() { 'Kind.Term.imp': Kind$Term$imp, 'Kind.Parser.implicit': Kind$Parser$implicit, 'Kind.Parser.goal_rewrite': Kind$Parser$goal_rewrite, + 'Kind.Parser.goal_replace': Kind$Parser$goal_replace, 'Kind.Parser.if': Kind$Parser$if, 'Kind.Code.backslash': Kind$Code$backslash, 'Kind.Code.escapes': Kind$Code$escapes,