===: main
c{0: 0 (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal) (capacity))) -- nil
c{0: 1 (((stdin channel-address)) <- ((init-channel)) ((1 literal))) -- nil
c{0: 2 (((r integer) (routine)) <- ((fork)) ((read-move fn)) ((nil literal) (globals)) ((2000 literal) (limit)) ((stdin channel-address))) -- nil
c{0: 3 (((c character)) <- ((copy)) ((a literal))) -- nil
c{0: 4 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 5 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 6 (((c character)) <- ((copy)) ((2 literal))) -- nil
c{0: 7 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 8 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 9 (((c character)) <- ((copy)) ((- literal))) -- nil
c{0: 10 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 11 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 12 (((c character)) <- ((copy)) ((a literal))) -- nil
c{0: 13 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 14 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 15 (((c character)) <- ((copy)) ((4 literal))) -- nil
c{0: 16 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 17 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 18 (((c character)) <- ((copy)) ((
 literal))) -- nil
c{0: 19 (((x tagged-value)) <- ((save-type)) ((c character))) -- nil
c{0: 20 (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) -- nil
c{0: 21 (((sleep)) ((until-routine-done literal)) ((r integer) (routine))) -- nil
c{1: 0 ✓ (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal) (capacity)))
c{1: 1 ✓ (((stdin channel-address)) <- ((init-channel)) ((1 literal)))
c{1: 2 ✓ (((r integer) (routine)) <- ((fork)) ((read-move fn)) ((nil literal) (globals)) ((2000 literal) (limit)) ((stdin channel-address)))
c{1: 3 ✓ (((c character)) <- ((copy)) ((a literal)))
c{1: 4 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 5 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 6 ✓ (((c character)) <- ((copy)) ((2 literal)))
c{1: 7 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 8 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 9 ✓ (((c character)) <- ((copy)) ((- literal)))
c{1: 10 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 11 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 12 ✓ (((c character)) <- ((copy)) ((a literal)))
c{1: 13 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 14 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 15 ✓ (((c character)) <- ((copy)) ((4 literal)))
c{1: 16 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 17 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 18 ✓ (((c character)) <- ((copy)) ((
 literal)))
c{1: 19 ✓ (((x tagged-value)) <- ((save-type)) ((c character)))
c{1: 20 ✓ (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value)))
c{1: 21 ✓ (((sleep)) ((until-routine-done literal)) ((r integer) (routine)))
cn0: convert-names in main
cn0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal) (capacity))) nil nil
cn0: checking arg ((space literal))
cn0: checking arg ((30 literal) (capacity))
cn0: checking oarg ((default-space space-address))
maybe-add: ((default-space space-address))
cn0: (((stdin channel-address)) <- ((init-channel)) ((1 literal))) nil nil
cn0: checking arg ((1 literal))
cn0: checking oarg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: location for oarg ((stdin channel-address)): 1
cn0: (((r integer) (routine)) <- ((fork)) ((read-move fn)) ((nil literal) (globals)) ((2000 literal) (limit)) ((stdin channel-address))) ((stdin 1)) nil
cn0: checking arg ((read-move fn))
cn0: checking arg ((nil literal) (globals))
cn0: checking arg ((2000 literal) (limit))
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking oarg ((r integer) (routine))
maybe-add: ((r integer) (routine))
cn0: location for oarg ((r integer) (routine)): 2
cn0: (((c character)) <- ((copy)) ((a literal))) ((r 2) (stdin 1)) nil
cn0: checking arg ((a literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: location for oarg ((c character)): 3
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: location for oarg ((x tagged-value)): 4
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((c character)) <- ((copy)) ((2 literal))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((2 literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((c character)) <- ((copy)) ((- literal))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((- literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((c character)) <- ((copy)) ((a literal))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((a literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((c character)) <- ((copy)) ((4 literal))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((4 literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((c character)) <- ((copy)) ((
 literal))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((
 literal))
cn0: checking oarg ((c character))
maybe-add: ((c character))
cn0: (((x tagged-value)) <- ((save-type)) ((c character))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((c character))
maybe-add: ((c character))
cn0: checking oarg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: (((stdin channel-address) (deref)) <- ((write)) ((stdin channel-address)) ((x tagged-value))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((stdin channel-address))
maybe-add: ((stdin channel-address))
cn0: checking arg ((x tagged-value))
maybe-add: ((x tagged-value))
cn0: checking oarg ((stdin channel-address) (deref))
maybe-add: ((stdin channel-address) (deref))
cn0: (((sleep)) ((until-routine-done literal)) ((r integer) (routine))) ((c 3) (r 2) (stdin 1) (x 4)) nil
cn0: checking arg ((until-routine-done literal))
cn0: checking arg ((r integer) (routine))
maybe-add: ((r integer) (routine))
cn1: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal) (capacity)))
cn1: (((1 channel-address)) <- ((init-channel)) ((1 literal)))
cn1: (((2 integer) (routine)) <- ((fork)) ((read-move fn)) ((nil literal) (globals)) ((2000 literal) (limit)) ((1 channel-address)))
cn1: (((3 character)) <- ((copy)) ((a literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((3 character)) <- ((copy)) ((2 literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((3 character)) <- ((copy)) ((- literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((3 character)) <- ((copy)) ((a literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((3 character)) <- ((copy)) ((4 literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((3 character)) <- ((copy)) ((
 literal)))
cn1: (((4 tagged-value)) <- ((save-type)) ((3 character)))
cn1: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
cn1: (((sleep)) ((until-routine-done literal)) ((2 integer) (routine)))
schedule: main
run: main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal) (capacity)))
run: main 0: 1000 => ((default-space space-address))
run: main 1: (((1 channel-address)) <- ((init-channel)) ((1 literal)))
run: init-channel/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: init-channel/main 0: 1031 => ((default-space space-address))
run: init-channel/main 1: (((1 channel-address)) <- ((new)) ((channel literal)))
run: init-channel/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1033 <= 1062
run: init-channel/main 2: (((2 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: init-channel/main 2: 1062 => ((2 integer-address))
mem: ((2 integer-address)): 1034 <= 1062
run: init-channel/main 3: (((2 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: init-channel/main 3: 0 => ((2 integer-address) (deref))
mem: ((2 integer-address) (deref)): 1062 <= 0
run: init-channel/main 4: (((3 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: init-channel/main 4: 1063 => ((3 integer-address))
mem: ((3 integer-address)): 1035 <= 1063
run: init-channel/main 5: (((3 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: init-channel/main 5: 0 => ((3 integer-address) (deref))
mem: ((3 integer-address) (deref)): 1063 <= 0
run: init-channel/main 6: (((4 integer)) <- ((next-input)))
arg: nil 0 (1)
run: init-channel/main 6: 1 => ((4 integer))
mem: ((4 integer)): 1036 <= 1
run: init-channel/main 7: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 1
run: init-channel/main 7: 2 => ((4 integer))
mem: ((4 integer)): 1036 <= 2
run: init-channel/main 8: (((5 tagged-value-array-address-address)) <- ((get-address)) ((1 channel-address) (deref)) ((2 offset)))
run: init-channel/main 8: 1064 => ((5 tagged-value-array-address-address))
mem: ((5 tagged-value-array-address-address)): 1037 <= 1064
run: init-channel/main 9: (((5 tagged-value-array-address-address) (deref)) <- ((new)) ((tagged-value-array literal)) ((4 integer)))
mem: ((4 integer)) => 2
run: init-channel/main 9: 1065 => ((5 tagged-value-array-address-address) (deref))
mem: ((5 tagged-value-array-address-address) (deref)): 1064 <= 1065
run: init-channel/main 10: (((reply)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1002 <= 1062
run: main 2: (((2 integer) (routine)) <- ((fork)) ((read-move fn)) ((nil literal) (globals)) ((2000 literal) (limit)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: main 2: 1 => ((2 integer) (routine))
mem: ((2 integer) (routine)): 1003 <= 1
run: main 3: (((3 character)) <- ((copy)) ((a literal)))
run: main 3: #\a => ((3 character))
mem: ((3 character)): 1004 <= #\a
run: main 4: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => a
run: main 4: #(tagged record (character #\a)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\a
run: main 5: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character a . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1070 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\a . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1072 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\a . nil)))
run: write/main 2: #(tagged record (character #\a . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1073 <= character
mem: ((2 tagged-value)): 1074 <= #\a
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 0 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1101 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 0 1065 . nil)))
run: full?/write/main 1: #(tagged record (0 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1103 <= 0
mem: ((1 channel)): 1104 <= 0
mem: ((1 channel)): 1105 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1104 integer) (raw)) => 0
run: full?/write/main 2: 0 => ((4 integer))
mem: ((4 integer)): 1106 <= 0
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 0
run: full?/write/main 3: 1 => ((4 integer))
mem: ((4 integer)): 1106 <= 1
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (0 0 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1132 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 0 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (0 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1134 <= 0
mem: ((1 channel)): 1135 <= 0
mem: ((1 channel)): 1136 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1136 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1137 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1138 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1107 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 1
mem: ((5 integer)) => 2
run: full?/write/main 5: t => ((6 boolean))
mem: ((6 boolean)): 1108 <= t
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => t
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1103 integer) (raw)) => 0
run: full?/write/main 8: 0 => ((7 integer))
mem: ((7 integer)): 1109 <= 0
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 0
mem: ((4 integer)) => 1
run: full?/write/main 9: nil => ((8 boolean))
mem: ((8 boolean)): 1110 <= nil
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => nil
run: write/main 3: nil => ((4 boolean))
mem: ((4 boolean)): 1075 <= nil
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => nil
run: write/main 7: (((6 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: write/main 7: 1065 => ((6 tagged-value-array-address))
mem: ((6 tagged-value-array-address)): 1077 <= 1065
run: write/main 8: (((7 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: write/main 8: 1063 => ((7 integer-address))
mem: ((7 integer-address)): 1078 <= 1063
run: write/main 9: (((8 tagged-value-address)) <- ((index-address)) ((6 tagged-value-array-address) (deref)) ((7 integer-address) (deref)))
mem: ((7 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
run: write/main 9: 1066 => ((8 tagged-value-address))
mem: ((8 tagged-value-address)): 1079 <= 1066
run: write/main 10: (((8 tagged-value-address) (deref)) <- ((copy)) ((2 tagged-value)))
mem: ((2 tagged-value)) => #(tagged record (character a . nil))
run: write/main 10: #(tagged record (character #\a . nil)) => ((8 tagged-value-address) (deref))
mem: ((8 tagged-value-address) (deref)): 1066 <= character
mem: ((8 tagged-value-address) (deref)): 1067 <= #\a
run: write/main 11: (((7 integer-address) (deref)) <- ((add)) ((7 integer-address) (deref)) ((1 literal)))
mem: ((7 integer-address) (deref)) => 0
run: write/main 11: 1 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 1
run: write/main 12: (((9 integer)) <- ((length)) ((6 tagged-value-array-address) (deref)))
array-len: ((6 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: write/main 12: 2 => ((9 integer))
mem: ((9 integer)): 1080 <= 2
run: write/main 13: (((10 boolean)) <- ((less-than)) ((7 integer-address) (deref)) ((9 integer)))
mem: ((7 integer-address) (deref)) => 1
mem: ((9 integer)) => 2
run: write/main 13: t => ((10 boolean))
mem: ((10 boolean)): 1081 <= t
run: write/main 14: (((jump-if)) ((10 boolean)) ((1 offset)))
mem: ((10 boolean)) => t
run: write/main 16: (((reply)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (0 1 1065 . nil))
run: main 5: #(tagged record (0 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 0
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: main 6: (((3 character)) <- ((copy)) ((2 literal)))
run: main 6: #\2 => ((3 character))
mem: ((3 character)): 1004 <= #\2
run: main 7: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => 2
run: main 7: #(tagged record (character #\2)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\2
run: main 8: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character 2 . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1163 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\2 . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1165 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\2 . nil)))
run: write/main 2: #(tagged record (character #\2 . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1166 <= character
mem: ((2 tagged-value)): 1167 <= #\2
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 1 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1194 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1196 <= 0
mem: ((1 channel)): 1197 <= 1
mem: ((1 channel)): 1198 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1197 integer) (raw)) => 1
run: full?/write/main 2: 1 => ((4 integer))
mem: ((4 integer)): 1199 <= 1
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 1
run: full?/write/main 3: 2 => ((4 integer))
mem: ((4 integer)): 1199 <= 2
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (0 1 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1225 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1227 <= 0
mem: ((1 channel)): 1228 <= 1
mem: ((1 channel)): 1229 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1229 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1230 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1231 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1200 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 2
mem: ((5 integer)) => 2
run: full?/write/main 5: nil => ((6 boolean))
mem: ((6 boolean)): 1201 <= nil
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => nil
run: full?/write/main 7: (((4 integer)) <- ((copy)) ((0 literal)))
run: full?/write/main 7: 0 => ((4 integer))
mem: ((4 integer)): 1199 <= 0
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1196 integer) (raw)) => 0
run: full?/write/main 8: 0 => ((7 integer))
mem: ((7 integer)): 1202 <= 0
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 0
mem: ((4 integer)) => 0
run: full?/write/main 9: t => ((8 boolean))
mem: ((8 boolean)): 1203 <= t
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => t
run: write/main 3: t => ((4 boolean))
mem: ((4 boolean)): 1168 <= t
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => t
run: write/main 5: (((5 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: write/main 5: 1062 => ((5 integer-address))
mem: ((5 integer-address)): 1169 <= 1062
run: write/main 6: (((sleep)) ((until-location-changes literal)) ((5 integer-address) (deref)))
mem: ((5 integer-address) (deref)) => 0
schedule: pushing write/main to sleep queue
schedule: read-move
run: read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read-move 0: 101000 => ((default-space space-address))
run: read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101002 <= 1062
run: read-move 2: (((2 integer)) <- ((read-file)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read-file/read-move 0: 101031 => ((default-space space-address))
run: read-file/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read-file/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101033 <= 1062
run: read-file/read-move 2: (((2 tagged-value)) ((1 channel-address) (deref)) <- ((read)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read/read-file/read-move 0: 101062 => ((default-space space-address))
run: read/read-file/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read/read-file/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101064 <= 1062
run: read/read-file/read-move 2: (((2 boolean)) <- ((empty?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 1 1065 . nil))
run: empty?/read/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: empty?/read/read-file/read-move 0: 101093 => ((default-space space-address))
run: empty?/read/read-file/read-move 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: empty?/read/read-file/read-move 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 101095 <= 0
mem: ((1 channel)): 101096 <= 1
mem: ((1 channel)): 101097 <= 1065
run: empty?/read/read-file/read-move 2: (((4 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((101095 integer) (raw)) => 0
run: empty?/read/read-file/read-move 2: 0 => ((4 integer))
mem: ((4 integer)): 101098 <= 0
run: empty?/read/read-file/read-move 3: (((5 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((101096 integer) (raw)) => 1
run: empty?/read/read-file/read-move 3: 1 => ((5 integer))
mem: ((5 integer)): 101099 <= 1
run: empty?/read/read-file/read-move 4: (((6 boolean)) <- ((equal)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 0
mem: ((5 integer)) => 1
run: empty?/read/read-file/read-move 4: nil => ((6 boolean))
mem: ((6 boolean)): 101100 <= nil
run: empty?/read/read-file/read-move 5: (((reply)) ((6 boolean)))
mem: ((6 boolean)) => nil
run: read/read-file/read-move 2: nil => ((2 boolean))
mem: ((2 boolean)): 101065 <= nil
run: read/read-file/read-move 3: (((jump-unless)) ((2 boolean)) ((2 offset)))
mem: ((2 boolean)) => nil
run: read/read-file/read-move 6: (((4 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: read/read-file/read-move 6: 1062 => ((4 integer-address))
mem: ((4 integer-address)): 101067 <= 1062
run: read/read-file/read-move 7: (((5 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: read/read-file/read-move 7: 1065 => ((5 tagged-value-array-address))
mem: ((5 tagged-value-array-address)): 101068 <= 1065
run: read/read-file/read-move 8: (((6 tagged-value)) <- ((index)) ((5 tagged-value-array-address) (deref)) ((4 integer-address) (deref)))
mem: ((4 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
mem: ((1066 tagged-value) (raw)) => #(tagged record (character a . nil))
run: read/read-file/read-move 8: #(tagged record (character #\a . nil)) => ((6 tagged-value))
mem: ((6 tagged-value)): 101069 <= character
mem: ((6 tagged-value)): 101070 <= #\a
run: read/read-file/read-move 9: (((4 integer-address) (deref)) <- ((add)) ((4 integer-address) (deref)) ((1 literal)))
mem: ((4 integer-address) (deref)) => 0
run: read/read-file/read-move 9: 1 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 1
run: read/read-file/read-move 10: (((8 integer)) <- ((length)) ((5 tagged-value-array-address) (deref)))
array-len: ((5 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: read/read-file/read-move 10: 2 => ((8 integer))
mem: ((8 integer)): 101071 <= 2
run: read/read-file/read-move 11: (((9 boolean)) <- ((less-than)) ((4 integer-address) (deref)) ((8 integer)))
mem: ((4 integer-address) (deref)) => 1
mem: ((8 integer)) => 2
run: read/read-file/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101072 <= t
run: read/read-file/read-move 12: (((jump-if)) ((9 boolean)) ((1 offset)))
mem: ((9 boolean)) => t
run: read/read-file/read-move 14: (((reply)) ((6 tagged-value)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((6 tagged-value)) => #(tagged record (character a . nil))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (1 1 1065 . nil))
run: read-file/read-move 2: #(tagged record (character #\a . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 101034 <= character
mem: ((2 tagged-value)): 101035 <= #\a
run: read-file/read-move 2: #(tagged record (1 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 1
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: read-file/read-move 3: (((4 character)) <- ((copy)) ((a literal)))
run: read-file/read-move 3: #\a => ((4 character))
mem: ((4 character)): 101036 <= #\a
run: read-file/read-move 4: (((5 integer)) <- ((character-to-integer)) ((4 character)))
mem: ((4 character)) => a
run: read-file/read-move 4: 97 => ((5 integer))
mem: ((5 integer)): 101037 <= 97
run: read-file/read-move 5: (((6 character)) <- ((maybe-coerce)) ((2 tagged-value)) ((character literal)))
mem: ((2 tagged-value)) => #(tagged record (character a . nil))
run: maybe-coerce/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: maybe-coerce/read-file/read-move 0: 101124 => ((default-space space-address))
run: maybe-coerce/read-file/read-move 1: (((1 tagged-value-address)) <- ((new)) ((tagged-value literal)))
run: maybe-coerce/read-file/read-move 1: 101155 => ((1 tagged-value-address))
mem: ((1 tagged-value-address)): 101126 <= 101155
run: maybe-coerce/read-file/read-move 2: (((1 tagged-value-address) (deref)) <- ((next-input)))
arg: nil 0 (#(tagged record (character #\a . nil)) character)
run: maybe-coerce/read-file/read-move 2: #(tagged record (character #\a . nil)) => ((1 tagged-value-address) (deref))
mem: ((1 tagged-value-address) (deref)): 101155 <= character
mem: ((1 tagged-value-address) (deref)): 101156 <= #\a
run: maybe-coerce/read-file/read-move 3: (((2 type)) <- ((next-input)))
arg: nil 1 (#(tagged record (character #\a . nil)) character)
run: maybe-coerce/read-file/read-move 3: character => ((2 type))
mem: ((2 type)): 101127 <= character
run: maybe-coerce/read-file/read-move 4: (((3 type)) <- ((get)) ((1 tagged-value-address) (deref)) ((0 offset)))
mem: ((101155 type) (raw)) => character
run: maybe-coerce/read-file/read-move 4: character => ((3 type))
mem: ((3 type)): 101128 <= character
run: maybe-coerce/read-file/read-move 5: (((4 boolean)) <- ((equal)) ((3 type)) ((2 type)))
mem: ((3 type)) => character
mem: ((2 type)) => character
run: maybe-coerce/read-file/read-move 5: t => ((4 boolean))
mem: ((4 boolean)): 101129 <= t
run: maybe-coerce/read-file/read-move 6: (((jump-if)) ((4 boolean)) ((1 offset)))
mem: ((4 boolean)) => t
run: maybe-coerce/read-file/read-move 8: (((5 location)) <- ((get)) ((1 tagged-value-address) (deref)) ((1 offset)))
mem: ((101156 location) (raw)) => a
run: maybe-coerce/read-file/read-move 8: #\a => ((5 location))
mem: ((5 location)): 101130 <= #\a
run: maybe-coerce/read-file/read-move 9: (((reply)) ((5 location)) ((4 boolean)))
mem: ((5 location)) => a
mem: ((4 boolean)) => t
run: read-file/read-move 5: #\a => ((6 character))
mem: ((6 character)): 101038 <= #\a
run: read-file/read-move 6: (((7 boolean)) <- ((equal)) ((6 character)) ((q literal)))
mem: ((6 character)) => a
run: read-file/read-move 6: nil => ((7 boolean))
mem: ((7 boolean)): 101039 <= nil
run: read-file/read-move 7: (((jump-unless)) ((7 boolean)) ((1 offset)))
mem: ((7 boolean)) => nil
run: read-file/read-move 9: (((8 integer)) <- ((character-to-integer)) ((6 character)))
mem: ((6 character)) => a
run: read-file/read-move 9: 97 => ((8 integer))
mem: ((8 integer)): 101040 <= 97
run: read-file/read-move 10: (((8 integer)) <- ((subtract)) ((8 integer)) ((5 integer)))
mem: ((8 integer)) => 97
mem: ((5 integer)) => 97
run: read-file/read-move 10: 0 => ((8 integer))
mem: ((8 integer)): 101040 <= 0
run: read-file/read-move 11: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((0 literal)))
mem: ((8 integer)) => 0
run: read-file/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101041 <= t
run: read-file/read-move 12: (((assert)) ((9 boolean)) ((file too low literal)))
mem: ((9 boolean)) => t
run: read-file/read-move 13: (((10 boolean)) <- ((lesser-or-equal)) ((8 integer)) ((7 literal)))
mem: ((8 integer)) => 0
run: read-file/read-move 13: t => ((10 boolean))
mem: ((10 boolean)): 101042 <= t
run: read-file/read-move 14: (((assert)) ((10 boolean)) ((file too high literal)))
mem: ((10 boolean)) => t
run: read-file/read-move 15: (((reply)) ((8 integer)))
mem: ((8 integer)) => 0
run: read-move 2: 0 => ((2 integer))
mem: ((2 integer)): 101003 <= 0
run: read-move 3: (((jump-if)) ((2 integer)) ((1 offset)))
mem: ((2 integer)) => 0
run: read-move 5: (((3 integer)) <- ((read-rank)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read-rank/read-move 0: 101157 => ((default-space space-address))
run: read-rank/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read-rank/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101159 <= 1062
run: read-rank/read-move 2: (((2 tagged-value)) ((1 channel-address) (deref)) <- ((read)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read/read-rank/read-move 0: 101188 => ((default-space space-address))
run: read/read-rank/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read/read-rank/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101190 <= 1062
run: read/read-rank/read-move 2: (((2 boolean)) <- ((empty?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (1 1 1065 . nil))
run: empty?/read/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: empty?/read/read-rank/read-move 0: 101219 => ((default-space space-address))
run: empty?/read/read-rank/read-move 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 1 1065 . nil)))
run: empty?/read/read-rank/read-move 1: #(tagged record (1 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 101221 <= 1
mem: ((1 channel)): 101222 <= 1
mem: ((1 channel)): 101223 <= 1065
run: empty?/read/read-rank/read-move 2: (((4 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((101221 integer) (raw)) => 1
run: empty?/read/read-rank/read-move 2: 1 => ((4 integer))
mem: ((4 integer)): 101224 <= 1
run: empty?/read/read-rank/read-move 3: (((5 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((101222 integer) (raw)) => 1
run: empty?/read/read-rank/read-move 3: 1 => ((5 integer))
mem: ((5 integer)): 101225 <= 1
run: empty?/read/read-rank/read-move 4: (((6 boolean)) <- ((equal)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 1
mem: ((5 integer)) => 1
run: empty?/read/read-rank/read-move 4: t => ((6 boolean))
mem: ((6 boolean)): 101226 <= t
run: empty?/read/read-rank/read-move 5: (((reply)) ((6 boolean)))
mem: ((6 boolean)) => t
run: read/read-rank/read-move 2: t => ((2 boolean))
mem: ((2 boolean)): 101191 <= t
run: read/read-rank/read-move 3: (((jump-unless)) ((2 boolean)) ((2 offset)))
mem: ((2 boolean)) => t
run: read/read-rank/read-move 4: (((3 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: read/read-rank/read-move 4: 1063 => ((3 integer-address))
mem: ((3 integer-address)): 101192 <= 1063
run: read/read-rank/read-move 5: (((sleep)) ((until-location-changes literal)) ((3 integer-address) (deref)))
mem: ((3 integer-address) (deref)) => 1
schedule: pushing read/read-rank/read-move to sleep queue
schedule: waking up write/main
schedule: write/main
run: write/main 7: (((6 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: write/main 7: 1065 => ((6 tagged-value-array-address))
mem: ((6 tagged-value-array-address)): 1170 <= 1065
run: write/main 8: (((7 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: write/main 8: 1063 => ((7 integer-address))
mem: ((7 integer-address)): 1171 <= 1063
run: write/main 9: (((8 tagged-value-address)) <- ((index-address)) ((6 tagged-value-array-address) (deref)) ((7 integer-address) (deref)))
mem: ((7 integer-address) (deref)) => 1
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
run: write/main 9: 1068 => ((8 tagged-value-address))
mem: ((8 tagged-value-address)): 1172 <= 1068
run: write/main 10: (((8 tagged-value-address) (deref)) <- ((copy)) ((2 tagged-value)))
mem: ((2 tagged-value)) => #(tagged record (character 2 . nil))
run: write/main 10: #(tagged record (character #\2 . nil)) => ((8 tagged-value-address) (deref))
mem: ((8 tagged-value-address) (deref)): 1068 <= character
mem: ((8 tagged-value-address) (deref)): 1069 <= #\2
run: write/main 11: (((7 integer-address) (deref)) <- ((add)) ((7 integer-address) (deref)) ((1 literal)))
mem: ((7 integer-address) (deref)) => 1
run: write/main 11: 2 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 2
run: write/main 12: (((9 integer)) <- ((length)) ((6 tagged-value-array-address) (deref)))
array-len: ((6 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: write/main 12: 2 => ((9 integer))
mem: ((9 integer)): 1173 <= 2
run: write/main 13: (((10 boolean)) <- ((less-than)) ((7 integer-address) (deref)) ((9 integer)))
mem: ((7 integer-address) (deref)) => 2
mem: ((9 integer)) => 2
run: write/main 13: nil => ((10 boolean))
mem: ((10 boolean)): 1174 <= nil
run: write/main 14: (((jump-if)) ((10 boolean)) ((1 offset)))
mem: ((10 boolean)) => nil
run: write/main 15: (((7 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: write/main 15: 0 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 0
run: write/main 16: (((reply)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (1 0 1065 . nil))
run: main 8: #(tagged record (1 0 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 1
mem: ((1 channel-address) (deref)): 1063 <= 0
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: main 9: (((3 character)) <- ((copy)) ((- literal)))
run: main 9: #\- => ((3 character))
mem: ((3 character)): 1004 <= #\-
run: main 10: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => -
run: main 10: #(tagged record (character #\-)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\-
run: main 11: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character - . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1256 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\- . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1258 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\- . nil)))
run: write/main 2: #(tagged record (character #\- . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1259 <= character
mem: ((2 tagged-value)): 1260 <= #\-
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (1 0 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1287 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 0 1065 . nil)))
run: full?/write/main 1: #(tagged record (1 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1289 <= 1
mem: ((1 channel)): 1290 <= 0
mem: ((1 channel)): 1291 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1290 integer) (raw)) => 0
run: full?/write/main 2: 0 => ((4 integer))
mem: ((4 integer)): 1292 <= 0
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 0
run: full?/write/main 3: 1 => ((4 integer))
mem: ((4 integer)): 1292 <= 1
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (1 0 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1318 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 0 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (1 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1320 <= 1
mem: ((1 channel)): 1321 <= 0
mem: ((1 channel)): 1322 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1322 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1323 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1324 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1293 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 1
mem: ((5 integer)) => 2
run: full?/write/main 5: t => ((6 boolean))
mem: ((6 boolean)): 1294 <= t
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => t
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1289 integer) (raw)) => 1
run: full?/write/main 8: 1 => ((7 integer))
mem: ((7 integer)): 1295 <= 1
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 1
mem: ((4 integer)) => 1
run: full?/write/main 9: t => ((8 boolean))
mem: ((8 boolean)): 1296 <= t
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => t
run: write/main 3: t => ((4 boolean))
mem: ((4 boolean)): 1261 <= t
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => t
run: write/main 5: (((5 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: write/main 5: 1062 => ((5 integer-address))
mem: ((5 integer-address)): 1262 <= 1062
run: write/main 6: (((sleep)) ((until-location-changes literal)) ((5 integer-address) (deref)))
mem: ((5 integer-address) (deref)) => 1
schedule: pushing write/main to sleep queue
schedule: waking up read/read-rank/read-move
schedule: read/read-rank/read-move
run: read/read-rank/read-move 6: (((4 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: read/read-rank/read-move 6: 1062 => ((4 integer-address))
mem: ((4 integer-address)): 101193 <= 1062
run: read/read-rank/read-move 7: (((5 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: read/read-rank/read-move 7: 1065 => ((5 tagged-value-array-address))
mem: ((5 tagged-value-array-address)): 101194 <= 1065
run: read/read-rank/read-move 8: (((6 tagged-value)) <- ((index)) ((5 tagged-value-array-address) (deref)) ((4 integer-address) (deref)))
mem: ((4 integer-address) (deref)) => 1
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
mem: ((1068 tagged-value) (raw)) => #(tagged record (character 2 . nil))
run: read/read-rank/read-move 8: #(tagged record (character #\2 . nil)) => ((6 tagged-value))
mem: ((6 tagged-value)): 101195 <= character
mem: ((6 tagged-value)): 101196 <= #\2
run: read/read-rank/read-move 9: (((4 integer-address) (deref)) <- ((add)) ((4 integer-address) (deref)) ((1 literal)))
mem: ((4 integer-address) (deref)) => 1
run: read/read-rank/read-move 9: 2 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 2
run: read/read-rank/read-move 10: (((8 integer)) <- ((length)) ((5 tagged-value-array-address) (deref)))
array-len: ((5 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: read/read-rank/read-move 10: 2 => ((8 integer))
mem: ((8 integer)): 101197 <= 2
run: read/read-rank/read-move 11: (((9 boolean)) <- ((less-than)) ((4 integer-address) (deref)) ((8 integer)))
mem: ((4 integer-address) (deref)) => 2
mem: ((8 integer)) => 2
run: read/read-rank/read-move 11: nil => ((9 boolean))
mem: ((9 boolean)): 101198 <= nil
run: read/read-rank/read-move 12: (((jump-if)) ((9 boolean)) ((1 offset)))
mem: ((9 boolean)) => nil
run: read/read-rank/read-move 13: (((4 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: read/read-rank/read-move 13: 0 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 0
run: read/read-rank/read-move 14: (((reply)) ((6 tagged-value)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((6 tagged-value)) => #(tagged record (character 2 . nil))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (0 0 1065 . nil))
run: read-rank/read-move 2: #(tagged record (character #\2 . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 101160 <= character
mem: ((2 tagged-value)): 101161 <= #\2
run: read-rank/read-move 2: #(tagged record (0 0 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 0
mem: ((1 channel-address) (deref)): 1063 <= 0
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: read-rank/read-move 3: (((4 character)) <- ((maybe-coerce)) ((2 tagged-value)) ((character literal)))
mem: ((2 tagged-value)) => #(tagged record (character 2 . nil))
run: maybe-coerce/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: maybe-coerce/read-rank/read-move 0: 101250 => ((default-space space-address))
run: maybe-coerce/read-rank/read-move 1: (((1 tagged-value-address)) <- ((new)) ((tagged-value literal)))
run: maybe-coerce/read-rank/read-move 1: 101281 => ((1 tagged-value-address))
mem: ((1 tagged-value-address)): 101252 <= 101281
run: maybe-coerce/read-rank/read-move 2: (((1 tagged-value-address) (deref)) <- ((next-input)))
arg: nil 0 (#(tagged record (character #\2 . nil)) character)
run: maybe-coerce/read-rank/read-move 2: #(tagged record (character #\2 . nil)) => ((1 tagged-value-address) (deref))
mem: ((1 tagged-value-address) (deref)): 101281 <= character
mem: ((1 tagged-value-address) (deref)): 101282 <= #\2
run: maybe-coerce/read-rank/read-move 3: (((2 type)) <- ((next-input)))
arg: nil 1 (#(tagged record (character #\2 . nil)) character)
run: maybe-coerce/read-rank/read-move 3: character => ((2 type))
mem: ((2 type)): 101253 <= character
run: maybe-coerce/read-rank/read-move 4: (((3 type)) <- ((get)) ((1 tagged-value-address) (deref)) ((0 offset)))
mem: ((101281 type) (raw)) => character
run: maybe-coerce/read-rank/read-move 4: character => ((3 type))
mem: ((3 type)): 101254 <= character
run: maybe-coerce/read-rank/read-move 5: (((4 boolean)) <- ((equal)) ((3 type)) ((2 type)))
mem: ((3 type)) => character
mem: ((2 type)) => character
run: maybe-coerce/read-rank/read-move 5: t => ((4 boolean))
mem: ((4 boolean)): 101255 <= t
run: maybe-coerce/read-rank/read-move 6: (((jump-if)) ((4 boolean)) ((1 offset)))
mem: ((4 boolean)) => t
run: maybe-coerce/read-rank/read-move 8: (((5 location)) <- ((get)) ((1 tagged-value-address) (deref)) ((1 offset)))
mem: ((101282 location) (raw)) => 2
run: maybe-coerce/read-rank/read-move 8: #\2 => ((5 location))
mem: ((5 location)): 101256 <= #\2
run: maybe-coerce/read-rank/read-move 9: (((reply)) ((5 location)) ((4 boolean)))
mem: ((5 location)) => 2
mem: ((4 boolean)) => t
run: read-rank/read-move 3: #\2 => ((4 character))
mem: ((4 character)): 101162 <= #\2
run: read-rank/read-move 4: (((5 boolean)) <- ((equal)) ((4 character)) ((q literal)))
mem: ((4 character)) => 2
run: read-rank/read-move 4: nil => ((5 boolean))
mem: ((5 boolean)): 101163 <= nil
run: read-rank/read-move 5: (((jump-unless)) ((5 boolean)) ((1 offset)))
mem: ((5 boolean)) => nil
run: read-rank/read-move 7: (((6 integer)) <- ((character-to-integer)) ((4 character)))
mem: ((4 character)) => 2
run: read-rank/read-move 7: 50 => ((6 integer))
mem: ((6 integer)): 101164 <= 50
run: read-rank/read-move 8: (((7 character)) <- ((copy)) ((1 literal)))
run: read-rank/read-move 8: #\1 => ((7 character))
mem: ((7 character)): 101165 <= #\1
run: read-rank/read-move 9: (((8 integer)) <- ((character-to-integer)) ((7 character)))
mem: ((7 character)) => 1
run: read-rank/read-move 9: 49 => ((8 integer))
mem: ((8 integer)): 101166 <= 49
run: read-rank/read-move 10: (((6 integer)) <- ((subtract)) ((6 integer)) ((8 integer)))
mem: ((6 integer)) => 50
mem: ((8 integer)) => 49
run: read-rank/read-move 10: 1 => ((6 integer))
mem: ((6 integer)): 101164 <= 1
run: read-rank/read-move 11: (((9 boolean)) <- ((greater-or-equal)) ((6 integer)) ((0 literal)))
mem: ((6 integer)) => 1
run: read-rank/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101167 <= t
run: read-rank/read-move 12: (((assert)) ((9 boolean)) ((rank too low literal)))
mem: ((9 boolean)) => t
run: read-rank/read-move 13: (((10 boolean)) <- ((lesser-or-equal)) ((6 integer)) ((7 literal)))
mem: ((6 integer)) => 1
run: read-rank/read-move 13: t => ((10 boolean))
mem: ((10 boolean)): 101168 <= t
run: read-rank/read-move 14: (((assert)) ((10 boolean)) ((rank too high literal)))
mem: ((10 boolean)) => t
run: read-rank/read-move 15: (((reply)) ((6 integer)))
mem: ((6 integer)) => 1
run: read-move 5: 1 => ((3 integer))
mem: ((3 integer)): 101004 <= 1
run: read-move 6: (((expect-stdin)) ((1 channel-address)) ((- literal)))
mem: ((1 channel-address)) => 1062
run: expect-stdin/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: expect-stdin/read-move 0: 101283 => ((default-space space-address))
run: expect-stdin/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #\-)
run: expect-stdin/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101285 <= 1062
run: expect-stdin/read-move 2: (((2 tagged-value)) ((1 channel-address) (deref)) <- ((read)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read/expect-stdin/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read/expect-stdin/read-move 0: 101314 => ((default-space space-address))
run: read/expect-stdin/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read/expect-stdin/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101316 <= 1062
run: read/expect-stdin/read-move 2: (((2 boolean)) <- ((empty?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 0 1065 . nil))
run: empty?/read/expect-stdin/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: empty?/read/expect-stdin/read-move 0: 101345 => ((default-space space-address))
run: empty?/read/expect-stdin/read-move 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 0 1065 . nil)))
run: empty?/read/expect-stdin/read-move 1: #(tagged record (0 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 101347 <= 0
mem: ((1 channel)): 101348 <= 0
mem: ((1 channel)): 101349 <= 1065
run: empty?/read/expect-stdin/read-move 2: (((4 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((101347 integer) (raw)) => 0
run: empty?/read/expect-stdin/read-move 2: 0 => ((4 integer))
mem: ((4 integer)): 101350 <= 0
run: empty?/read/expect-stdin/read-move 3: (((5 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((101348 integer) (raw)) => 0
run: empty?/read/expect-stdin/read-move 3: 0 => ((5 integer))
mem: ((5 integer)): 101351 <= 0
run: empty?/read/expect-stdin/read-move 4: (((6 boolean)) <- ((equal)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 0
mem: ((5 integer)) => 0
run: empty?/read/expect-stdin/read-move 4: t => ((6 boolean))
mem: ((6 boolean)): 101352 <= t
run: empty?/read/expect-stdin/read-move 5: (((reply)) ((6 boolean)))
mem: ((6 boolean)) => t
run: read/expect-stdin/read-move 2: t => ((2 boolean))
mem: ((2 boolean)): 101317 <= t
run: read/expect-stdin/read-move 3: (((jump-unless)) ((2 boolean)) ((2 offset)))
mem: ((2 boolean)) => t
run: read/expect-stdin/read-move 4: (((3 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: read/expect-stdin/read-move 4: 1063 => ((3 integer-address))
mem: ((3 integer-address)): 101318 <= 1063
run: read/expect-stdin/read-move 5: (((sleep)) ((until-location-changes literal)) ((3 integer-address) (deref)))
mem: ((3 integer-address) (deref)) => 0
schedule: pushing read/expect-stdin/read-move to sleep queue
schedule: waking up write/main
schedule: write/main
run: write/main 7: (((6 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: write/main 7: 1065 => ((6 tagged-value-array-address))
mem: ((6 tagged-value-array-address)): 1263 <= 1065
run: write/main 8: (((7 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: write/main 8: 1063 => ((7 integer-address))
mem: ((7 integer-address)): 1264 <= 1063
run: write/main 9: (((8 tagged-value-address)) <- ((index-address)) ((6 tagged-value-array-address) (deref)) ((7 integer-address) (deref)))
mem: ((7 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
run: write/main 9: 1066 => ((8 tagged-value-address))
mem: ((8 tagged-value-address)): 1265 <= 1066
run: write/main 10: (((8 tagged-value-address) (deref)) <- ((copy)) ((2 tagged-value)))
mem: ((2 tagged-value)) => #(tagged record (character - . nil))
run: write/main 10: #(tagged record (character #\- . nil)) => ((8 tagged-value-address) (deref))
mem: ((8 tagged-value-address) (deref)): 1066 <= character
mem: ((8 tagged-value-address) (deref)): 1067 <= #\-
run: write/main 11: (((7 integer-address) (deref)) <- ((add)) ((7 integer-address) (deref)) ((1 literal)))
mem: ((7 integer-address) (deref)) => 0
run: write/main 11: 1 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 1
run: write/main 12: (((9 integer)) <- ((length)) ((6 tagged-value-array-address) (deref)))
array-len: ((6 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: write/main 12: 2 => ((9 integer))
mem: ((9 integer)): 1266 <= 2
run: write/main 13: (((10 boolean)) <- ((less-than)) ((7 integer-address) (deref)) ((9 integer)))
mem: ((7 integer-address) (deref)) => 1
mem: ((9 integer)) => 2
run: write/main 13: t => ((10 boolean))
mem: ((10 boolean)): 1267 <= t
run: write/main 14: (((jump-if)) ((10 boolean)) ((1 offset)))
mem: ((10 boolean)) => t
run: write/main 16: (((reply)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (0 1 1065 . nil))
run: main 11: #(tagged record (0 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 0
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: main 12: (((3 character)) <- ((copy)) ((a literal)))
run: main 12: #\a => ((3 character))
mem: ((3 character)): 1004 <= #\a
run: main 13: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => a
run: main 13: #(tagged record (character #\a)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\a
run: main 14: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character a . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1349 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\a . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1351 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\a . nil)))
run: write/main 2: #(tagged record (character #\a . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1352 <= character
mem: ((2 tagged-value)): 1353 <= #\a
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 1 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1380 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1382 <= 0
mem: ((1 channel)): 1383 <= 1
mem: ((1 channel)): 1384 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1383 integer) (raw)) => 1
run: full?/write/main 2: 1 => ((4 integer))
mem: ((4 integer)): 1385 <= 1
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 1
run: full?/write/main 3: 2 => ((4 integer))
mem: ((4 integer)): 1385 <= 2
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (0 1 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1411 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1413 <= 0
mem: ((1 channel)): 1414 <= 1
mem: ((1 channel)): 1415 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1415 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1416 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1417 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1386 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 2
mem: ((5 integer)) => 2
run: full?/write/main 5: nil => ((6 boolean))
mem: ((6 boolean)): 1387 <= nil
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => nil
run: full?/write/main 7: (((4 integer)) <- ((copy)) ((0 literal)))
run: full?/write/main 7: 0 => ((4 integer))
mem: ((4 integer)): 1385 <= 0
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1382 integer) (raw)) => 0
run: full?/write/main 8: 0 => ((7 integer))
mem: ((7 integer)): 1388 <= 0
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 0
mem: ((4 integer)) => 0
run: full?/write/main 9: t => ((8 boolean))
mem: ((8 boolean)): 1389 <= t
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => t
run: write/main 3: t => ((4 boolean))
mem: ((4 boolean)): 1354 <= t
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => t
run: write/main 5: (((5 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: write/main 5: 1062 => ((5 integer-address))
mem: ((5 integer-address)): 1355 <= 1062
run: write/main 6: (((sleep)) ((until-location-changes literal)) ((5 integer-address) (deref)))
mem: ((5 integer-address) (deref)) => 0
schedule: pushing write/main to sleep queue
schedule: waking up read/expect-stdin/read-move
schedule: read/expect-stdin/read-move
run: read/expect-stdin/read-move 6: (((4 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: read/expect-stdin/read-move 6: 1062 => ((4 integer-address))
mem: ((4 integer-address)): 101319 <= 1062
run: read/expect-stdin/read-move 7: (((5 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: read/expect-stdin/read-move 7: 1065 => ((5 tagged-value-array-address))
mem: ((5 tagged-value-array-address)): 101320 <= 1065
run: read/expect-stdin/read-move 8: (((6 tagged-value)) <- ((index)) ((5 tagged-value-array-address) (deref)) ((4 integer-address) (deref)))
mem: ((4 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
mem: ((1066 tagged-value) (raw)) => #(tagged record (character - . nil))
run: read/expect-stdin/read-move 8: #(tagged record (character #\- . nil)) => ((6 tagged-value))
mem: ((6 tagged-value)): 101321 <= character
mem: ((6 tagged-value)): 101322 <= #\-
run: read/expect-stdin/read-move 9: (((4 integer-address) (deref)) <- ((add)) ((4 integer-address) (deref)) ((1 literal)))
mem: ((4 integer-address) (deref)) => 0
run: read/expect-stdin/read-move 9: 1 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 1
run: read/expect-stdin/read-move 10: (((8 integer)) <- ((length)) ((5 tagged-value-array-address) (deref)))
array-len: ((5 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: read/expect-stdin/read-move 10: 2 => ((8 integer))
mem: ((8 integer)): 101323 <= 2
run: read/expect-stdin/read-move 11: (((9 boolean)) <- ((less-than)) ((4 integer-address) (deref)) ((8 integer)))
mem: ((4 integer-address) (deref)) => 1
mem: ((8 integer)) => 2
run: read/expect-stdin/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101324 <= t
run: read/expect-stdin/read-move 12: (((jump-if)) ((9 boolean)) ((1 offset)))
mem: ((9 boolean)) => t
run: read/expect-stdin/read-move 14: (((reply)) ((6 tagged-value)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((6 tagged-value)) => #(tagged record (character - . nil))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (1 1 1065 . nil))
run: expect-stdin/read-move 2: #(tagged record (character #\- . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 101286 <= character
mem: ((2 tagged-value)): 101287 <= #\-
run: expect-stdin/read-move 2: #(tagged record (1 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 1
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: expect-stdin/read-move 3: (((4 character)) <- ((maybe-coerce)) ((2 tagged-value)) ((character literal)))
mem: ((2 tagged-value)) => #(tagged record (character - . nil))
run: maybe-coerce/expect-stdin/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: maybe-coerce/expect-stdin/read-move 0: 101376 => ((default-space space-address))
run: maybe-coerce/expect-stdin/read-move 1: (((1 tagged-value-address)) <- ((new)) ((tagged-value literal)))
run: maybe-coerce/expect-stdin/read-move 1: 101407 => ((1 tagged-value-address))
mem: ((1 tagged-value-address)): 101378 <= 101407
run: maybe-coerce/expect-stdin/read-move 2: (((1 tagged-value-address) (deref)) <- ((next-input)))
arg: nil 0 (#(tagged record (character #\- . nil)) character)
run: maybe-coerce/expect-stdin/read-move 2: #(tagged record (character #\- . nil)) => ((1 tagged-value-address) (deref))
mem: ((1 tagged-value-address) (deref)): 101407 <= character
mem: ((1 tagged-value-address) (deref)): 101408 <= #\-
run: maybe-coerce/expect-stdin/read-move 3: (((2 type)) <- ((next-input)))
arg: nil 1 (#(tagged record (character #\- . nil)) character)
run: maybe-coerce/expect-stdin/read-move 3: character => ((2 type))
mem: ((2 type)): 101379 <= character
run: maybe-coerce/expect-stdin/read-move 4: (((3 type)) <- ((get)) ((1 tagged-value-address) (deref)) ((0 offset)))
mem: ((101407 type) (raw)) => character
run: maybe-coerce/expect-stdin/read-move 4: character => ((3 type))
mem: ((3 type)): 101380 <= character
run: maybe-coerce/expect-stdin/read-move 5: (((4 boolean)) <- ((equal)) ((3 type)) ((2 type)))
mem: ((3 type)) => character
mem: ((2 type)) => character
run: maybe-coerce/expect-stdin/read-move 5: t => ((4 boolean))
mem: ((4 boolean)): 101381 <= t
run: maybe-coerce/expect-stdin/read-move 6: (((jump-if)) ((4 boolean)) ((1 offset)))
mem: ((4 boolean)) => t
run: maybe-coerce/expect-stdin/read-move 8: (((5 location)) <- ((get)) ((1 tagged-value-address) (deref)) ((1 offset)))
mem: ((101408 location) (raw)) => -
run: maybe-coerce/expect-stdin/read-move 8: #\- => ((5 location))
mem: ((5 location)): 101382 <= #\-
run: maybe-coerce/expect-stdin/read-move 9: (((reply)) ((5 location)) ((4 boolean)))
mem: ((5 location)) => -
mem: ((4 boolean)) => t
run: expect-stdin/read-move 3: #\- => ((4 character))
mem: ((4 character)): 101288 <= #\-
run: expect-stdin/read-move 4: (((5 character)) <- ((next-input)))
arg: nil 1 (1062 #\-)
run: expect-stdin/read-move 4: #\- => ((5 character))
mem: ((5 character)): 101289 <= #\-
run: expect-stdin/read-move 5: (((6 boolean)) <- ((equal)) ((4 character)) ((5 character)))
mem: ((4 character)) => -
mem: ((5 character)) => -
run: expect-stdin/read-move 5: t => ((6 boolean))
mem: ((6 boolean)): 101290 <= t
run: expect-stdin/read-move 6: (((assert)) ((6 boolean)) ((expected character not found literal)))
mem: ((6 boolean)) => t
run: read-move 7: (((4 integer)) <- ((read-file)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read-file/read-move 0: 101409 => ((default-space space-address))
run: read-file/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read-file/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101411 <= 1062
run: read-file/read-move 2: (((2 tagged-value)) ((1 channel-address) (deref)) <- ((read)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read/read-file/read-move 0: 101440 => ((default-space space-address))
run: read/read-file/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read/read-file/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101442 <= 1062
run: read/read-file/read-move 2: (((2 boolean)) <- ((empty?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (1 1 1065 . nil))
run: empty?/read/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: empty?/read/read-file/read-move 0: 101471 => ((default-space space-address))
run: empty?/read/read-file/read-move 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 1 1065 . nil)))
run: empty?/read/read-file/read-move 1: #(tagged record (1 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 101473 <= 1
mem: ((1 channel)): 101474 <= 1
mem: ((1 channel)): 101475 <= 1065
run: empty?/read/read-file/read-move 2: (((4 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((101473 integer) (raw)) => 1
run: empty?/read/read-file/read-move 2: 1 => ((4 integer))
mem: ((4 integer)): 101476 <= 1
run: empty?/read/read-file/read-move 3: (((5 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((101474 integer) (raw)) => 1
run: empty?/read/read-file/read-move 3: 1 => ((5 integer))
mem: ((5 integer)): 101477 <= 1
run: empty?/read/read-file/read-move 4: (((6 boolean)) <- ((equal)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 1
mem: ((5 integer)) => 1
run: empty?/read/read-file/read-move 4: t => ((6 boolean))
mem: ((6 boolean)): 101478 <= t
run: empty?/read/read-file/read-move 5: (((reply)) ((6 boolean)))
mem: ((6 boolean)) => t
run: read/read-file/read-move 2: t => ((2 boolean))
mem: ((2 boolean)): 101443 <= t
run: read/read-file/read-move 3: (((jump-unless)) ((2 boolean)) ((2 offset)))
mem: ((2 boolean)) => t
run: read/read-file/read-move 4: (((3 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: read/read-file/read-move 4: 1063 => ((3 integer-address))
mem: ((3 integer-address)): 101444 <= 1063
run: read/read-file/read-move 5: (((sleep)) ((until-location-changes literal)) ((3 integer-address) (deref)))
mem: ((3 integer-address) (deref)) => 1
schedule: pushing read/read-file/read-move to sleep queue
schedule: waking up write/main
schedule: write/main
run: write/main 7: (((6 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: write/main 7: 1065 => ((6 tagged-value-array-address))
mem: ((6 tagged-value-array-address)): 1356 <= 1065
run: write/main 8: (((7 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: write/main 8: 1063 => ((7 integer-address))
mem: ((7 integer-address)): 1357 <= 1063
run: write/main 9: (((8 tagged-value-address)) <- ((index-address)) ((6 tagged-value-array-address) (deref)) ((7 integer-address) (deref)))
mem: ((7 integer-address) (deref)) => 1
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
run: write/main 9: 1068 => ((8 tagged-value-address))
mem: ((8 tagged-value-address)): 1358 <= 1068
run: write/main 10: (((8 tagged-value-address) (deref)) <- ((copy)) ((2 tagged-value)))
mem: ((2 tagged-value)) => #(tagged record (character a . nil))
run: write/main 10: #(tagged record (character #\a . nil)) => ((8 tagged-value-address) (deref))
mem: ((8 tagged-value-address) (deref)): 1068 <= character
mem: ((8 tagged-value-address) (deref)): 1069 <= #\a
run: write/main 11: (((7 integer-address) (deref)) <- ((add)) ((7 integer-address) (deref)) ((1 literal)))
mem: ((7 integer-address) (deref)) => 1
run: write/main 11: 2 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 2
run: write/main 12: (((9 integer)) <- ((length)) ((6 tagged-value-array-address) (deref)))
array-len: ((6 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: write/main 12: 2 => ((9 integer))
mem: ((9 integer)): 1359 <= 2
run: write/main 13: (((10 boolean)) <- ((less-than)) ((7 integer-address) (deref)) ((9 integer)))
mem: ((7 integer-address) (deref)) => 2
mem: ((9 integer)) => 2
run: write/main 13: nil => ((10 boolean))
mem: ((10 boolean)): 1360 <= nil
run: write/main 14: (((jump-if)) ((10 boolean)) ((1 offset)))
mem: ((10 boolean)) => nil
run: write/main 15: (((7 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: write/main 15: 0 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 0
run: write/main 16: (((reply)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (1 0 1065 . nil))
run: main 14: #(tagged record (1 0 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 1
mem: ((1 channel-address) (deref)): 1063 <= 0
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: main 15: (((3 character)) <- ((copy)) ((4 literal)))
run: main 15: #\4 => ((3 character))
mem: ((3 character)): 1004 <= #\4
run: main 16: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => 4
run: main 16: #(tagged record (character #\4)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\4
run: main 17: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character 4 . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1442 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\4 . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1444 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\4 . nil)))
run: write/main 2: #(tagged record (character #\4 . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1445 <= character
mem: ((2 tagged-value)): 1446 <= #\4
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (1 0 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1473 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 0 1065 . nil)))
run: full?/write/main 1: #(tagged record (1 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1475 <= 1
mem: ((1 channel)): 1476 <= 0
mem: ((1 channel)): 1477 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1476 integer) (raw)) => 0
run: full?/write/main 2: 0 => ((4 integer))
mem: ((4 integer)): 1478 <= 0
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 0
run: full?/write/main 3: 1 => ((4 integer))
mem: ((4 integer)): 1478 <= 1
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (1 0 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1504 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (1 0 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (1 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1506 <= 1
mem: ((1 channel)): 1507 <= 0
mem: ((1 channel)): 1508 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1508 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1509 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1510 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1479 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 1
mem: ((5 integer)) => 2
run: full?/write/main 5: t => ((6 boolean))
mem: ((6 boolean)): 1480 <= t
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => t
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1475 integer) (raw)) => 1
run: full?/write/main 8: 1 => ((7 integer))
mem: ((7 integer)): 1481 <= 1
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 1
mem: ((4 integer)) => 1
run: full?/write/main 9: t => ((8 boolean))
mem: ((8 boolean)): 1482 <= t
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => t
run: write/main 3: t => ((4 boolean))
mem: ((4 boolean)): 1447 <= t
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => t
run: write/main 5: (((5 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: write/main 5: 1062 => ((5 integer-address))
mem: ((5 integer-address)): 1448 <= 1062
run: write/main 6: (((sleep)) ((until-location-changes literal)) ((5 integer-address) (deref)))
mem: ((5 integer-address) (deref)) => 1
schedule: pushing write/main to sleep queue
schedule: waking up read/read-file/read-move
schedule: read/read-file/read-move
run: read/read-file/read-move 6: (((4 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: read/read-file/read-move 6: 1062 => ((4 integer-address))
mem: ((4 integer-address)): 101445 <= 1062
run: read/read-file/read-move 7: (((5 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: read/read-file/read-move 7: 1065 => ((5 tagged-value-array-address))
mem: ((5 tagged-value-array-address)): 101446 <= 1065
run: read/read-file/read-move 8: (((6 tagged-value)) <- ((index)) ((5 tagged-value-array-address) (deref)) ((4 integer-address) (deref)))
mem: ((4 integer-address) (deref)) => 1
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
mem: ((1068 tagged-value) (raw)) => #(tagged record (character a . nil))
run: read/read-file/read-move 8: #(tagged record (character #\a . nil)) => ((6 tagged-value))
mem: ((6 tagged-value)): 101447 <= character
mem: ((6 tagged-value)): 101448 <= #\a
run: read/read-file/read-move 9: (((4 integer-address) (deref)) <- ((add)) ((4 integer-address) (deref)) ((1 literal)))
mem: ((4 integer-address) (deref)) => 1
run: read/read-file/read-move 9: 2 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 2
run: read/read-file/read-move 10: (((8 integer)) <- ((length)) ((5 tagged-value-array-address) (deref)))
array-len: ((5 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: read/read-file/read-move 10: 2 => ((8 integer))
mem: ((8 integer)): 101449 <= 2
run: read/read-file/read-move 11: (((9 boolean)) <- ((less-than)) ((4 integer-address) (deref)) ((8 integer)))
mem: ((4 integer-address) (deref)) => 2
mem: ((8 integer)) => 2
run: read/read-file/read-move 11: nil => ((9 boolean))
mem: ((9 boolean)): 101450 <= nil
run: read/read-file/read-move 12: (((jump-if)) ((9 boolean)) ((1 offset)))
mem: ((9 boolean)) => nil
run: read/read-file/read-move 13: (((4 integer-address) (deref)) <- ((copy)) ((0 literal)))
run: read/read-file/read-move 13: 0 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 0
run: read/read-file/read-move 14: (((reply)) ((6 tagged-value)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((6 tagged-value)) => #(tagged record (character a . nil))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (0 0 1065 . nil))
run: read-file/read-move 2: #(tagged record (character #\a . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 101412 <= character
mem: ((2 tagged-value)): 101413 <= #\a
run: read-file/read-move 2: #(tagged record (0 0 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 0
mem: ((1 channel-address) (deref)): 1063 <= 0
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: read-file/read-move 3: (((4 character)) <- ((copy)) ((a literal)))
run: read-file/read-move 3: #\a => ((4 character))
mem: ((4 character)): 101414 <= #\a
run: read-file/read-move 4: (((5 integer)) <- ((character-to-integer)) ((4 character)))
mem: ((4 character)) => a
run: read-file/read-move 4: 97 => ((5 integer))
mem: ((5 integer)): 101415 <= 97
run: read-file/read-move 5: (((6 character)) <- ((maybe-coerce)) ((2 tagged-value)) ((character literal)))
mem: ((2 tagged-value)) => #(tagged record (character a . nil))
run: maybe-coerce/read-file/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: maybe-coerce/read-file/read-move 0: 101502 => ((default-space space-address))
run: maybe-coerce/read-file/read-move 1: (((1 tagged-value-address)) <- ((new)) ((tagged-value literal)))
run: maybe-coerce/read-file/read-move 1: 101533 => ((1 tagged-value-address))
mem: ((1 tagged-value-address)): 101504 <= 101533
run: maybe-coerce/read-file/read-move 2: (((1 tagged-value-address) (deref)) <- ((next-input)))
arg: nil 0 (#(tagged record (character #\a . nil)) character)
run: maybe-coerce/read-file/read-move 2: #(tagged record (character #\a . nil)) => ((1 tagged-value-address) (deref))
mem: ((1 tagged-value-address) (deref)): 101533 <= character
mem: ((1 tagged-value-address) (deref)): 101534 <= #\a
run: maybe-coerce/read-file/read-move 3: (((2 type)) <- ((next-input)))
arg: nil 1 (#(tagged record (character #\a . nil)) character)
run: maybe-coerce/read-file/read-move 3: character => ((2 type))
mem: ((2 type)): 101505 <= character
run: maybe-coerce/read-file/read-move 4: (((3 type)) <- ((get)) ((1 tagged-value-address) (deref)) ((0 offset)))
mem: ((101533 type) (raw)) => character
run: maybe-coerce/read-file/read-move 4: character => ((3 type))
mem: ((3 type)): 101506 <= character
run: maybe-coerce/read-file/read-move 5: (((4 boolean)) <- ((equal)) ((3 type)) ((2 type)))
mem: ((3 type)) => character
mem: ((2 type)) => character
run: maybe-coerce/read-file/read-move 5: t => ((4 boolean))
mem: ((4 boolean)): 101507 <= t
run: maybe-coerce/read-file/read-move 6: (((jump-if)) ((4 boolean)) ((1 offset)))
mem: ((4 boolean)) => t
run: maybe-coerce/read-file/read-move 8: (((5 location)) <- ((get)) ((1 tagged-value-address) (deref)) ((1 offset)))
mem: ((101534 location) (raw)) => a
run: maybe-coerce/read-file/read-move 8: #\a => ((5 location))
mem: ((5 location)): 101508 <= #\a
run: maybe-coerce/read-file/read-move 9: (((reply)) ((5 location)) ((4 boolean)))
mem: ((5 location)) => a
mem: ((4 boolean)) => t
run: read-file/read-move 5: #\a => ((6 character))
mem: ((6 character)): 101416 <= #\a
run: read-file/read-move 6: (((7 boolean)) <- ((equal)) ((6 character)) ((q literal)))
mem: ((6 character)) => a
run: read-file/read-move 6: nil => ((7 boolean))
mem: ((7 boolean)): 101417 <= nil
run: read-file/read-move 7: (((jump-unless)) ((7 boolean)) ((1 offset)))
mem: ((7 boolean)) => nil
run: read-file/read-move 9: (((8 integer)) <- ((character-to-integer)) ((6 character)))
mem: ((6 character)) => a
run: read-file/read-move 9: 97 => ((8 integer))
mem: ((8 integer)): 101418 <= 97
run: read-file/read-move 10: (((8 integer)) <- ((subtract)) ((8 integer)) ((5 integer)))
mem: ((8 integer)) => 97
mem: ((5 integer)) => 97
run: read-file/read-move 10: 0 => ((8 integer))
mem: ((8 integer)): 101418 <= 0
run: read-file/read-move 11: (((9 boolean)) <- ((greater-or-equal)) ((8 integer)) ((0 literal)))
mem: ((8 integer)) => 0
run: read-file/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101419 <= t
run: read-file/read-move 12: (((assert)) ((9 boolean)) ((file too low literal)))
mem: ((9 boolean)) => t
run: read-file/read-move 13: (((10 boolean)) <- ((lesser-or-equal)) ((8 integer)) ((7 literal)))
mem: ((8 integer)) => 0
run: read-file/read-move 13: t => ((10 boolean))
mem: ((10 boolean)): 101420 <= t
run: read-file/read-move 14: (((assert)) ((10 boolean)) ((file too high literal)))
mem: ((10 boolean)) => t
run: read-file/read-move 15: (((reply)) ((8 integer)))
mem: ((8 integer)) => 0
run: read-move 7: 0 => ((4 integer))
mem: ((4 integer)): 101005 <= 0
run: read-move 8: (((5 integer)) <- ((read-rank)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read-rank/read-move 0: 101535 => ((default-space space-address))
run: read-rank/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read-rank/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101537 <= 1062
run: read-rank/read-move 2: (((2 tagged-value)) ((1 channel-address) (deref)) <- ((read)) ((1 channel-address)))
mem: ((1 channel-address)) => 1062
run: read/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: read/read-rank/read-move 0: 101566 => ((default-space space-address))
run: read/read-rank/read-move 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062)
run: read/read-rank/read-move 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 101568 <= 1062
run: read/read-rank/read-move 2: (((2 boolean)) <- ((empty?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 0 1065 . nil))
run: empty?/read/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: empty?/read/read-rank/read-move 0: 101597 => ((default-space space-address))
run: empty?/read/read-rank/read-move 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 0 1065 . nil)))
run: empty?/read/read-rank/read-move 1: #(tagged record (0 0 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 101599 <= 0
mem: ((1 channel)): 101600 <= 0
mem: ((1 channel)): 101601 <= 1065
run: empty?/read/read-rank/read-move 2: (((4 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((101599 integer) (raw)) => 0
run: empty?/read/read-rank/read-move 2: 0 => ((4 integer))
mem: ((4 integer)): 101602 <= 0
run: empty?/read/read-rank/read-move 3: (((5 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((101600 integer) (raw)) => 0
run: empty?/read/read-rank/read-move 3: 0 => ((5 integer))
mem: ((5 integer)): 101603 <= 0
run: empty?/read/read-rank/read-move 4: (((6 boolean)) <- ((equal)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 0
mem: ((5 integer)) => 0
run: empty?/read/read-rank/read-move 4: t => ((6 boolean))
mem: ((6 boolean)): 101604 <= t
run: empty?/read/read-rank/read-move 5: (((reply)) ((6 boolean)))
mem: ((6 boolean)) => t
run: read/read-rank/read-move 2: t => ((2 boolean))
mem: ((2 boolean)): 101569 <= t
run: read/read-rank/read-move 3: (((jump-unless)) ((2 boolean)) ((2 offset)))
mem: ((2 boolean)) => t
run: read/read-rank/read-move 4: (((3 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: read/read-rank/read-move 4: 1063 => ((3 integer-address))
mem: ((3 integer-address)): 101570 <= 1063
run: read/read-rank/read-move 5: (((sleep)) ((until-location-changes literal)) ((3 integer-address) (deref)))
mem: ((3 integer-address) (deref)) => 0
schedule: pushing read/read-rank/read-move to sleep queue
schedule: waking up write/main
schedule: write/main
run: write/main 7: (((6 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: write/main 7: 1065 => ((6 tagged-value-array-address))
mem: ((6 tagged-value-array-address)): 1449 <= 1065
run: write/main 8: (((7 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((1 offset)))
run: write/main 8: 1063 => ((7 integer-address))
mem: ((7 integer-address)): 1450 <= 1063
run: write/main 9: (((8 tagged-value-address)) <- ((index-address)) ((6 tagged-value-array-address) (deref)) ((7 integer-address) (deref)))
mem: ((7 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
run: write/main 9: 1066 => ((8 tagged-value-address))
mem: ((8 tagged-value-address)): 1451 <= 1066
run: write/main 10: (((8 tagged-value-address) (deref)) <- ((copy)) ((2 tagged-value)))
mem: ((2 tagged-value)) => #(tagged record (character 4 . nil))
run: write/main 10: #(tagged record (character #\4 . nil)) => ((8 tagged-value-address) (deref))
mem: ((8 tagged-value-address) (deref)): 1066 <= character
mem: ((8 tagged-value-address) (deref)): 1067 <= #\4
run: write/main 11: (((7 integer-address) (deref)) <- ((add)) ((7 integer-address) (deref)) ((1 literal)))
mem: ((7 integer-address) (deref)) => 0
run: write/main 11: 1 => ((7 integer-address) (deref))
mem: ((7 integer-address) (deref)): 1063 <= 1
run: write/main 12: (((9 integer)) <- ((length)) ((6 tagged-value-array-address) (deref)))
array-len: ((6 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: write/main 12: 2 => ((9 integer))
mem: ((9 integer)): 1452 <= 2
run: write/main 13: (((10 boolean)) <- ((less-than)) ((7 integer-address) (deref)) ((9 integer)))
mem: ((7 integer-address) (deref)) => 1
mem: ((9 integer)) => 2
run: write/main 13: t => ((10 boolean))
mem: ((10 boolean)): 1453 <= t
run: write/main 14: (((jump-if)) ((10 boolean)) ((1 offset)))
mem: ((10 boolean)) => t
run: write/main 16: (((reply)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (0 1 1065 . nil))
run: main 17: #(tagged record (0 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 0
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: main 18: (((3 character)) <- ((copy)) ((
 literal)))
run: main 18: #\newline => ((3 character))
mem: ((3 character)): 1004 <= #\newline
run: main 19: (((4 tagged-value)) <- ((save-type)) ((3 character)))
mem: ((3 character)) => 

run: main 19: #(tagged record (character #\newline)) => ((4 tagged-value))
mem: ((4 tagged-value)): 1005 <= character
mem: ((4 tagged-value)): 1006 <= #\newline
run: main 20: (((1 channel-address) (deref)) <- ((write)) ((1 channel-address)) ((4 tagged-value)))
mem: ((1 channel-address)) => 1062
mem: ((4 tagged-value)) => #(tagged record (character 
 . nil))
run: write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: write/main 0: 1535 => ((default-space space-address))
run: write/main 1: (((1 channel-address)) <- ((next-input)))
arg: nil 0 (1062 #(tagged record (character #\newline . nil)))
run: write/main 1: 1062 => ((1 channel-address))
mem: ((1 channel-address)): 1537 <= 1062
run: write/main 2: (((2 tagged-value)) <- ((next-input)))
arg: nil 1 (1062 #(tagged record (character #\newline . nil)))
run: write/main 2: #(tagged record (character #\newline . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 1538 <= character
mem: ((2 tagged-value)): 1539 <= #\newline
run: write/main 3: (((4 boolean)) <- ((full?)) ((1 channel-address) (deref)))
mem: ((1 channel-address) (deref)) => #(tagged record (0 1 1065 . nil))
run: full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: full?/write/main 0: 1566 => ((default-space space-address))
run: full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1568 <= 0
mem: ((1 channel)): 1569 <= 1
mem: ((1 channel)): 1570 <= 1065
run: full?/write/main 2: (((4 integer)) <- ((get)) ((1 channel)) ((1 offset)))
mem: ((1569 integer) (raw)) => 1
run: full?/write/main 2: 1 => ((4 integer))
mem: ((4 integer)): 1571 <= 1
run: full?/write/main 3: (((4 integer)) <- ((add)) ((4 integer)) ((1 literal)))
mem: ((4 integer)) => 1
run: full?/write/main 3: 2 => ((4 integer))
mem: ((4 integer)): 1571 <= 2
run: full?/write/main 4: (((5 integer)) <- ((capacity)) ((1 channel)))
mem: ((1 channel)) => #(tagged record (0 1 1065 . nil))
run: capacity/full?/write/main 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: capacity/full?/write/main 0: 1597 => ((default-space space-address))
run: capacity/full?/write/main 1: (((1 channel)) <- ((next-input)))
arg: nil 0 (#(tagged record (0 1 1065 . nil)))
run: capacity/full?/write/main 1: #(tagged record (0 1 1065 . nil)) => ((1 channel))
mem: ((1 channel)): 1599 <= 0
mem: ((1 channel)): 1600 <= 1
mem: ((1 channel)): 1601 <= 1065
run: capacity/full?/write/main 2: (((4 tagged-value-array-address)) <- ((get)) ((1 channel)) ((2 offset)))
mem: ((1601 tagged-value-array-address) (raw)) => 1065
run: capacity/full?/write/main 2: 1065 => ((4 tagged-value-array-address))
mem: ((4 tagged-value-array-address)): 1602 <= 1065
run: capacity/full?/write/main 3: (((5 integer)) <- ((length)) ((4 tagged-value-array-address) (deref)))
array-len: ((4 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: capacity/full?/write/main 3: 2 => ((5 integer))
mem: ((5 integer)): 1603 <= 2
run: capacity/full?/write/main 4: (((reply)) ((5 integer)))
mem: ((5 integer)) => 2
run: full?/write/main 4: 2 => ((5 integer))
mem: ((5 integer)): 1572 <= 2
run: full?/write/main 5: (((6 boolean)) <- ((less-than)) ((4 integer)) ((5 integer)))
mem: ((4 integer)) => 2
mem: ((5 integer)) => 2
run: full?/write/main 5: nil => ((6 boolean))
mem: ((6 boolean)): 1573 <= nil
run: full?/write/main 6: (((jump-if)) ((6 boolean)) ((1 offset)))
mem: ((6 boolean)) => nil
run: full?/write/main 7: (((4 integer)) <- ((copy)) ((0 literal)))
run: full?/write/main 7: 0 => ((4 integer))
mem: ((4 integer)): 1571 <= 0
run: full?/write/main 8: (((7 integer)) <- ((get)) ((1 channel)) ((0 offset)))
mem: ((1568 integer) (raw)) => 0
run: full?/write/main 8: 0 => ((7 integer))
mem: ((7 integer)): 1574 <= 0
run: full?/write/main 9: (((8 boolean)) <- ((equal)) ((7 integer)) ((4 integer)))
mem: ((7 integer)) => 0
mem: ((4 integer)) => 0
run: full?/write/main 9: t => ((8 boolean))
mem: ((8 boolean)): 1575 <= t
run: full?/write/main 10: (((reply)) ((8 boolean)))
mem: ((8 boolean)) => t
run: write/main 3: t => ((4 boolean))
mem: ((4 boolean)): 1540 <= t
run: write/main 4: (((jump-unless)) ((4 boolean)) ((2 offset)))
mem: ((4 boolean)) => t
run: write/main 5: (((5 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: write/main 5: 1062 => ((5 integer-address))
mem: ((5 integer-address)): 1541 <= 1062
run: write/main 6: (((sleep)) ((until-location-changes literal)) ((5 integer-address) (deref)))
mem: ((5 integer-address) (deref)) => 0
schedule: pushing write/main to sleep queue
schedule: waking up read/read-rank/read-move
schedule: read/read-rank/read-move
run: read/read-rank/read-move 6: (((4 integer-address)) <- ((get-address)) ((1 channel-address) (deref)) ((0 offset)))
run: read/read-rank/read-move 6: 1062 => ((4 integer-address))
mem: ((4 integer-address)): 101571 <= 1062
run: read/read-rank/read-move 7: (((5 tagged-value-array-address)) <- ((get)) ((1 channel-address) (deref)) ((2 offset)))
mem: ((1064 tagged-value-array-address) (raw)) => 1065
run: read/read-rank/read-move 7: 1065 => ((5 tagged-value-array-address))
mem: ((5 tagged-value-array-address)): 101572 <= 1065
run: read/read-rank/read-move 8: (((6 tagged-value)) <- ((index)) ((5 tagged-value-array-address) (deref)) ((4 integer-address) (deref)))
mem: ((4 integer-address) (deref)) => 0
array-len: ((1065 tagged-value-array) (raw))
mem: ((1065 integer) (raw)) => 2
mem: ((1066 tagged-value) (raw)) => #(tagged record (character 4 . nil))
run: read/read-rank/read-move 8: #(tagged record (character #\4 . nil)) => ((6 tagged-value))
mem: ((6 tagged-value)): 101573 <= character
mem: ((6 tagged-value)): 101574 <= #\4
run: read/read-rank/read-move 9: (((4 integer-address) (deref)) <- ((add)) ((4 integer-address) (deref)) ((1 literal)))
mem: ((4 integer-address) (deref)) => 0
run: read/read-rank/read-move 9: 1 => ((4 integer-address) (deref))
mem: ((4 integer-address) (deref)): 1062 <= 1
run: read/read-rank/read-move 10: (((8 integer)) <- ((length)) ((5 tagged-value-array-address) (deref)))
array-len: ((5 tagged-value-array-address) (deref))
mem: ((1065 integer) (raw)) => 2
run: read/read-rank/read-move 10: 2 => ((8 integer))
mem: ((8 integer)): 101575 <= 2
run: read/read-rank/read-move 11: (((9 boolean)) <- ((less-than)) ((4 integer-address) (deref)) ((8 integer)))
mem: ((4 integer-address) (deref)) => 1
mem: ((8 integer)) => 2
run: read/read-rank/read-move 11: t => ((9 boolean))
mem: ((9 boolean)): 101576 <= t
run: read/read-rank/read-move 12: (((jump-if)) ((9 boolean)) ((1 offset)))
mem: ((9 boolean)) => t
run: read/read-rank/read-move 14: (((reply)) ((6 tagged-value)) ((1 channel-address) (deref) (same-as-arg 0)))
mem: ((6 tagged-value)) => #(tagged record (character 4 . nil))
mem: ((1 channel-address) (deref) (same-as-arg 0)) => #(tagged record (1 1 1065 . nil))
run: read-rank/read-move 2: #(tagged record (character #\4 . nil)) => ((2 tagged-value))
mem: ((2 tagged-value)): 101538 <= character
mem: ((2 tagged-value)): 101539 <= #\4
run: read-rank/read-move 2: #(tagged record (1 1 1065 . nil)) => ((1 channel-address) (deref))
mem: ((1 channel-address) (deref)): 1062 <= 1
mem: ((1 channel-address) (deref)): 1063 <= 1
mem: ((1 channel-address) (deref)): 1064 <= 1065
run: read-rank/read-move 3: (((4 character)) <- ((maybe-coerce)) ((2 tagged-value)) ((character literal)))
mem: ((2 tagged-value)) => #(tagged record (character 4 . nil))
run: maybe-coerce/read-rank/read-move 0: (((default-space space-address)) <- ((new)) ((space literal)) ((30 literal)))
run: maybe-coerce/read-rank/read-move 0: 101628 => ((default-space space-address))
run: maybe-coerce/read-rank/read-move 1: (((1 tagged-value-address)) <- ((new)) ((tagged-value literal)))
run: maybe-coerce/read-rank/read-move 1: 101659 => ((1 tagged-value-address))
mem: ((1 tagged-value-address)): 101630 <= 101659
run: maybe-coerce/read-rank/read-move 2: (((1 tagged-value-address) (deref)) <- ((next-input)))
arg: nil 0 (#(tagged record (character #\4 . nil)) character)
run: maybe-coerce/read-rank/read-move 2: #(tagged record (character #\4 . nil)) => ((1 tagged-value-address) (deref))
mem: ((1 tagged-value-address) (deref)): 101659 <= character
mem: ((1 tagged-value-address) (deref)): 101660 <= #\4
run: maybe-coerce/read-rank/read-move 3: (((2 type)) <- ((next-input)))
arg: nil 1 (#(tagged record (character #\4 . nil)) character)
run: maybe-coerce/read-rank/read-move 3: character => ((2 type))
mem: ((2 type)): 101631 <= character
run: maybe-coerce/read-rank/read-move 4: (((3 type)) <- ((get)) ((1 tagged-value-address) (deref)) ((0 offset)))
mem: ((101659 type) (raw)) => character
run: maybe-coerce/read-rank/read-move 4: character => ((3 type))
mem: ((3 type)): 101632 <= character
run: maybe-coerce/read-rank/read-move 5: (((4 boolean)) <- ((equal)) ((3 type)) ((2 type)))
mem: ((3 type)) => character
mem: ((2 type)) => character
run: maybe-coerce/read-rank/read-move 5: t => ((4 boolean))
mem: ((4 boolean)): 101633 <= t
run: maybe-coerce/read-rank/read-move 6: (((jump-if)) ((4 boolean)) ((1 offset)))
mem: ((4 boolean)) => t
run: maybe-coerce/read-rank/read-move 8: (((5 location)) <- ((get)) ((1 tagged-value-address) (deref)) ((1 offset)))
mem: ((101660 location) (raw)) => 4
run: maybe-coerce/read-rank/read-move 8: #\4 => ((5 location))
mem: ((5 location)): 101634 <= #\4
run: maybe-coerce/read-rank/read-move 9: (((reply)) ((5 location)) ((4 boolean)))
mem: ((5 location)) => 4
mem: ((4 boolean)) => t
run: ><span class="o">=</span><span class="w"> </span><span class="n">_get_chatlog_dir</span><span class="p">();</span>
<span class="w">    </span><span class="n">GString</span><span class="w"> </span><span class="o">*</span><span class="n">log_file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_string_new</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">);</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">);</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">login_dir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">str_replace</span><span class="p">(</span><span class="n">login</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;@&quot;</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;_at_&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append_printf</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%s&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">login_dir</span><span class="p">);</span>
<span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">create</span><span class="p">)</span><span class="w"> </span><span class="p">{</span>
<span class="w">        </span><span class="n">create_dir</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="p">}</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">login_dir</span><span class="p">);</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">other_file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">str_replace</span><span class="p">(</span><span class="n">other</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;@&quot;</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;_at_&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append_printf</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%s&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">other_file</span><span class="p">);</span>
<span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">create</span><span class="p">)</span><span class="w"> </span><span class="p">{</span>
<span class="w">        </span><span class="n">create_dir</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="p">}</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">other_file</span><span class="p">);</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">date</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_date_time_format</span><span class="p">(</span><span class="n">dt</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%Y_%m_%d.log&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="n">date</span><span class="p">);</span>

<span class="w">    </span><span class="kt">char</span><span class="w"> </span><span class="o">*</span><span class="n">result</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">strdup</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_free</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="n">TRUE</span><span class="p">);</span>

<span class="w">    </span><span class="k">return</span><span class="w"> </span><span class="n">result</span><span class="p">;</span>
<span class="p">}</span>

<span class="k">static</span><span class="w"> </span><span class="kt">char</span><span class="w"> </span><span class="o">*</span>
<span class="n">_get_groupchat_log_filename</span><span class="p">(</span><span class="k">const</span><span class="w"> </span><span class="kt">char</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="k">const</span><span class="w"> </span><span class="n">room</span><span class="p">,</span><span class="w"> </span><span class="k">const</span><span class="w"> </span><span class="kt">char</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="k">const</span><span class="w"> </span><span class="n">login</span><span class="p">,</span>
<span class="w">    </span><span class="n">GDateTime</span><span class="w"> </span><span class="o">*</span><span class="n">dt</span><span class="p">,</span><span class="w"> </span><span class="n">gboolean</span><span class="w"> </span><span class="n">create</span><span class="p">)</span>
<span class="p">{</span>
<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">chatlogs_dir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">_get_chatlog_dir</span><span class="p">();</span>
<span class="w">    </span><span class="n">GString</span><span class="w"> </span><span class="o">*</span><span class="n">log_file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_string_new</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_free</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">);</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">login_dir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">str_replace</span><span class="p">(</span><span class="n">login</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;@&quot;</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;_at_&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append_printf</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%s&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">login_dir</span><span class="p">);</span>
<span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">create</span><span class="p">)</span><span class="w"> </span><span class="p">{</span>
<span class="w">        </span><span class="n">create_dir</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="p">}</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">login_dir</span><span class="p">);</span>

<span class="w">    </span><span class="n">g_string_append</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/rooms&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">create</span><span class="p">)</span><span class="w"> </span><span class="p">{</span>
<span class="w">        </span><span class="n">create_dir</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="p">}</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">room_file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">str_replace</span><span class="p">(</span><span class="n">room</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;@&quot;</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;_at_&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append_printf</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%s&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">room_file</span><span class="p">);</span>
<span class="w">    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">create</span><span class="p">)</span><span class="w"> </span><span class="p">{</span>
<span class="w">        </span><span class="n">create_dir</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="p">}</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">room_file</span><span class="p">);</span>

<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">date</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_date_time_format</span><span class="p">(</span><span class="n">dt</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/%Y_%m_%d.log&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="n">date</span><span class="p">);</span>

<span class="w">    </span><span class="kt">char</span><span class="w"> </span><span class="o">*</span><span class="n">result</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">strdup</span><span class="p">(</span><span class="n">log_file</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_free</span><span class="p">(</span><span class="n">log_file</span><span class="p">,</span><span class="w"> </span><span class="n">TRUE</span><span class="p">);</span>

<span class="w">    </span><span class="k">return</span><span class="w"> </span><span class="n">result</span><span class="p">;</span>
<span class="p">}</span>

<span class="k">static</span><span class="w"> </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span>
<span class="n">_get_chatlog_dir</span><span class="p">(</span><span class="kt">void</span><span class="p">)</span>
<span class="p">{</span>
<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">xdg_data</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">xdg_get_data_home</span><span class="p">();</span>
<span class="w">    </span><span class="n">GString</span><span class="w"> </span><span class="o">*</span><span class="n">chatlogs_dir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_string_new</span><span class="p">(</span><span class="n">xdg_data</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/profanity/chatlogs&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">result</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">strdup</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">xdg_data</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_free</span><span class="p">(</span><span class="n">chatlogs_dir</span><span class="p">,</span><span class="w"> </span><span class="n">TRUE</span><span class="p">);</span>

<span class="w">    </span><span class="k">return</span><span class="w"> </span><span class="n">result</span><span class="p">;</span>
<span class="p">}</span>

<span class="k">static</span><span class="w"> </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span>
<span class="n">_get_log_file</span><span class="p">(</span><span class="kt">void</span><span class="p">)</span>
<span class="p">{</span>
<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">xdg_data</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">xdg_get_data_home</span><span class="p">();</span>
<span class="w">    </span><span class="n">GString</span><span class="w"> </span><span class="o">*</span><span class="n">logfile</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">g_string_new</span><span class="p">(</span><span class="n">xdg_data</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_append</span><span class="p">(</span><span class="n">logfile</span><span class="p">,</span><span class="w"> </span><span class="s">&quot;/profanity/logs/profanity.log&quot;</span><span class="p">);</span>
<span class="w">    </span><span class="n">gchar</span><span class="w"> </span><span class="o">*</span><span class="n">result</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">strdup</span><span class="p">(</span><span class="n">logfile</span><span class="o">-&gt;</span><span class="n">str</span><span class="p">);</span>
<span class="w">    </span><span class="n">free</span><span class="p">(</span><span class="n">xdg_data</span><span class="p">);</span>
<span class="w">    </span><span class="n">g_string_free</span><span class="p">(</span><span class="n">logfile</span><span class="p">,</span><span class="w"> </span><span class="n">TRUE</span><span class="p">);</span>

<span class="w">    </span><span class="k">return</span><span class="w"> </span><span class="n">result</span><span class="p">;</span>
<span class="p">}</span>
</pre></div>
s)): 101009 <= 101789
run: read-move 18: (((8 integer-address) (deref)) <- ((copy)) ((4 integer)))
mem: ((4 integer)) => 0
run: read-move 18: 0 => ((8 integer-address) (deref))
mem: ((8 integer-address) (deref)): 101789 <= 0
run: read-move 19: (((8 integer-address)) <- ((get-address)) ((9 integer-integer-pair-address) (deref)) ((1 offset)))
run: read-move 19: 101790 => ((8 integer-address))
mem: ((8 integer-address)): 101009 <= 101790
run: read-move 20: (((8 integer-address) (deref)) <- ((copy)) ((5 integer)))
mem: ((5 integer)) => 3
run: read-move 20: 3 => ((8 integer-address) (deref))
mem: ((8 integer-address) (deref)): 101790 <= 3
run: read-move 21: (((reply)) ((6 move-address)))
mem: ((6 move-address)) => 101787
schedule: done with routine nil
schedule: waking up main
schedule: main
schedule: done with routine nil