1226 - bugfix in allocating arrays

Also our first test of printing to screen.

1 files changed, 293 insertions, 293 deletions

diff --git a/cpp/.traces/channel-wrap b/cpp/.traces/channel-wrap
index 9cc3177f..fc196654 100644
--- a/cpp/.traces/channel-wrap
+++ b/cpp/.traces/channel-wrap
@@ -57,34 +57,34 @@ mem/0: array size is 30
 mem/0: new alloc: 1000
 run/0: instruction init-channel/1
 run/0: {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel"]} <- new {name: "channel", value: 10, type: 0, properties: ["channel": "type"]}
-mem/0: new alloc: 1030
-mem/0: storing 1030 in location 1002
+mem/0: new alloc: 1031
+mem/0: storing 1031 in location 1002
 run/0: instruction init-channel/2
 run/0: {name: "full", value: 2, type: 2-1, properties: ["full": "address":"integer"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is result
-mem/0: location 1002 is 1030
+mem/0: location 1002 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1003
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1003
 run/0: instruction init-channel/3
 run/0: {name: "full", value: 2, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
 run/0: ingredient 0 is 0
-mem/0: location 1003 is 1030
-mem/0: storing 0 in location 1030
+mem/0: location 1003 is 1031
+mem/0: storing 0 in location 1031
 run/0: instruction init-channel/4
 run/0: {name: "free", value: 3, type: 2-1, properties: ["free": "address":"integer"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is result
-mem/0: location 1002 is 1030
+mem/0: location 1002 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
-run/0: product 0 is 1031
-mem/0: storing 1031 in location 1004
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1004
 run/0: instruction init-channel/5
 run/0: {name: "free", value: 3, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
 run/0: ingredient 0 is 0
-mem/0: location 1004 is 1031
-mem/0: storing 0 in location 1031
+mem/0: location 1004 is 1032
+mem/0: storing 0 in location 1032
 run/0: instruction init-channel/6
 run/0: {name: "capacity", value: 4, type: 1, properties: ["capacity": "integer"]} <- next-ingredient 
 run/0: product 0 is 1
@@ -99,689 +99,689 @@ mem/0: storing 2 in location 1005
 run/0: instruction init-channel/8
 run/0: {name: "dest", value: 5, type: 2-2-5-1, properties: ["dest": "address":"address":"array":"location"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is result
-mem/0: location 1002 is 1030
+mem/0: location 1002 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
-run/0: product 0 is 1032
-mem/0: storing 1032 in location 1006
+run/0: address to copy is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1006
 run/0: instruction init-channel/9
 run/0: {name: "dest", value: 5, type: 2-2-5-1, properties: ["dest": "address":"address":"array":"location", "deref": ]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "capacity", value: 4, type: 1, properties: ["capacity": "integer"]}
 mem/0: location 1005 is 2
 mem/0: array size is 2
-mem/0: new alloc: 1033
-mem/0: location 1006 is 1032
-mem/0: storing 1033 in location 1032
+mem/0: new alloc: 1034
+mem/0: location 1006 is 1033
+mem/0: storing 1034 in location 1033
 run/0: instruction init-channel/10
 run/0: reply {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel"]}
-mem/0: location 1002 is 1030
-run/0: result 0 is 1030
-mem/0: storing 1030 in location 1
+mem/0: location 1002 is 1031
+run/0: result 0 is 1031
+mem/0: storing 1031 in location 1
 run/0: instruction test-channel-wrap/1
 run/0: {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- write {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]}, {name: "34", value: 34, type: 0, properties: ["34": "literal"]}
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: instruction write/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1035
+mem/0: new alloc: 1037
 run/0: instruction write/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1037
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1039
 run/0: instruction write/2
 run/0: {name: "val", value: 2, type: 1, properties: ["val": "location"]} <- next-ingredient 
 run/0: product 0 is 34
-mem/0: storing 34 in location 1038
+mem/0: storing 34 in location 1040
 run/0: instruction write/4
 run/0: {name: "full", value: 3, type: 3, properties: ["full": "boolean"]} <- channel-full? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1037 is 1030
+mem/0: location 1039 is 1031
 run/0: instruction channel-full?/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1065
+mem/0: new alloc: 1068
 run/0: instruction channel-full?/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1067
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1070
 run/0: instruction channel-full?/2
 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1067 is 1030
+mem/0: location 1070 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 0
+mem/0: location 1032 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1068
+mem/0: storing 0 in location 1071
 run/0: instruction channel-full?/3
 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- add {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is tmp
-mem/0: location 1068 is 0
+mem/0: location 1071 is 0
 run/0: ingredient 1 is 1
 run/0: product 0 is 1
-mem/0: storing 1 in location 1068
+mem/0: storing 1 in location 1071
 run/0: instruction channel-full?/5
 run/0: {name: "len", value: 3, type: 1, properties: ["len": "integer"]} <- channel-capacity {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1067 is 1030
+mem/0: location 1070 is 1031
 run/0: instruction channel-capacity/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1095
+mem/0: new alloc: 1099
 run/0: instruction channel-capacity/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1097
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1101
 run/0: instruction channel-capacity/2
 run/0: {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1097 is 1030
+mem/0: location 1101 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1098
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1102
 run/0: instruction channel-capacity/3
 run/0: {name: "result", value: 3, type: 1, properties: ["result": "integer"]} <- length {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location", "deref": ]}
-mem/0: location 1098 is 1033
-mem/0: storing 2 in location 1099
+mem/0: location 1102 is 1034
+mem/0: storing 2 in location 1103
 run/0: instruction channel-capacity/4
 run/0: reply {name: "result", value: 3, type: 1, properties: ["result": "integer"]}
-mem/0: location 1099 is 2
+mem/0: location 1103 is 2
 run/0: result 0 is 2
-mem/0: storing 2 in location 1069
+mem/0: storing 2 in location 1072
 run/0: instruction channel-full?/6
 run/0: {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "len", value: 3, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is tmp
-mem/0: location 1068 is 1
+mem/0: location 1071 is 1
 run/0: ingredient 1 is len
-mem/0: location 1069 is 2
+mem/0: location 1072 is 2
 run/0: product 0 is 0
-mem/0: storing 0 in location 1070
+mem/0: storing 0 in location 1073
 run/0: instruction channel-full?/7
 run/0: break-unless {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1070 is 0
+mem/0: location 1073 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 9
 run/0: instruction channel-full?/10
 run/0: {name: "full", value: 5, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1067 is 1030
+mem/0: location 1070 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
+run/0: address to copy is 1031
 run/0: its type is 1
-mem/0: location 1030 is 0
+mem/0: location 1031 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1071
+mem/0: storing 0 in location 1074
 run/0: instruction channel-full?/11
 run/0: {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 5, type: 1, properties: ["full": "integer"]}, {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1071 is 0
+mem/0: location 1074 is 0
 run/0: ingredient 1 is tmp
-mem/0: location 1068 is 1
+mem/0: location 1071 is 1
 run/0: product 0 is 0
-mem/0: storing 0 in location 1072
+mem/0: storing 0 in location 1075
 run/0: instruction channel-full?/12
 run/0: reply {name: "result", value: 6, type: 3, properties: ["result": "boolean"]}
-mem/0: location 1072 is 0
+mem/0: location 1075 is 0
 run/0: result 0 is 0
-mem/0: storing 0 in location 1039
+mem/0: storing 0 in location 1041
 run/0: instruction write/5
 run/0: break-unless {name: "full", value: 3, type: 3, properties: ["full": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]}
-mem/0: location 1039 is 0
+mem/0: location 1041 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 8
 run/0: instruction write/9
 run/0: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1037 is 1030
+mem/0: location 1039 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1041
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1043
 run/0: instruction write/10
 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1037 is 1030
+mem/0: location 1039 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
-run/0: product 0 is 1031
-mem/0: storing 1031 in location 1042
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1044
 run/0: instruction write/11
 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location"]} <- index-address {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
 run/0: ingredient 0 is circular-buffer
-mem/0: location 1041 is 1033
+mem/0: location 1043 is 1034
 run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
-mem/0: location 1042 is 1031
-mem/0: location 1031 is 0
-run/0: address to copy is 1034
-run/0: product 0 is 1034
-mem/0: storing 1034 in location 1043
+mem/0: location 1044 is 1032
+mem/0: location 1032 is 0
+run/0: address to copy is 1035
+run/0: product 0 is 1035
+mem/0: storing 1035 in location 1045
 run/0: instruction write/12
 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location", "deref": ]} <- copy {name: "val", value: 2, type: 1, properties: ["val": "location"]}
 run/0: ingredient 0 is val
-mem/0: location 1038 is 34
-mem/0: location 1043 is 1034
-mem/0: storing 34 in location 1034
+mem/0: location 1040 is 34
+mem/0: location 1045 is 1035
+mem/0: storing 34 in location 1035
 run/0: instruction write/13
 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- add {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is free
-mem/0: location 1042 is 1031
-mem/0: location 1031 is 0
+mem/0: location 1044 is 1032
+mem/0: location 1032 is 0
 run/0: ingredient 1 is 1
 run/0: product 0 is 1
-mem/0: location 1042 is 1031
-mem/0: storing 1 in location 1031
+mem/0: location 1044 is 1032
+mem/0: storing 1 in location 1032
 run/0: instruction write/15
 run/0: {name: "len", value: 8, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1041 is 1033
-mem/0: storing 2 in location 1044
+mem/0: location 1043 is 1034
+mem/0: storing 2 in location 1046
 run/0: instruction write/16
 run/0: {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "len", value: 8, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is free
-mem/0: location 1042 is 1031
-mem/0: location 1031 is 1
+mem/0: location 1044 is 1032
+mem/0: location 1032 is 1
 run/0: ingredient 1 is len
-mem/0: location 1044 is 2
+mem/0: location 1046 is 2
 run/0: product 0 is 0
-mem/0: storing 0 in location 1045
+mem/0: storing 0 in location 1047
 run/0: instruction write/17
 run/0: break-unless {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1045 is 0
+mem/0: location 1047 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 19
 run/0: instruction write/20
 run/0: reply {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]}
-mem/0: location 1037 is 1030
-run/0: result 0 is 1030
-mem/0: storing 1030 in location 1
+mem/0: location 1039 is 1031
+run/0: result 0 is 1031
+mem/0: storing 1031 in location 1
 run/0: instruction test-channel-wrap/2
 run/0: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}, {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- read {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]}
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: instruction read/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1125
+mem/0: new alloc: 1130
 run/0: instruction read/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1127
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1132
 run/0: instruction read/3
 run/0: {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]} <- channel-empty? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1127 is 1030
+mem/0: location 1132 is 1031
 run/0: instruction channel-empty?/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1155
+mem/0: new alloc: 1161
 run/0: instruction channel-empty?/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1157
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1163
 run/0: instruction channel-empty?/2
 run/0: {name: "full", value: 2, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1157 is 1030
+mem/0: location 1163 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
+run/0: address to copy is 1031
 run/0: its type is 1
-mem/0: location 1030 is 0
+mem/0: location 1031 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1158
+mem/0: storing 0 in location 1164
 run/0: instruction channel-empty?/3
 run/0: {name: "free", value: 3, type: 1, properties: ["free": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1157 is 1030
+mem/0: location 1163 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 1
+mem/0: location 1032 is 1
 run/0: product 0 is 1
-mem/0: storing 1 in location 1159
+mem/0: storing 1 in location 1165
 run/0: instruction channel-empty?/4
 run/0: {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 2, type: 1, properties: ["full": "integer"]}, {name: "free", value: 3, type: 1, properties: ["free": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1158 is 0
+mem/0: location 1164 is 0
 run/0: ingredient 1 is free
-mem/0: location 1159 is 1
+mem/0: location 1165 is 1
 run/0: product 0 is 0
-mem/0: storing 0 in location 1160
+mem/0: storing 0 in location 1166
 run/0: instruction channel-empty?/5
 run/0: reply {name: "result", value: 4, type: 3, properties: ["result": "boolean"]}
-mem/0: location 1160 is 0
+mem/0: location 1166 is 0
 run/0: result 0 is 0
-mem/0: storing 0 in location 1128
+mem/0: storing 0 in location 1133
 run/0: instruction read/4
 run/0: break-unless {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]}
-mem/0: location 1128 is 0
+mem/0: location 1133 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 7
 run/0: instruction read/8
 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1127 is 1030
+mem/0: location 1132 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1130
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1135
 run/0: instruction read/9
 run/0: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1127 is 1030
+mem/0: location 1132 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1131
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1136
 run/0: instruction read/10
 run/0: {name: "result", value: 6, type: 1, properties: ["result": "location"]} <- index {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
 run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1131 is 1033
+mem/0: location 1136 is 1034
 run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
-mem/0: location 1130 is 1030
-mem/0: location 1030 is 0
-run/0: address to copy is 1034
+mem/0: location 1135 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1035
 run/0: its type is 1
-mem/0: location 1034 is 34
+mem/0: location 1035 is 34
 run/0: product 0 is 34
-mem/0: storing 34 in location 1132
+mem/0: storing 34 in location 1137
 run/0: instruction read/11
 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- add {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is full
-mem/0: location 1130 is 1030
-mem/0: location 1030 is 0
+mem/0: location 1135 is 1031
+mem/0: location 1031 is 0
 run/0: ingredient 1 is 1
 run/0: product 0 is 1
-mem/0: location 1130 is 1030
-mem/0: storing 1 in location 1030
+mem/0: location 1135 is 1031
+mem/0: storing 1 in location 1031
 run/0: instruction read/13
 run/0: {name: "len", value: 7, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1131 is 1033
-mem/0: storing 2 in location 1133
+mem/0: location 1136 is 1034
+mem/0: storing 2 in location 1138
 run/0: instruction read/14
 run/0: {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "len", value: 7, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1130 is 1030
-mem/0: location 1030 is 1
+mem/0: location 1135 is 1031
+mem/0: location 1031 is 1
 run/0: ingredient 1 is len
-mem/0: location 1133 is 2
+mem/0: location 1138 is 2
 run/0: product 0 is 0
-mem/0: storing 0 in location 1134
+mem/0: storing 0 in location 1139
 run/0: instruction read/15
 run/0: break-unless {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1134 is 0
+mem/0: location 1139 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 17
 run/0: instruction read/18
 run/0: reply {name: "result", value: 6, type: 1, properties: ["result": "location"]}, {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]}
-mem/0: location 1132 is 34
-mem/0: location 1127 is 1030
+mem/0: location 1137 is 34
+mem/0: location 1132 is 1031
 run/0: result 0 is 34
-run/0: result 1 is 1030
-mem/0: storing 1030 in location 1
+run/0: result 1 is 1031
+mem/0: storing 1031 in location 1
 run/0: instruction test-channel-wrap/3
 run/0: {name: "2", value: 2, type: 1, properties: ["2": "integer"]} <- get {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is 1
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 1
+mem/0: location 1032 is 1
 run/0: product 0 is 1
 mem/0: storing 1 in location 2
 run/0: instruction test-channel-wrap/4
 run/0: {name: "3", value: 3, type: 1, properties: ["3": "integer"]} <- get {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is 1
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 1
+mem/0: location 1032 is 1
 run/0: product 0 is 1
 mem/0: storing 1 in location 3
 run/0: instruction test-channel-wrap/5
 run/0: {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- write {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]}, {name: "34", value: 34, type: 0, properties: ["34": "literal"]}
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: instruction write/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1185
+mem/0: new alloc: 1192
 run/0: instruction write/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1187
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1194
 run/0: instruction write/2
 run/0: {name: "val", value: 2, type: 1, properties: ["val": "location"]} <- next-ingredient 
 run/0: product 0 is 34
-mem/0: storing 34 in location 1188
+mem/0: storing 34 in location 1195
 run/0: instruction write/4
 run/0: {name: "full", value: 3, type: 3, properties: ["full": "boolean"]} <- channel-full? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1187 is 1030
+mem/0: location 1194 is 1031
 run/0: instruction channel-full?/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1215
+mem/0: new alloc: 1223
 run/0: instruction channel-full?/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1217
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1225
 run/0: instruction channel-full?/2
 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1217 is 1030
+mem/0: location 1225 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 1
+mem/0: location 1032 is 1
 run/0: product 0 is 1
-mem/0: storing 1 in location 1218
+mem/0: storing 1 in location 1226
 run/0: instruction channel-full?/3
 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- add {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is tmp
-mem/0: location 1218 is 1
+mem/0: location 1226 is 1
 run/0: ingredient 1 is 1
 run/0: product 0 is 2
-mem/0: storing 2 in location 1218
+mem/0: storing 2 in location 1226
 run/0: instruction channel-full?/5
 run/0: {name: "len", value: 3, type: 1, properties: ["len": "integer"]} <- channel-capacity {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1217 is 1030
+mem/0: location 1225 is 1031
 run/0: instruction channel-capacity/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1245
+mem/0: new alloc: 1254
 run/0: instruction channel-capacity/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1247
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1256
 run/0: instruction channel-capacity/2
 run/0: {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1247 is 1030
+mem/0: location 1256 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1248
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1257
 run/0: instruction channel-capacity/3
 run/0: {name: "result", value: 3, type: 1, properties: ["result": "integer"]} <- length {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location", "deref": ]}
-mem/0: location 1248 is 1033
-mem/0: storing 2 in location 1249
+mem/0: location 1257 is 1034
+mem/0: storing 2 in location 1258
 run/0: instruction channel-capacity/4
 run/0: reply {name: "result", value: 3, type: 1, properties: ["result": "integer"]}
-mem/0: location 1249 is 2
+mem/0: location 1258 is 2
 run/0: result 0 is 2
-mem/0: storing 2 in location 1219
+mem/0: storing 2 in location 1227
 run/0: instruction channel-full?/6
 run/0: {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "len", value: 3, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is tmp
-mem/0: location 1218 is 2
+mem/0: location 1226 is 2
 run/0: ingredient 1 is len
-mem/0: location 1219 is 2
+mem/0: location 1227 is 2
 run/0: product 0 is 1
-mem/0: storing 1 in location 1220
+mem/0: storing 1 in location 1228
 run/0: instruction channel-full?/7
 run/0: break-unless {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1220 is 1
+mem/0: location 1228 is 1
 run/0: ingredient 0 is 1
 run/0: jump-unless fell through
 run/0: instruction channel-full?/8
 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
 run/0: ingredient 0 is 0
-mem/0: storing 0 in location 1218
+mem/0: storing 0 in location 1226
 run/0: instruction channel-full?/10
 run/0: {name: "full", value: 5, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1217 is 1030
+mem/0: location 1225 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
+run/0: address to copy is 1031
 run/0: its type is 1
-mem/0: location 1030 is 1
+mem/0: location 1031 is 1
 run/0: product 0 is 1
-mem/0: storing 1 in location 1221
+mem/0: storing 1 in location 1229
 run/0: instruction channel-full?/11
 run/0: {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 5, type: 1, properties: ["full": "integer"]}, {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1221 is 1
+mem/0: location 1229 is 1
 run/0: ingredient 1 is tmp
-mem/0: location 1218 is 0
+mem/0: location 1226 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1222
+mem/0: storing 0 in location 1230
 run/0: instruction channel-full?/12
 run/0: reply {name: "result", value: 6, type: 3, properties: ["result": "boolean"]}
-mem/0: location 1222 is 0
+mem/0: location 1230 is 0
 run/0: result 0 is 0
-mem/0: storing 0 in location 1189
+mem/0: storing 0 in location 1196
 run/0: instruction write/5
 run/0: break-unless {name: "full", value: 3, type: 3, properties: ["full": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]}
-mem/0: location 1189 is 0
+mem/0: location 1196 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 8
 run/0: instruction write/9
 run/0: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1187 is 1030
+mem/0: location 1194 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1191
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1198
 run/0: instruction write/10
 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1187 is 1030
+mem/0: location 1194 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
-run/0: product 0 is 1031
-mem/0: storing 1031 in location 1192
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1199
 run/0: instruction write/11
 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location"]} <- index-address {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
 run/0: ingredient 0 is circular-buffer
-mem/0: location 1191 is 1033
+mem/0: location 1198 is 1034
 run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
-mem/0: location 1192 is 1031
-mem/0: location 1031 is 1
-run/0: address to copy is 1035
-run/0: product 0 is 1035
-mem/0: storing 1035 in location 1193
+mem/0: location 1199 is 1032
+mem/0: location 1032 is 1
+run/0: address to copy is 1036
+run/0: product 0 is 1036
+mem/0: storing 1036 in location 1200
 run/0: instruction write/12
 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location", "deref": ]} <- copy {name: "val", value: 2, type: 1, properties: ["val": "location"]}
 run/0: ingredient 0 is val
-mem/0: location 1188 is 34
-mem/0: location 1193 is 1035
-mem/0: storing 34 in location 1035
+mem/0: location 1195 is 34
+mem/0: location 1200 is 1036
+mem/0: storing 34 in location 1036
 run/0: instruction write/13
 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- add {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is free
-mem/0: location 1192 is 1031
-mem/0: location 1031 is 1
+mem/0: location 1199 is 1032
+mem/0: location 1032 is 1
 run/0: ingredient 1 is 1
 run/0: product 0 is 2
-mem/0: location 1192 is 1031
-mem/0: storing 2 in location 1031
+mem/0: location 1199 is 1032
+mem/0: storing 2 in location 1032
 run/0: instruction write/15
 run/0: {name: "len", value: 8, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1191 is 1033
-mem/0: storing 2 in location 1194
+mem/0: location 1198 is 1034
+mem/0: storing 2 in location 1201
 run/0: instruction write/16
 run/0: {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "len", value: 8, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is free
-mem/0: location 1192 is 1031
-mem/0: location 1031 is 2
+mem/0: location 1199 is 1032
+mem/0: location 1032 is 2
 run/0: ingredient 1 is len
-mem/0: location 1194 is 2
+mem/0: location 1201 is 2
 run/0: product 0 is 1
-mem/0: storing 1 in location 1195
+mem/0: storing 1 in location 1202
 run/0: instruction write/17
 run/0: break-unless {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1195 is 1
+mem/0: location 1202 is 1
 run/0: ingredient 0 is 1
 run/0: jump-unless fell through
 run/0: instruction write/18
 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
 run/0: ingredient 0 is 0
-mem/0: location 1192 is 1031
-mem/0: storing 0 in location 1031
+mem/0: location 1199 is 1032
+mem/0: storing 0 in location 1032
 run/0: instruction write/20
 run/0: reply {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]}
-mem/0: location 1187 is 1030
-run/0: result 0 is 1030
-mem/0: storing 1030 in location 1
+mem/0: location 1194 is 1031
+run/0: result 0 is 1031
+mem/0: storing 1031 in location 1
 run/0: instruction test-channel-wrap/6
 run/0: {name: "4", value: 4, type: 1, properties: ["4": "integer"]} <- get {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is 1
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 0
+mem/0: location 1032 is 0
 run/0: product 0 is 0
 mem/0: storing 0 in location 4
 run/0: instruction test-channel-wrap/7
 run/0: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}, {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- read {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]}
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: instruction read/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1275
+mem/0: new alloc: 1285
 run/0: instruction read/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1277
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1287
 run/0: instruction read/3
 run/0: {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]} <- channel-empty? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]}
-mem/0: location 1277 is 1030
+mem/0: location 1287 is 1031
 run/0: instruction channel-empty?/0
 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]}
 mem/0: array size is 30
-mem/0: new alloc: 1305
+mem/0: new alloc: 1316
 run/0: instruction channel-empty?/1
 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient 
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1307
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1318
 run/0: instruction channel-empty?/2
 run/0: {name: "full", value: 2, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1307 is 1030
+mem/0: location 1318 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
+run/0: address to copy is 1031
 run/0: its type is 1
-mem/0: location 1030 is 1
+mem/0: location 1031 is 1
 run/0: product 0 is 1
-mem/0: storing 1 in location 1308
+mem/0: storing 1 in location 1319
 run/0: instruction channel-empty?/3
 run/0: {name: "free", value: 3, type: 1, properties: ["free": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1307 is 1030
+mem/0: location 1318 is 1031
 run/0: ingredient 1 is first-free
-run/0: address to copy is 1031
+run/0: address to copy is 1032
 run/0: its type is 1
-mem/0: location 1031 is 0
+mem/0: location 1032 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1309
+mem/0: storing 0 in location 1320
 run/0: instruction channel-empty?/4
 run/0: {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 2, type: 1, properties: ["full": "integer"]}, {name: "free", value: 3, type: 1, properties: ["free": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1308 is 1
+mem/0: location 1319 is 1
 run/0: ingredient 1 is free
-mem/0: location 1309 is 0
+mem/0: location 1320 is 0
 run/0: product 0 is 0
-mem/0: storing 0 in location 1310
+mem/0: storing 0 in location 1321
 run/0: instruction channel-empty?/5
 run/0: reply {name: "result", value: 4, type: 3, properties: ["result": "boolean"]}
-mem/0: location 1310 is 0
+mem/0: location 1321 is 0
 run/0: result 0 is 0
-mem/0: storing 0 in location 1278
+mem/0: storing 0 in location 1288
 run/0: instruction read/4
 run/0: break-unless {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]}
-mem/0: location 1278 is 0
+mem/0: location 1288 is 0
 run/0: ingredient 0 is 0
 run/0: ingredient 1 is 
 run/0: jumping to instruction 7
 run/0: instruction read/8
 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1277 is 1030
+mem/0: location 1287 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
-run/0: product 0 is 1030
-mem/0: storing 1030 in location 1280
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1290
 run/0: instruction read/9
 run/0: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]}
 run/0: ingredient 0 is chan
-mem/0: location 1277 is 1030
+mem/0: location 1287 is 1031
 run/0: ingredient 1 is data
-run/0: address to copy is 1032
+run/0: address to copy is 1033
 run/0: its type is 2
-mem/0: location 1032 is 1033
-run/0: product 0 is 1033
-mem/0: storing 1033 in location 1281
+mem/0: location 1033 is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1291
 run/0: instruction read/10
 run/0: {name: "result", value: 6, type: 1, properties: ["result": "location"]} <- index {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
 run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1281 is 1033
+mem/0: location 1291 is 1034
 run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
-mem/0: location 1280 is 1030
-mem/0: location 1030 is 1
-run/0: address to copy is 1035
+mem/0: location 1290 is 1031
+mem/0: location 1031 is 1
+run/0: address to copy is 1036
 run/0: its type is 1
-mem/0: location 1035 is 34
+mem/0: location 1036 is 34
 run/0: product 0 is 34
-mem/0: storing 34 in location 1282
+mem/0: storing 34 in location 1292
 run/0: instruction read/11
 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- add {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
 run/0: ingredient 0 is full
-mem/0: location 1280 is 1030
-mem/0: location 1030 is 1
+mem/0: location 1290 is 1031
+mem/0: location 1031 is 1
 run/0: ingredient 1 is 1
 run/0: product 0 is 2
-mem/0: location 1280 is 1030
-mem/0: storing 2 in location 1030
+mem/0: location 1290 is 1031
+mem/0: storing 2 in location 1031
 run/0: instruction read/13
 run/0: {name: "len", value: 7, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
-mem/0: location 1281 is 1033
-mem/0: storing 2 in location 1283
+mem/0: location 1291 is 1034
+mem/0: storing 2 in location 1293
 run/0: instruction read/14
 run/0: {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "len", value: 7, type: 1, properties: ["len": "integer"]}
 run/0: ingredient 0 is full
-mem/0: location 1280 is 1030
-mem/0: location 1030 is 2
+mem/0: location 1290 is 1031
+mem/0: location 1031 is 2
 run/0: ingredient 1 is len
-mem/0: location 1283 is 2
+mem/0: location 1293 is 2
 run/0: product 0 is 1
-mem/0: storing 1 in location 1284
+mem/0: storing 1 in location 1294
 run/0: instruction read/15
 run/0: break-unless {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
-mem/0: location 1284 is 1
+mem/0: location 1294 is 1
 run/0: ingredient 0 is 1
 run/0: jump-unless fell through
 run/0: instruction read/16
 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
 run/0: ingredient 0 is 0
-mem/0: location 1280 is 1030
-mem/0: storing 0 in location 1030
+mem/0: location 1290 is 1031
+mem/0: storing 0 in location 1031
 run/0: instruction read/18
 run/0: reply {name: "result", value: 6, type: 1, properties: ["result": "location"]}, {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]}
-mem/0: location 1282 is 34
-mem/0: location 1277 is 1030
+mem/0: location 1292 is 34
+mem/0: location 1287 is 1031
 run/0: result 0 is 34
-run/0: result 1 is 1030
-mem/0: storing 1030 in location 1
+run/0: result 1 is 1031
+mem/0: storing 1031 in location 1
 run/0: instruction test-channel-wrap/8
 run/0: {name: "5", value: 5, type: 1, properties: ["5": "integer"]} <- get {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]}
 run/0: ingredient 0 is 1
-mem/0: location 1 is 1030
+mem/0: location 1 is 1031
 run/0: ingredient 1 is first-full
-run/0: address to copy is 1030
+run/0: address to copy is 1031
 run/0: its type is 1
-mem/0: location 1030 is 0
+mem/0: location 1031 is 0
 run/0: product 0 is 0
 mem/0: storing 0 in location 5