c{0: 0 (((1 string-address)) <- ((new)) a/b/c) -- nil
c{0: 1 (((2 string-address-array-address)) <- ((split)) ((1 string-address)) ((/ literal))) -- nil
c{1: 0 ✓ (((1 string-address)) <- ((new)) a/b/c)
c{1: 1 ✓ (((2 string-address-array-address)) <- ((split)) ((1 string-address)) ((/ literal)))
cn0: convert-names in main
cn0: (((1 string-address)) <- ((new)) a/b/c) nil nil
cn0: checking arg a/b/c
cn0: checking oarg ((1 string-address))
maybe-add: ((1 string-address))
cn0: (((2 string-address-array-address)) <- ((split)) ((1 string-address)) ((/ literal))) nil nil
cn0: checking arg ((1 string-address))
maybe-add: ((1 string-address))
cn0: checking arg ((/ literal))
cn0: checking oarg ((2 string-address-array-address))
maybe-add: ((2 string-address-array-address))
cn1: (((1 string-address)) <- ((new)) a/b/c)
cn1: (((2 string-address-array-address)) <- ((split)) ((1 string-address)) ((/ literal)))
schedule: main
run: main 0: (((1 string-address)) <- ((new)) a/b/c)
run: main 0: 1000 => ((1 string-address))
mem: ((1 string-address)): 1 <= 1000
run: main 1: (((2 string-address-array-address)) <- ((split)) ((1 string-address)) ((/ literal)))
mem: ((1 string-address)) => 1000
run: split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: split/main 0: 1006 => ((default-space space-address))
run: split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 #\/)
run: split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1008 <= 1000
run: split/main 2: (((2 character)) <- ((next-input)))
arg: nil 1 (1000 #\/)
run: split/main 2: #\/ => ((2 character))
mem: ((2 character)): 1009 <= #\/
run: split/main 3: (((3 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: split/main 3: 5 => ((3 integer))
mem: ((3 integer)): 1010 <= 5
run: split/main 4: (((4 boolean)) <- ((equal)) ((3 integer)) ((0 literal)))
mem: ((3 integer)) => 5
run: split/main 4: nil => ((4 boolean))
mem: ((4 boolean)): 1011 <= nil
run: split/main 5: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => nil
run: split/main 8: (((6 integer)) <- ((copy)) ((1 literal)))
run: split/main 8: 1 => ((6 integer))
mem: ((6 integer)): 1013 <= 1
run: split/main 9: (((7 integer)) <- ((copy)) ((0 literal)))
run: split/main 9: 0 => ((7 integer))
mem: ((7 integer)): 1014 <= 0
run: split/main 10: (((7 integer)) <- ((find-next)) ((1 string-address)) ((2 character)) ((7 integer)))
mem: ((1 string-address)) => 1000
mem: ((2 character)) => /
mem: ((7 integer)) => 0
run: find-next/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: find-next/split/main 0: 1037 => ((default-space space-address))
run: find-next/split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 #\/ 0)
run: find-next/split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1039 <= 1000
run: find-next/split/main 2: (((2 character)) <- ((next-input)))
arg: nil 1 (1000 #\/ 0)
run: find-next/split/main 2: #\/ => ((2 character))
mem: ((2 character)): 1040 <= #\/
run: find-next/split/main 3: (((3 integer)) <- ((next-input)))
arg: nil 2 (1000 #\/ 0)
run: find-next/split/main 3: 0 => ((3 integer))
mem: ((3 integer)): 1041 <= 0
run: find-next/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: find-next/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1042 <= 5
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 0
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1043 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 0
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1001 byte) (raw)) => a
run: find-next/split/main 7: #\a => ((6 byte))
mem: ((6 byte)): 1044 <= #\a
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => a
mem: ((2 character)) => /
run: find-next/split/main 8: nil => ((7 boolean))
mem: ((7 boolean)): 1045 <= nil
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => nil
run: find-next/split/main 10: (((3 integer)) <- ((add)) ((3 integer)) ((1 literal)))
mem: ((3 integer)) => 0
run: find-next/split/main 10: 1 => ((3 integer))
mem: ((3 integer)): 1041 <= 1
run: find-next/split/main 11: (((jump)) ((-7 offset)))
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 1
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1043 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 1
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1002 byte) (raw)) => /
run: find-next/split/main 7: #\/ => ((6 byte))
mem: ((6 byte)): 1044 <= #\/
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => /
mem: ((2 character)) => /
run: find-next/split/main 8: t => ((7 boolean))
mem: ((7 boolean)): 1045 <= t
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => t
run: find-next/split/main 12: (((reply)) ((3 integer)))
mem: ((3 integer)) => 1
run: split/main 10: 1 => ((7 integer))
mem: ((7 integer)): 1014 <= 1
run: split/main 11: (((8 boolean)) <- ((greater-or-equal)) ((7 integer)) ((3 integer)))
mem: ((7 integer)) => 1
mem: ((3 integer)) => 5
run: split/main 11: nil => ((8 boolean))
mem: ((8 boolean)): 1015 <= nil
run: split/main 12: (((jump-if)) ((8 boolean)) ((3 offset)))
mem: ((8 boolean)) => nil
run: split/main 13: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
mem: ((7 integer)) => 1
run: split/main 13: 2 => ((7 integer))
mem: ((7 integer)): 1014 <= 2
run: split/main 14: (((6 integer)) <- ((add)) ((6 integer)) ((1 literal)))
mem: ((6 integer)) => 1
run: split/main 14: 2 => ((6 integer))
mem: ((6 integer)): 1013 <= 2
run: split/main 15: (((jump)) ((-6 offset)))
run: split/main 10: (((7 integer)) <- ((find-next)) ((1 string-address)) ((2 character)) ((7 integer)))
mem: ((1 string-address)) => 1000
mem: ((2 character)) => /
mem: ((7 integer)) => 2
run: find-next/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: find-next/split/main 0: 1068 => ((default-space space-address))
run: find-next/split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 #\/ 2)
run: find-next/split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1070 <= 1000
run: find-next/split/main 2: (((2 character)) <- ((next-input)))
arg: nil 1 (1000 #\/ 2)
run: find-next/split/main 2: #\/ => ((2 character))
mem: ((2 character)): 1071 <= #\/
run: find-next/split/main 3: (((3 integer)) <- ((next-input)))
arg: nil 2 (1000 #\/ 2)
run: find-next/split/main 3: 2 => ((3 integer))
mem: ((3 integer)): 1072 <= 2
run: find-next/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: find-next/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1073 <= 5
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 2
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1074 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 2
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1003 byte) (raw)) => b
run: find-next/split/main 7: #\b => ((6 byte))
mem: ((6 byte)): 1075 <= #\b
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => b
mem: ((2 character)) => /
run: find-next/split/main 8: nil => ((7 boolean))
mem: ((7 boolean)): 1076 <= nil
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => nil
run: find-next/split/main 10: (((3 integer)) <- ((add)) ((3 integer)) ((1 literal)))
mem: ((3 integer)) => 2
run: find-next/split/main 10: 3 => ((3 integer))
mem: ((3 integer)): 1072 <= 3
run: find-next/split/main 11: (((jump)) ((-7 offset)))
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 3
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1074 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 3
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1004 byte) (raw)) => /
run: find-next/split/main 7: #\/ => ((6 byte))
mem: ((6 byte)): 1075 <= #\/
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => /
mem: ((2 character)) => /
run: find-next/split/main 8: t => ((7 boolean))
mem: ((7 boolean)): 1076 <= t
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => t
run: find-next/split/main 12: (((reply)) ((3 integer)))
mem: ((3 integer)) => 3
run: split/main 10: 3 => ((7 integer))
mem: ((7 integer)): 1014 <= 3
run: split/main 11: (((8 boolean)) <- ((greater-or-equal)) ((7 integer)) ((3 integer)))
mem: ((7 integer)) => 3
mem: ((3 integer)) => 5
run: split/main 11: nil => ((8 boolean))
mem: ((8 boolean)): 1015 <= nil
run: split/main 12: (((jump-if)) ((8 boolean)) ((3 offset)))
mem: ((8 boolean)) => nil
run: split/main 13: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
mem: ((7 integer)) => 3
run: split/main 13: 4 => ((7 integer))
mem: ((7 integer)): 1014 <= 4
run: split/main 14: (((6 integer)) <- ((add)) ((6 integer)) ((1 literal)))
mem: ((6 integer)) => 2
run: split/main 14: 3 => ((6 integer))
mem: ((6 integer)): 1013 <= 3
run: split/main 15: (((jump)) ((-6 offset)))
run: split/main 10: (((7 integer)) <- ((find-next)) ((1 string-address)) ((2 character)) ((7 integer)))
mem: ((1 string-address)) => 1000
mem: ((2 character)) => /
mem: ((7 integer)) => 4
run: find-next/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: find-next/split/main 0: 1099 => ((default-space space-address))
run: find-next/split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 #\/ 4)
run: find-next/split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1101 <= 1000
run: find-next/split/main 2: (((2 character)) <- ((next-input)))
arg: nil 1 (1000 #\/ 4)
run: find-next/split/main 2: #\/ => ((2 character))
mem: ((2 character)): 1102 <= #\/
run: find-next/split/main 3: (((3 integer)) <- ((next-input)))
arg: nil 2 (1000 #\/ 4)
run: find-next/split/main 3: 4 => ((3 integer))
mem: ((3 integer)): 1103 <= 4
run: find-next/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: find-next/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1104 <= 5
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 4
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1105 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 4
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1005 byte) (raw)) => c
run: find-next/split/main 7: #\c => ((6 byte))
mem: ((6 byte)): 1106 <= #\c
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => c
mem: ((2 character)) => /
run: find-next/split/main 8: nil => ((7 boolean))
mem: ((7 boolean)): 1107 <= nil
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => nil
run: find-next/split/main 10: (((3 integer)) <- ((add)) ((3 integer)) ((1 literal)))
mem: ((3 integer)) => 4
run: find-next/split/main 10: 5 => ((3 integer))
mem: ((3 integer)): 1103 <= 5
run: find-next/split/main 11: (((jump)) ((-7 offset)))
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 5
mem: ((4 integer)) => 5
run: find-next/split/main 5: t => ((5 boolean))
mem: ((5 boolean)): 110<style>pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */</style><div class="highlight"><pre><span></span><span class="o">;</span><span class="w"> </span><span class="nv">reads</span><span class="w"> </span><span class="ow">and</span><span class="w"> </span><span class="nv">prints</span><span class="w"> </span><span class="nv">keys</span><span class="w"> </span><span class="k">until</span><span class="w"> </span><span class="nv">you</span><span class="w"> </span><span class="nv">hit</span><span class="w"> </span><span class="o">&#39;</span><span class="nv">q</span><span class="o">&#39;</span>
<span class="o">;</span><span class="w"> </span><span class="nv">no</span><span class="w"> </span><span class="nv">need</span><span class="w"> </span><span class="k">to</span><span class="w"> </span><span class="nv">hit</span><span class="w"> </span><span class="o">&#39;</span><span class="nv">enter</span><span class="o">&#39;,</span><span class="w"> </span><span class="ow">and</span><span class="w"> </span><span class="o">&#39;</span><span class="nv">enter</span><span class="o">&#39;</span><span class="w"> </span><span class="nv">has</span><span class="w"> </span><span class="nv">no</span><span class="w"> </span><span class="nv">special</span><span class="w"> </span><span class="nv">meaning</span>
<span class="o">;</span><span class="w"> </span><span class="nv">dies</span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="nv">you</span><span class="w"> </span><span class="nv">wait</span><span class="w"> </span><span class="nv">a</span><span class="w"> </span><span class="k">while</span><span class="o">,</span><span class="w"> </span><span class="nv">because</span><span class="w"> </span><span class="nv">so</span><span class="w"> </span><span class="nv">far</span><span class="w"> </span><span class="nv">we</span><span class="w"> </span><span class="nv">never</span><span class="w"> </span><span class="nv">free</span><span class="w"> </span><span class="nf">memory</span>
<span class="p">(</span><span class="nv">function</span><span class="w"> </span><span class="nv">main</span><span class="w"> </span><span class="p">[</span>
<span class="w">  </span><span class="p">(</span><span class="nv">default</span><span class="o">-</span><span class="nv">space</span><span class="o">:</span><span class="nv">space</span><span class="o">-</span><span class="nv">address</span><span class="w"> </span><span class="o">&lt;-</span><span class="w"> </span><span class="nv">new</span><span class="w"> </span><span class="nv">space</span><span class="o">:</span><span class="nv">literal</span><span class="w"> </span><span class="m">30</span><span class="o">:</span><span class="nv">literal</span><span class="p">)</span>
<span class="w">  </span><span class="p">(</span><span class="nv">cursor</span><span class="o">-</span><span class="nv">mode</span><span class="p">)</span>
<span class="w">  </span><span class="o">;</span><span class="w"> </span><span class="nv">hook</span><span class="w"> </span><span class="nv">up</span><span class="w"> </span><span class="nf">stdin</span>
  <span class="p">(</span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="w"> </span><span class="o">&lt;-</span><span class="w"> </span><span class="nv">init</span><span class="o">-</span><span class="nv">channel</span><span class="w"> </span><span class="m">1</span><span class="o">:</span><span class="nv">literal</span><span class="p">)</span>
<span class="o">;</span>?<span class="w">   </span><span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;main: stdin is &quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="o">;</span>?<span class="w">   </span><span class="p">(</span><span class="o">$</span><span class="nv">print</span><span class="w"> </span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="p">)</span>
<span class="o">;</span>?<span class="w">   </span><span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;\n&quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="w">  </span><span class="p">(</span><span class="nv">fork</span><span class="o">-</span><span class="nv">helper</span><span class="w"> </span><span class="nv">send</span><span class="o">-</span><span class="nv">keys</span><span class="o">-</span><span class="k">to</span><span class="o">-</span><span class="nv">stdin</span><span class="o">:</span><span class="nv">fn</span><span class="w"> </span><span class="nv">nil</span><span class="o">:</span><span class="nv">literal</span><span class="o">/</span><span class="nv">globals</span><span class="w"> </span><span class="nv">nil</span><span class="o">:</span><span class="nv">literal</span><span class="o">/</span><span class="nv">limit</span><span class="w"> </span><span class="nv">nil</span><span class="o">:</span><span class="nv">literal</span><span class="o">/</span><span class="nv">keyboard</span><span class="w"> </span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="p">)</span>
<span class="w">  </span><span class="o">;</span><span class="w"> </span><span class="nv">now</span><span class="w"> </span><span class="nv">read</span><span class="w"> </span><span class="nv">characters</span><span class="w"> </span><span class="k">from</span><span class="w"> </span><span class="nv">stdin</span><span class="w"> </span><span class="k">until</span><span class="w"> </span><span class="nv">a</span><span class="w"> </span><span class="o">&#39;</span><span class="nv">q</span><span class="o">&#39;</span><span class="w"> </span><span class="nv">is</span><span class="w"> </span><span class="nf">typed</span>
  <span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;? &quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="w">  </span><span class="p">{</span><span class="w"> </span><span class="k">begin</span>
<span class="w">    </span><span class="p">(</span><span class="nv">x</span><span class="o">:</span><span class="nv">tagged</span><span class="o">-</span><span class="nv">value</span><span class="w"> </span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="o">/</span><span class="nv">deref</span><span class="w"> </span><span class="o">&lt;-</span><span class="w"> </span><span class="nv">read</span><span class="w"> </span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="p">)</span>
<span class="w">    </span><span class="p">(</span><span class="nv">c</span><span class="o">:</span><span class="nv">character</span><span class="w"> </span><span class="o">&lt;-</span><span class="w"> </span><span class="nv">maybe</span><span class="o">-</span><span class="nv">coerce</span><span class="w"> </span><span class="nv">x</span><span class="o">:</span><span class="nv">tagged</span><span class="o">-</span><span class="nv">value</span><span class="w"> </span><span class="nv">character</span><span class="o">:</span><span class="nv">literal</span><span class="p">)</span>
<span class="o">;</span>?<span class="w">     </span><span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;main: stdin is &quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="o">;</span>?<span class="w">     </span><span class="p">(</span><span class="o">$</span><span class="nv">print</span><span class="w"> </span><span class="nv">stdin</span><span class="o">:</span><span class="nv">channel</span><span class="o">-</span><span class="nv">address</span><span class="p">)</span>
<span class="o">;</span>?<span class="w">     </span><span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;\n&quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="o">;</span>?<span class="w">     </span><span class="p">(</span><span class="o">$</span><span class="nf">print</span> <span class="p">((</span><span class="s">&quot;check: &quot;</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="o">;</span>?<span class="w">     </span><span class="p">(</span><span class="o">$</span><span class="nv">print</span><span class="w"> </span><span class="nv">c</span><span class="o">:</span><span class="nv">character</span><span class="p">)</span>
<span class="w">    </span><span class="p">(</span><span class="nv">done</span>?<span class="o">:</span><span class="nv">boolean</span><span class="w"> </span><span class="o">&lt;-</span><span class="w"> </span><span class="nv">equal</span><span class="w"> </span><span class="nv">c</span><span class="o">:</span><span class="nf">character</span> <span class="p">((</span><span class="nv">#</span>\<span class="nv">q</span><span class="w"> </span><span class="nv">literal</span><span class="p">)))</span>
<span class="w">    </span><span class="p">(</span><span class="k">break</span><span class="o">-</span><span class="k">if</span><span class="w"> </span><span class="nv">done</span>?<span class="o">:</span><span class="nv">boolean</span><span class="p">)</span>
<span class="w">    </span><span class="p">(</span><span class="nv">loop</span><span class="p">)</span>
<span class="w">  </span><span class="p">}</span>
<span class="p">])</span>
</pre></div>
</code></pre></div></td>
</tr>
</table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.causal.agency/cgit-pink/about/'>cgit-pink 1.4.1-2-gfad0</a> (<a href='https://git-scm.com/'>git 2.36.2.497.gbbea4dcf42</a>) at 2024-11-16 11:51:39 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>
64 <= 3
run: string-copy/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: string-copy/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1265 <= 5
run: string-copy/split/main 5: (((3 integer)) <- ((min)) ((4 integer)) ((3 integer)))
mem: ((4 integer)) => 5
mem: ((3 integer)) => 3
run: min/string-copy/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: min/string-copy/split/main 0: 1291 => ((default-space space-address))
run: min/string-copy/split/main 1: (((1 integer)) <- ((next-input)))
arg: nil 0 (5 3)
run: min/string-copy/split/main 1: 5 => ((1 integer))
mem: ((1 integer)): 1293 <= 5
run: min/string-copy/split/main 2: (((2 integer)) <- ((next-input)))
arg: nil 1 (5 3)
run: min/string-copy/split/main 2: 3 => ((2 integer))
mem: ((2 integer)): 1294 <= 3
run: min/string-copy/split/main 3: (((3 boolean)) <- ((less-than)) ((1 integer)) ((2 integer)))
mem: ((1 integer)) => 5
mem: ((2 integer)) => 3
run: min/string-copy/split/main 3: nil => ((3 boolean))
mem: ((3 boolean)): 1295 <= nil
run: min/string-copy/split/main 4: (((jump-if)) ((3 boolean)) ((1 offset)))
mem: ((3 boolean)) => nil
run: min/string-copy/split/main 5: (((reply)) ((2 integer)))
mem: ((2 integer)) => 3
run: string-copy/split/main 5: 3 => ((3 integer))
mem: ((3 integer)): 1264 <= 3
run: string-copy/split/main 6: (((4 integer)) <- ((subtract)) ((3 integer)) ((2 integer)))
mem: ((3 integer)) => 3
mem: ((2 integer)) => 2
run: string-copy/split/main 6: 1 => ((4 integer))
mem: ((4 integer)): 1265 <= 1
run: string-copy/split/main 7: (((5 string-address)) <- ((new)) ((string literal)) ((4 integer)))
mem: ((4 integer)) => 1
run: string-copy/split/main 7: 1322 => ((5 string-address))
mem: ((5 string-address)): 1266 <= 1322
run: string-copy/split/main 8: (((6 integer)) <- ((copy)) ((2 integer)))
mem: ((2 integer)) => 2
run: string-copy/split/main 8: 2 => ((6 integer))
mem: ((6 integer)): 1267 <= 2
run: string-copy/split/main 9: (((7 integer)) <- ((copy)) ((0 literal)))
run: string-copy/split/main 9: 0 => ((7 integer))
mem: ((7 integer)): 1268 <= 0
run: string-copy/split/main 10: (((8 boolean)) <- ((greater-or-equal)) ((6 integer)) ((3 integer)))
mem: ((6 integer)) => 2
mem: ((3 integer)) => 3
run: string-copy/split/main 10: nil => ((8 boolean))
mem: ((8 boolean)): 1269 <= nil
run: string-copy/split/main 11: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => nil
run: string-copy/split/main 12: (((9 character)) <- ((index)) ((1 string-address) (deref)) ((6 integer)))
mem: ((6 integer)) => 2
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1003 byte) (raw)) => b
run: string-copy/split/main 12: #\b => ((9 character))
mem: ((9 character)): 1270 <= #\b
run: string-copy/split/main 13: (((10 character-address)) <- ((index-address)) ((5 string-address) (deref)) ((7 integer)))
mem: ((7 integer)) => 0
array-len: ((1322 string) (raw))
mem: ((1322 integer) (raw)) => 1
run: string-copy/split/main 13: 1323 => ((10 character-address))
mem: ((10 character-address)): 1271 <= 1323
run: string-copy/split/main 14: (((10 character-address) (deref)) <- ((copy)) ((9 character)))
mem: ((9 character)) => b
run: string-copy/split/main 14: #\b => ((10 character-address) (deref))
mem: ((10 character-address) (deref)): 1323 <= #\b
run: string-copy/split/main 15: (((6 integer)) <- ((add)) ((6 integer)) ((1 literal)))
mem: ((6 integer)) => 2
run: string-copy/split/main 15: 3 => ((6 integer))
mem: ((6 integer)): 1267 <= 3
run: string-copy/split/main 16: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
mem: ((7 integer)) => 0
run: string-copy/split/main 16: 1 => ((7 integer))
mem: ((7 integer)): 1268 <= 1
run: string-copy/split/main 17: (((jump)) ((-8 offset)))
run: string-copy/split/main 10: (((8 boolean)) <- ((greater-or-equal)) ((6 integer)) ((3 integer)))
mem: ((6 integer)) => 3
mem: ((3 integer)) => 3
run: string-copy/split/main 10: t => ((8 boolean))
mem: ((8 boolean)): 1269 <= t
run: string-copy/split/main 11: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => t
run: string-copy/split/main 18: (((reply)) ((5 string-address)))
mem: ((5 string-address)) => 1322
run: split/main 23: 1322 => ((12 string-address-address) (deref))
mem: ((12 string-address-address) (deref)): 1132 <= 1322
run: split/main 24: (((10 integer)) <- ((add)) ((11 integer)) ((1 literal)))
mem: ((11 integer)) => 3
run: split/main 24: 4 => ((10 integer))
mem: ((10 integer)): 1017 <= 4
run: split/main 25: (((9 integer)) <- ((add)) ((9 integer)) ((1 literal)))
mem: ((9 integer)) => 1
run: split/main 25: 2 => ((9 integer))
mem: ((9 integer)): 1016 <= 2
run: split/main 26: (((jump)) ((-8 offset)))
run: split/main 19: (((8 boolean)) <- ((greater-or-equal)) ((10 integer)) ((3 integer)))
mem: ((10 integer)) => 4
mem: ((3 integer)) => 5
run: split/main 19: nil => ((8 boolean))
mem: ((8 boolean)): 1015 <= nil
run: split/main 20: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => nil
run: split/main 21: (((11 integer)) <- ((find-next)) ((1 string-address)) ((2 character)) ((10 integer)))
mem: ((1 string-address)) => 1000
mem: ((2 character)) => /
mem: ((10 integer)) => 4
run: find-next/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: find-next/split/main 0: 1324 => ((default-space space-address))
run: find-next/split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 #\/ 4)
run: find-next/split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1326 <= 1000
run: find-next/split/main 2: (((2 character)) <- ((next-input)))
arg: nil 1 (1000 #\/ 4)
run: find-next/split/main 2: #\/ => ((2 character))
mem: ((2 character)): 1327 <= #\/
run: find-next/split/main 3: (((3 integer)) <- ((next-input)))
arg: nil 2 (1000 #\/ 4)
run: find-next/split/main 3: 4 => ((3 integer))
mem: ((3 integer)): 1328 <= 4
run: find-next/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: find-next/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1329 <= 5
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 4
mem: ((4 integer)) => 5
run: find-next/split/main 5: nil => ((5 boolean))
mem: ((5 boolean)): 1330 <= nil
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => nil
run: find-next/split/main 7: (((6 byte)) <- ((index)) ((1 string-address) (deref)) ((3 integer)))
mem: ((3 integer)) => 4
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1005 byte) (raw)) => c
run: find-next/split/main 7: #\c => ((6 byte))
mem: ((6 byte)): 1331 <= #\c
run: find-next/split/main 8: (((7 boolean)) <- ((equal)) ((6 byte)) ((2 character)))
mem: ((6 byte)) => c
mem: ((2 character)) => /
run: find-next/split/main 8: nil => ((7 boolean))
mem: ((7 boolean)): 1332 <= nil
run: find-next/split/main 9: (((jump-if)) ((7 boolean)) ((2 offset)))
mem: ((7 boolean)) => nil
run: find-next/split/main 10: (((3 integer)) <- ((add)) ((3 integer)) ((1 literal)))
mem: ((3 integer)) => 4
run: find-next/split/main 10: 5 => ((3 integer))
mem: ((3 integer)): 1328 <= 5
run: find-next/split/main 11: (((jump)) ((-7 offset)))
run: find-next/split/main 5: (((5 boolean)) <- ((greater-or-equal)) ((3 integer)) ((4 integer)))
mem: ((3 integer)) => 5
mem: ((4 integer)) => 5
run: find-next/split/main 5: t => ((5 boolean))
mem: ((5 boolean)): 1330 <= t
run: find-next/split/main 6: (((jump-if)) ((5 boolean)) ((5 offset)))
mem: ((5 boolean)) => t
run: find-next/split/main 12: (((reply)) ((3 integer)))
mem: ((3 integer)) => 5
run: split/main 21: 5 => ((11 integer))
mem: ((11 integer)): 1018 <= 5
run: split/main 22: (((12 string-address-address)) <- ((index-address)) ((5 string-address-array-address) (deref)) ((9 integer)))
mem: ((9 integer)) => 2
array-len: ((1130 string-address-array) (raw))
mem: ((1130 integer) (raw)) => 3
run: split/main 22: 1133 => ((12 string-address-address))
mem: ((12 string-address-address)): 1019 <= 1133
run: split/main 23: (((12 string-address-address) (deref)) <- ((string-copy)) ((1 string-address)) ((10 integer)) ((11 integer)))
mem: ((1 string-address)) => 1000
mem: ((10 integer)) => 4
mem: ((11 integer)) => 5
run: string-copy/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: string-copy/split/main 0: 1355 => ((default-space space-address))
run: string-copy/split/main 1: (((1 string-address)) <- ((next-input)))
arg: nil 0 (1000 4 5)
run: string-copy/split/main 1: 1000 => ((1 string-address))
mem: ((1 string-address)): 1357 <= 1000
run: string-copy/split/main 2: (((2 integer)) <- ((next-input)))
arg: nil 1 (1000 4 5)
run: string-copy/split/main 2: 4 => ((2 integer))
mem: ((2 integer)): 1358 <= 4
run: string-copy/split/main 3: (((3 integer)) <- ((next-input)))
arg: nil 2 (1000 4 5)
run: string-copy/split/main 3: 5 => ((3 integer))
mem: ((3 integer)): 1359 <= 5
run: string-copy/split/main 4: (((4 integer)) <- ((length)) ((1 string-address) (deref)))
array-len: ((1 string-address) (deref))
mem: ((1000 integer) (raw)) => 5
run: string-copy/split/main 4: 5 => ((4 integer))
mem: ((4 integer)): 1360 <= 5
run: string-copy/split/main 5: (((3 integer)) <- ((min)) ((4 integer)) ((3 integer)))
mem: ((4 integer)) => 5
mem: ((3 integer)) => 5
run: min/string-copy/split/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: min/string-copy/split/main 0: 1386 => ((default-space space-address))
run: min/string-copy/split/main 1: (((1 integer)) <- ((next-input)))
arg: nil 0 (5 5)
run: min/string-copy/split/main 1: 5 => ((1 integer))
mem: ((1 integer)): 1388 <= 5
run: min/string-copy/split/main 2: (((2 integer)) <- ((next-input)))
arg: nil 1 (5 5)
run: min/string-copy/split/main 2: 5 => ((2 integer))
mem: ((2 integer)): 1389 <= 5
run: min/string-copy/split/main 3: (((3 boolean)) <- ((less-than)) ((1 integer)) ((2 integer)))
mem: ((1 integer)) => 5
mem: ((2 integer)) => 5
run: min/string-copy/split/main 3: nil => ((3 boolean))
mem: ((3 boolean)): 1390 <= nil
run: min/string-copy/split/main 4: (((jump-if)) ((3 boolean)) ((1 offset)))
mem: ((3 boolean)) => nil
run: min/string-copy/split/main 5: (((reply)) ((2 integer)))
mem: ((2 integer)) => 5
run: string-copy/split/main 5: 5 => ((3 integer))
mem: ((3 integer)): 1359 <= 5
run: string-copy/split/main 6: (((4 integer)) <- ((subtract)) ((3 integer)) ((2 integer)))
mem: ((3 integer)) => 5
mem: ((2 integer)) => 4
run: string-copy/split/main 6: 1 => ((4 integer))
mem: ((4 integer)): 1360 <= 1
run: string-copy/split/main 7: (((5 string-address)) <- ((new)) ((string literal)) ((4 integer)))
mem: ((4 integer)) => 1
run: string-copy/split/main 7: 1417 => ((5 string-address))
mem: ((5 string-address)): 1361 <= 1417
run: string-copy/split/main 8: (((6 integer)) <- ((copy)) ((2 integer)))
mem: ((2 integer)) => 4
run: string-copy/split/main 8: 4 => ((6 integer))
mem: ((6 integer)): 1362 <= 4
run: string-copy/split/main 9: (((7 integer)) <- ((copy)) ((0 literal)))
run: string-copy/split/main 9: 0 => ((7 integer))
mem: ((7 integer)): 1363 <= 0
run: string-copy/split/main 10: (((8 boolean)) <- ((greater-or-equal)) ((6 integer)) ((3 integer)))
mem: ((6 integer)) => 4
mem: ((3 integer)) => 5
run: string-copy/split/main 10: nil => ((8 boolean))
mem: ((8 boolean)): 1364 <= nil
run: string-copy/split/main 11: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => nil
run: string-copy/split/main 12: (((9 character)) <- ((index)) ((1 string-address) (deref)) ((6 integer)))
mem: ((6 integer)) => 4
array-len: ((1000 string) (raw))
mem: ((1000 integer) (raw)) => 5
mem: ((1005 byte) (raw)) => c
run: string-copy/split/main 12: #\c => ((9 character))
mem: ((9 character)): 1365 <= #\c
run: string-copy/split/main 13: (((10 character-address)) <- ((index-address)) ((5 string-address) (deref)) ((7 integer)))
mem: ((7 integer)) => 0
array-len: ((1417 string) (raw))
mem: ((1417 integer) (raw)) => 1
run: string-copy/split/main 13: 1418 => ((10 character-address))
mem: ((10 character-address)): 1366 <= 1418
run: string-copy/split/main 14: (((10 character-address) (deref)) <- ((copy)) ((9 character)))
mem: ((9 character)) => c
run: string-copy/split/main 14: #\c => ((10 character-address) (deref))
mem: ((10 character-address) (deref)): 1418 <= #\c
run: string-copy/split/main 15: (((6 integer)) <- ((add)) ((6 integer)) ((1 literal)))
mem: ((6 integer)) => 4
run: string-copy/split/main 15: 5 => ((6 integer))
mem: ((6 integer)): 1362 <= 5
run: string-copy/split/main 16: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
mem: ((7 integer)) => 0
run: string-copy/split/main 16: 1 => ((7 integer))
mem: ((7 integer)): 1363 <= 1
run: string-copy/split/main 17: (((jump)) ((-8 offset)))
run: string-copy/split/main 10: (((8 boolean)) <- ((greater-or-equal)) ((6 integer)) ((3 integer)))
mem: ((6 integer)) => 5
mem: ((3 integer)) => 5
run: string-copy/split/main 10: t => ((8 boolean))
mem: ((8 boolean)): 1364 <= t
run: string-copy/split/main 11: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => t
run: string-copy/split/main 18: (((reply)) ((5 string-address)))
mem: ((5 string-address)) => 1417
run: split/main 23: 1417 => ((12 string-address-address) (deref))
mem: ((12 string-address-address) (deref)): 1133 <= 1417
run: split/main 24: (((10 integer)) <- ((add)) ((11 integer)) ((1 literal)))
mem: ((11 integer)) => 5
run: split/main 24: 6 => ((10 integer))
mem: ((10 integer)): 1017 <= 6
run: split/main 25: (((9 integer)) <- ((add)) ((9 integer)) ((1 literal)))
mem: ((9 integer)) => 2
run: split/main 25: 3 => ((9 integer))
mem: ((9 integer)): 1016 <= 3
run: split/main 26: (((jump)) ((-8 offset)))
run: split/main 19: (((8 boolean)) <- ((greater-or-equal)) ((10 integer)) ((3 integer)))
mem: ((10 integer)) => 6
mem: ((3 integer)) => 5
run: split/main 19: t => ((8 boolean))
mem: ((8 boolean)): 1015 <= t
run: split/main 20: (((jump-if)) ((8 boolean)) ((6 offset)))
mem: ((8 boolean)) => t
run: split/main 27: (((reply)) ((5 string-address-array-address)))
mem: ((5 string-address-array-address)) => 1130
run: main 1: 1130 => ((2 string-address-array-address))
mem: ((2 string-address-array-address)): 2 <= 1130
schedule: done with routine nil