5485 - promote SubX to top-level

1 files changed, 0 insertions, 521 deletions

diff --git a/arc/.traces/strcat b/arc/.traces/strcat
deleted file mode 100644
index f9a04b71..00000000
--- a/arc/.traces/strcat
+++ /dev/null
@@ -1,521 +0,0 @@
-c{0: 0 (((1 string-address)) <- ((new)) hello,) -- nil
-c{0: 1 (((2 string-address)) <- ((new))  world!) -- nil
-c{0: 2 (((3 string-address)) <- ((strcat)) ((1 string-address)) ((2 string-address))) -- nil
-c{1: 0 ✓ (((1 string-address)) <- ((new)) hello,)
-c{1: 1 ✓ (((2 string-address)) <- ((new))  world!)
-c{1: 2 ✓ (((3 string-address)) <- ((strcat)) ((1 string-address)) ((2 string-address)))
-cn0: convert-names in main
-cn0: (((1 string-address)) <- ((new)) hello,) nil nil
-cn0: checking arg hello,
-cn0: checking oarg ((1 string-address))
-maybe-add: ((1 string-address))
-cn0: (((2 string-address)) <- ((new))  world!) nil nil
-cn0: checking arg  world!
-cn0: checking oarg ((2 string-address))
-maybe-add: ((2 string-address))
-cn0: (((3 string-address)) <- ((strcat)) ((1 string-address)) ((2 string-address))) nil nil
-cn0: checking arg ((1 string-address))
-maybe-add: ((1 string-address))
-cn0: checking arg ((2 string-address))
-maybe-add: ((2 string-address))
-cn0: checking oarg ((3 string-address))
-maybe-add: ((3 string-address))
-cn1: (((1 string-address)) <- ((new)) hello,)
-cn1: (((2 string-address)) <- ((new))  world!)
-cn1: (((3 string-address)) <- ((strcat)) ((1 string-address)) ((2 string-address)))
-schedule: main
-run: main 0: (((1 string-address)) <- ((new)) hello,)
-run: main 0: 1000 => ((1 string-address))
-mem: ((1 string-address)): 1 <= 1000
-run: main 1: (((2 string-address)) <- ((new))  world!)
-run: main 1: 1007 => ((2 string-address))
-mem: ((2 string-address)): 2 <= 1007
-run: main 2: (((3 string-address)) <- ((strcat)) ((1 string-address)) ((2 string-address)))
-mem: ((1 string-address)) => 1000
-mem: ((2 string-address)) => 1007
-run: strcat/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
-run: strcat/main 0: 1015 => ((default-space space-address))
-run: strcat/main 1: (((1 string-address)) <- ((next-input)))
-arg: nil 0 (1000 1007)
-run: strcat/main 1: 1000 => ((1 string-address))
-mem: ((1 string-address)): 1017 <= 1000
-run: strcat/main 2: (((2 integer)) <- ((length)) ((1 string-address) (deref)))
-array-len: ((1 string-address) (deref))
-mem: ((1000 integer) (raw)) => 6
-run: strcat/main 2: 6 => ((2 integer))
-mem: ((2 integer)): 1018 <= 6
-run: strcat/main 3: (((3 string-address)) <- ((next-input)))
-arg: nil 1 (1000 1007)
-run: strcat/main 3: 1007 => ((3 string-address))
-mem: ((3 string-address)): 1019 <= 1007
-run: strcat/main 4: (((4 integer)) <- ((length)) ((3 string-address) (deref)))
-array-len: ((3 string-address) (deref))
-mem: ((1007 integer) (raw)) => 7
-run: strcat/main 4: 7 => ((4 integer))
-mem: ((4 integer)): 1020 <= 7
-run: strcat/main 5: (((5 integer)) <- ((add)) ((2 integer)) ((4 integer)))
-mem: ((2 integer)) => 6
-mem: ((4 integer)) => 7
-run: strcat/main 5: 13 => ((5 integer))
-mem: ((5 integer)): 1021 <= 13
-run: strcat/main 6: (((6 string-address)) <- ((new)) ((string literal)) ((5 integer)))
-mem: ((5 integer)) => 13
-run: strcat/main 6: 1046 => ((6 string-address))
-mem: ((6 string-address)): 1022 <= 1046
-run: strcat/main 7: (((7 integer)) <- ((copy)) ((0 literal)))
-run: strcat/main 7: 0 => ((7 integer))
-mem: ((7 integer)): 1023 <= 0
-run: strcat/main 8: (((8 integer)) <- ((copy)) ((0 literal)))
-run: strcat/main 8: 0 => ((8 integer))
-mem: ((8 integer)): 1024 <= 0
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 0
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 0
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1047 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1047
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 0
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1001 byte) (raw)) => h
-run: strcat/main 12: #\h => ((11 byte))
-mem: ((11 byte)): 1027 <= #\h
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => h
-run: strcat/main 13: #\h => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1047 <= #\h
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 0
-run: strcat/main 14: 1 => ((8 integer))
-mem: ((8 integer)): 1024 <= 1
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 0
-run: strcat/main 15: 1 => ((7 integer))
-mem: ((7 integer)): 1023 <= 1
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 1
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 1
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1048 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1048
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 1
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1002 byte) (raw)) => e
-run: strcat/main 12: #\e => ((11 byte))
-mem: ((11 byte)): 1027 <= #\e
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => e
-run: strcat/main 13: #\e => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1048 <= #\e
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 1
-run: strcat/main 14: 2 => ((8 integer))
-mem: ((8 integer)): 1024 <= 2
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 1
-run: strcat/main 15: 2 => ((7 integer))
-mem: ((7 integer)): 1023 <= 2
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 2
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 2
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1049 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1049
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 2
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1003 byte) (raw)) => l
-run: strcat/main 12: #\l => ((11 byte))
-mem: ((11 byte)): 1027 <= #\l
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => l
-run: strcat/main 13: #\l => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1049 <= #\l
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 2
-run: strcat/main 14: 3 => ((8 integer))
-mem: ((8 integer)): 1024 <= 3
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 2
-run: strcat/main 15: 3 => ((7 integer))
-mem: ((7 integer)): 1023 <= 3
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 3
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 3
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1050 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1050
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 3
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1004 byte) (raw)) => l
-run: strcat/main 12: #\l => ((11 byte))
-mem: ((11 byte)): 1027 <= #\l
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => l
-run: strcat/main 13: #\l => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1050 <= #\l
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 3
-run: strcat/main 14: 4 => ((8 integer))
-mem: ((8 integer)): 1024 <= 4
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 3
-run: strcat/main 15: 4 => ((7 integer))
-mem: ((7 integer)): 1023 <= 4
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 4
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 4
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1051 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1051
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 4
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1005 byte) (raw)) => o
-run: strcat/main 12: #\o => ((11 byte))
-mem: ((11 byte)): 1027 <= #\o
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => o
-run: strcat/main 13: #\o => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1051 <= #\o
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 4
-run: strcat/main 14: 5 => ((8 integer))
-mem: ((8 integer)): 1024 <= 5
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 4
-run: strcat/main 15: 5 => ((7 integer))
-mem: ((7 integer)): 1023 <= 5
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 5
-mem: ((2 integer)) => 6
-run: strcat/main 9: nil => ((9 boolean))
-mem: ((9 boolean)): 1025 <= nil
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => nil
-run: strcat/main 11: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 5
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 11: 1052 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1052
-run: strcat/main 12: (((11 byte)) <- ((index)) ((1 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 5
-array-len: ((1000 string) (raw))
-mem: ((1000 integer) (raw)) => 6
-mem: ((1006 byte) (raw)) => ,
-run: strcat/main 12: #\, => ((11 byte))
-mem: ((11 byte)): 1027 <= #\,
-run: strcat/main 13: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => ,
-run: strcat/main 13: #\, => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1052 <= #\,
-run: strcat/main 14: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 5
-run: strcat/main 14: 6 => ((8 integer))
-mem: ((8 integer)): 1024 <= 6
-run: strcat/main 15: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 5
-run: strcat/main 15: 6 => ((7 integer))
-mem: ((7 integer)): 1023 <= 6
-run: strcat/main 16: (((jump)) ((-8 offset)))
-run: strcat/main 9: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((2 integer)))
-mem: ((8 integer)) => 6
-mem: ((2 integer)) => 6
-run: strcat/main 9: t => ((9 boolean))
-mem: ((9 boolean)): 1025 <= t
-run: strcat/main 10: (((jump-if)) ((9 boolean)) ((6 offset)))
-mem: ((9 boolean)) => t
-run: strcat/main 17: (((8 integer)) <- ((copy)) ((0 literal)))
-run: strcat/main 17: 0 => ((8 integer))
-mem: ((8 integer)): 1024 <= 0
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 0
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 6
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1053 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1053
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 0
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1008 byte) (raw)) =>  
-run: strcat/main 21: #\space => ((11 byte))
-mem: ((11 byte)): 1027 <= #\space
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) =>  
-run: strcat/main 22: #\space => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1053 <= #\space
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 0
-run: strcat/main 23: 1 => ((8 integer))
-mem: ((8 integer)): 1024 <= 1
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 6
-run: strcat/main 24: 7 => ((7 integer))
-mem: ((7 integer)): 1023 <= 7
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 1
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 7
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1054 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1054
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 1
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1009 byte) (raw)) => w
-run: strcat/main 21: #\w => ((11 byte))
-mem: ((11 byte)): 1027 <= #\w
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => w
-run: strcat/main 22: #\w => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1054 <= #\w
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 1
-run: strcat/main 23: 2 => ((8 integer))
-mem: ((8 integer)): 1024 <= 2
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 7
-run: strcat/main 24: 8 => ((7 integer))
-mem: ((7 integer)): 1023 <= 8
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 2
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 8
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1055 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1055
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 2
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1010 byte) (raw)) => o
-run: strcat/main 21: #\o => ((11 byte))
-mem: ((11 byte)): 1027 <= #\o
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => o
-run: strcat/main 22: #\o => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1055 <= #\o
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 2
-run: strcat/main 23: 3 => ((8 integer))
-mem: ((8 integer)): 1024 <= 3
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 8
-run: strcat/main 24: 9 => ((7 integer))
-mem: ((7 integer)): 1023 <= 9
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 3
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 9
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1056 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1056
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 3
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1011 byte) (raw)) => r
-run: strcat/main 21: #\r => ((11 byte))
-mem: ((11 byte)): 1027 <= #\r
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => r
-run: strcat/main 22: #\r => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1056 <= #\r
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 3
-run: strcat/main 23: 4 => ((8 integer))
-mem: ((8 integer)): 1024 <= 4
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 9
-run: strcat/main 24: 10 => ((7 integer))
-mem: ((7 integer)): 1023 <= 10
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 4
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 10
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1057 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1057
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 4
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1012 byte) (raw)) => l
-run: strcat/main 21: #\l => ((11 byte))
-mem: ((11 byte)): 1027 <= #\l
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => l
-run: strcat/main 22: #\l => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1057 <= #\l
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 4
-run: strcat/main 23: 5 => ((8 integer))
-mem: ((8 integer)): 1024 <= 5
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 10
-run: strcat/main 24: 11 => ((7 integer))
-mem: ((7 integer)): 1023 <= 11
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 5
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 11
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1058 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1058
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 5
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1013 byte) (raw)) => d
-run: strcat/main 21: #\d => ((11 byte))
-mem: ((11 byte)): 1027 <= #\d
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => d
-run: strcat/main 22: #\d => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1058 <= #\d
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 5
-run: strcat/main 23: 6 => ((8 integer))
-mem: ((8 integer)): 1024 <= 6
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 11
-run: strcat/main 24: 12 => ((7 integer))
-mem: ((7 integer)): 1023 <= 12
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 6
-mem: ((4 integer)) => 7
-run: strcat/main 18: nil => ((12 boolean))
-mem: ((12 boolean)): 1028 <= nil
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => nil
-run: strcat/main 20: (((10 byte-address)) <- ((index-address)) ((6 string-address) (deref)) ((7 integer)))
-mem: ((7 integer)) => 12
-array-len: ((1046 string) (raw))
-mem: ((1046 integer) (raw)) => 13
-run: strcat/main 20: 1059 => ((10 byte-address))
-mem: ((10 byte-address)): 1026 <= 1059
-run: strcat/main 21: (((11 byte)) <- ((index)) ((3 string-address) (deref)) ((8 integer)))
-mem: ((8 integer)) => 6
-array-len: ((1007 string) (raw))
-mem: ((1007 integer) (raw)) => 7
-mem: ((1014 byte) (raw)) => !
-run: strcat/main 21: #\! => ((11 byte))
-mem: ((11 byte)): 1027 <= #\!
-run: strcat/main 22: (((10 byte-address) (deref)) <- ((copy)) ((11 byte)))
-mem: ((11 byte)) => !
-run: strcat/main 22: #\! => ((10 byte-address) (deref))
-mem: ((10 byte-address) (deref)): 1059 <= #\!
-run: strcat/main 23: (((8 integer)) <- ((add)) ((8 integer)) ((1 literal)))
-mem: ((8 integer)) => 6
-run: strcat/main 23: 7 => ((8 integer))
-mem: ((8 integer)): 1024 <= 7
-run: strcat/main 24: (((7 integer)) <- ((add)) ((7 integer)) ((1 literal)))
-mem: ((7 integer)) => 12
-run: strcat/main 24: 13 => ((7 integer))
-mem: ((7 integer)): 1023 <= 13
-run: strcat/main 25: (((jump)) ((-8 offset)))
-run: strcat/main 18: (((12 boolean)) <- ((greater-or-equal)) ((8 integer)) ((4 integer)))
-mem: ((8 integer)) => 7
-mem: ((4 integer)) => 7
-run: strcat/main 18: t => ((12 boolean))
-mem: ((12 boolean)): 1028 <= t
-run: strcat/main 19: (((jump-if)) ((12 boolean)) ((6 offset)))
-mem: ((12 boolean)) => t
-run: strcat/main 26: (((reply)) ((6 string-address)))
-mem: ((6 string-address)) => 1046
-run: main 2: 1046 => ((3 string-address))
-mem: ((3 string-address)): 3 <= 1046
-schedule: done with routine nil