1248 - syntax for using screens in scenarios

Still ugly as hell.

1 files changed, 886 insertions, 0 deletions

diff --git a/cpp/.traces/screen_in_scenario_error b/cpp/.traces/screen_in_scenario_error
new file mode 100644
index 00000000..570e2cc5
--- /dev/null
+++ b/cpp/.traces/screen_in_scenario_error
@@ -0,0 +1,886 @@
+parse/0: instruction: assume-screen
+parse/0:   ingredient: {name: "5", value: 0, type: 0, properties: ["5": "literal", "width": ]}
+parse/0:   ingredient: {name: "3", value: 0, type: 0, properties: ["3": "literal", "height": ]}
+parse/0: instruction: run
+parse/0:   ingredient: {name: "
+    screen:address <- print-character screen:address, 97:literal  # 'a'
+  ", value: 0, type: 0, properties: ["
+    screen:address <- print-character screen:address, 97:literal  # 'a'
+  ": "literal-string"]}
+parse/0: instruction: screen-should-contain
+parse/0:   ingredient: {name: "
+  #  01234
+    .b    .
+    .     .
+    .     .
+  ", value: 0, type: 0, properties: ["
+  #  01234
+    .b    .
+    .     .
+    .     .
+  ": "literal-string"]}
+after-brace/0: recipe screen-in-scenario-error
+after-brace/0: assume-screen ...
+after-brace/0: run ...
+after-brace/0: screen-should-contain ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: screen-in-scenario-error
+run/0: instruction screen-in-scenario-error/0
+run/0: {name: "screen", value: 999, type: 2, properties: ["screen": "address"]} <- assume-screen/115 {name: "5", value: 5, type: 0, properties: ["5": "literal", "width": ]}, {name: "3", value: 3, type: 0, properties: ["3": "literal", "height": ]}
+run/0: instruction init-fake-screen/0
+run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new/42 {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal", "capacity": ]}
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-fake-screen/1
+run/0: {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen"]} <- new/42 {name: "screen", value: 11, type: 0, properties: ["screen": "type"]}
+mem/0: new alloc: 1031
+mem/0: storing 1031 in location 1002
+run/0: instruction init-fake-screen/2
+run/0: {name: "width", value: 2, type: 2-1, properties: ["width": "address":"integer"]} <- get-address/25 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen", "deref": ]}, {name: "num-columns", value: 1, type: 0, properties: ["num-columns": "offset"]}
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1031
+run/0: ingredient 1 is num-columns
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1003
+run/0: instruction init-fake-screen/3
+run/0: {name: "width", value: 2, type: 2-1, properties: ["width": "address":"integer", "deref": ]} <- next-ingredient/30 
+run/0: product 0 is 5
+mem/0: location 1003 is 1032
+mem/0: storing 5 in location 1032
+run/0: instruction init-fake-screen/4
+run/0: {name: "height", value: 3, type: 2-1, properties: ["height": "address":"integer"]} <- get-address/25 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen", "deref": ]}, {name: "num-rows", value: 0, type: 0, properties: ["num-rows": "offset"]}
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1031
+run/0: ingredient 1 is num-rows
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-fake-screen/5
+run/0: {name: "height", value: 3, type: 2-1, properties: ["height": "address":"integer", "deref": ]} <- next-ingredient/30 
+run/0: product 0 is 3
+mem/0: location 1004 is 1031
+mem/0: storing 3 in location 1031
+run/0: instruction init-fake-screen/6
+run/0: {name: "row", value: 4, type: 2-1, properties: ["row": "address":"integer"]} <- get-address/25 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen", "deref": ]}, {name: "cursor-row", value: 2, type: 0, properties: ["cursor-row": "offset"]}
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1031
+run/0: ingredient 1 is cursor-row
+run/0: address to copy is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1005
+run/0: instruction init-fake-screen/7
+run/0: {name: "row", value: 4, type: 2-1, properties: ["row": "address":"integer", "deref": ]} <- copy/1 {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
+run/0: ingredient 0 is 0
+mem/0: location 1005 is 1033
+mem/0: storing 0 in location 1033
+run/0: instruction init-fake-screen/8
+run/0: {name: "column", value: 5, type: 2-1, properties: ["column": "address":"integer"]} <- get-address/25 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen", "deref": ]}, {name: "cursor-column", value: 3, type: 0, properties: ["cursor-column": "offset"]}
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1031
+run/0: ingredient 1 is cursor-column
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1006
+run/0: instruction init-fake-screen/9
+run/0: {name: "column", value: 5, type: 2-1, properties: ["column": "address":"integer", "deref": ]} <- copy/1 {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
+run/0: ingredient 0 is 0
+mem/0: location 1006 is 1034
+mem/0: storing 0 in location 1034
+run/0: instruction init-fake-screen/10
+run/0: {name: "bufsize", value: 6, type: 1, properties: ["bufsize": "integer"]} <- multiply/4 {name: "width", value: 2, type: 2-1, properties: ["width": "address":"integer", "deref": ]}, {name: "height", value: 3, type: 2-1, properties: ["height": "address":"integer", "deref": ]}
+run/0: ingredient 0 is width
+mem/0: location 1003 is 1032
+mem/0: location 1032 is 5
+run/0: ingredient 1 is height
+mem/0: location 1004 is 1031
+mem/0: location 1031 is 3
+run/0: ingredient 1 is 3
+run/0: product 0 is 15
+mem/0: storing 15 in location 1007
+run/0: instruction init-fake-screen/11
+run/0: {name: "buf", value: 7, type: 2-2-5-4, properties: ["buf": "address":"address":"array":"character"]} <- get-address/25 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen", "deref": ]}, {name: "data", value: 4, type: 0, properties: ["data": "offset"]}
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1031
+run/0: ingredient 1 is data
+run/0: address to copy is 1035
+run/0: product 0 is 1035
+mem/0: storing 1035 in location 1008
+run/0: instruction init-fake-screen/12
+run/0: {name: "buf", value: 7, type: 2-2-5-4, properties: ["buf": "address":"address":"array":"character", "deref": ]} <- new/42 {name: "character", value: 0, type: 0, properties: ["character": "literal"]}, {name: "bufsize", value: 6, type: 1, properties: ["bufsize": "integer"]}
+mem/0: location 1007 is 15
+mem/0: array size is 15
+mem/0: new alloc: 1036
+mem/0: location 1008 is 1035
+mem/0: storing 1036 in location 1035
+run/0: instruction init-fake-screen/13
+run/0: clear-screen/116 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen"]}
+mem/0: location 1002 is 1031
+run/0: instruction clear-screen/0
+run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new/42 {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: 1052
+run/0: instruction clear-screen/1
+run/0: {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen"]} <- next-ingredient/30 
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1054
+run/0: instruction clear-screen/3
+run/0: break-unless/12 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen"]}, {name: "", value: 12, type: , properties: ["": ]}
+mem/0: location 1054 is 1031
+run/0: ingredient 0 is 1031
+run/0: jump-unless fell through
+run/0: instruction clear-screen/4
+run/0: {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character"]} <- get/24 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "deref": ]}, {name: "data", value: 4, type: 0, properties: ["data": "offset"]}
+run/0: ingredient 0 is x
+mem/0: location 1054 is 1031
+run/0: ingredient 1 is data
+run/0: address to copy is 1035
+run/0: its type is 2
+mem/0: location 1035 is 1036
+run/0: product 0 is 1036
+mem/0: storing 1036 in location 1055
+run/0: instruction clear-screen/5
+run/0: {name: "max", value: 3, type: 1, properties: ["max": "integer"]} <- length/28 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}
+mem/0: location 1055 is 1036
+mem/0: storing 15 in location 1056
+run/0: instruction clear-screen/6
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- copy/1 {name: "0", value: 0, type: 0, properties: ["0": "literal"]}
+run/0: ingredient 0 is 0
+mem/0: storing 0 in location 1057
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 0
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 0
+run/0: address to copy is 1037
+run/0: product 0 is 1037
+mem/0: storing 1037 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1037
+mem/0: storing 0 in location 1037
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 1
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 1
+run/0: address to copy is 1038
+run/0: product 0 is 1038
+mem/0: storing 1038 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1038
+mem/0: storing 0 in location 1038
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 2
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 2
+run/0: address to copy is 1039
+run/0: product 0 is 1039
+mem/0: storing 1039 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1039
+mem/0: storing 0 in location 1039
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 2
+run/0: ingredient 1 is 1
+run/0: product 0 is 3
+mem/0: storing 3 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 3
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 3
+run/0: address to copy is 1040
+run/0: product 0 is 1040
+mem/0: storing 1040 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1040
+mem/0: storing 0 in location 1040
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 3
+run/0: ingredient 1 is 1
+run/0: product 0 is 4
+mem/0: storing 4 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 4
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 4
+run/0: address to copy is 1041
+run/0: product 0 is 1041
+mem/0: storing 1041 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1041
+mem/0: storing 0 in location 1041
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 4
+run/0: ingredient 1 is 1
+run/0: product 0 is 5
+mem/0: storing 5 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 5
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 5
+run/0: address to copy is 1042
+run/0: product 0 is 1042
+mem/0: storing 1042 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1042
+mem/0: storing 0 in location 1042
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 5
+run/0: ingredient 1 is 1
+run/0: product 0 is 6
+mem/0: storing 6 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 6
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 6
+run/0: address to copy is 1043
+run/0: product 0 is 1043
+mem/0: storing 1043 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1043
+mem/0: storing 0 in location 1043
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 6
+run/0: ingredient 1 is 1
+run/0: product 0 is 7
+mem/0: storing 7 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 7
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 7
+run/0: address to copy is 1044
+run/0: product 0 is 1044
+mem/0: storing 1044 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1044
+mem/0: storing 0 in location 1044
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 7
+run/0: ingredient 1 is 1
+run/0: product 0 is 8
+mem/0: storing 8 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 8
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 8
+run/0: address to copy is 1045
+run/0: product 0 is 1045
+mem/0: storing 1045 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1045
+mem/0: storing 0 in location 1045
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 8
+run/0: ingredient 1 is 1
+run/0: product 0 is 9
+mem/0: storing 9 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 9
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 9
+run/0: address to copy is 1046
+run/0: product 0 is 1046
+mem/0: storing 1046 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1046
+mem/0: storing 0 in location 1046
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 9
+run/0: ingredient 1 is 1
+run/0: product 0 is 10
+mem/0: storing 10 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 10
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 10
+run/0: address to copy is 1047
+run/0: product 0 is 1047
+mem/0: storing 1047 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1047
+mem/0: storing 0 in location 1047
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 10
+run/0: ingredient 1 is 1
+run/0: product 0 is 11
+mem/0: storing 11 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 11
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 11
+run/0: address to copy is 1048
+run/0: product 0 is 1048
+mem/0: storing 1048 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1048
+mem/0: storing 0 in location 1048
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 11
+run/0: ingredient 1 is 1
+run/0: product 0 is 12
+mem/0: storing 12 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 12
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 12
+run/0: address to copy is 1049
+run/0: product 0 is 1049
+mem/0: storing 1049 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1049
+mem/0: storing 0 in location 1049
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 12
+run/0: ingredient 1 is 1
+run/0: product 0 is 13
+mem/0: storing 13 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 13
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 13
+run/0: address to copy is 1050
+run/0: product 0 is 1050
+mem/0: storing 1050 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1050
+mem/0: storing 0 in location 1050
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 13
+run/0: ingredient 1 is 1
+run/0: product 0 is 14
+mem/0: storing 14 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 14
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 0
+mem/0: storing 0 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction clear-screen/10
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character"]} <- index-address/27 {name: "buf", value: 2, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1055 is 1036
+run/0: ingredient 1 is {name: "i", value: 4, type: 1, properties: ["i": "integer"]}
+mem/0: location 1057 is 14
+run/0: address to copy is 1051
+run/0: product 0 is 1051
+mem/0: storing 1051 in location 1059
+run/0: instruction clear-screen/11
+run/0: {name: "c", value: 6, type: 2-4, properties: ["c": "address":"character", "deref": ]} <- copy/1 {name: " ", value: 0, type: 0, properties: [" ": "literal-string"]}
+run/0: ingredient 0 is  
+mem/0: location 1059 is 1051
+mem/0: storing 0 in location 1051
+run/0: instruction clear-screen/12
+run/0: {name: "i", value: 4, type: 1, properties: ["i": "integer"]} <- add/2 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 14
+run/0: ingredient 1 is 1
+run/0: product 0 is 15
+mem/0: storing 15 in location 1057
+run/0: instruction clear-screen/13
+run/0: loop/10 {name: "", value: -6, type: , properties: ["": ]}
+run/0: ingredient 0 is -6
+run/0: jumping to instruction 8
+run/0: instruction clear-screen/8
+run/0: {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]} <- greater-or-equal/16 {name: "i", value: 4, type: 1, properties: ["i": "integer"]}, {name: "max", value: 3, type: 1, properties: ["max": "integer"]}
+run/0: ingredient 0 is i
+mem/0: location 1057 is 15
+run/0: ingredient 1 is max
+mem/0: location 1056 is 15
+run/0: product 0 is 1
+mem/0: storing 1 in location 1058
+run/0: instruction clear-screen/9
+run/0: break-if/11 {name: "done?", value: 5, type: 3, properties: ["done?": "boolean"]}, {name: "", value: 4, type: , properties: ["": ]}
+mem/0: location 1058 is 1
+run/0: ingredient 0 is 1
+run/0: ingredient 1 is 
+run/0: jumping to instruction 14
+run/0: instruction clear-screen/15
+run/0: reply/33 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "same-as-ingredient": "0"]}
+mem/0: location 1054 is 1031
+run/0: instruction init-fake-screen/14
+run/0: reply/33 {name: "result", value: 1, type: 2-11, properties: ["result": "address":"screen"]}
+mem/0: location 1002 is 1031
+run/0: result 0 is 1031
+mem/0: storing 1031 in location 999
+run/0: instruction screen-in-scenario-error/1
+run/0: run/43 {name: "
+    screen:address <- print-character screen:address, 97:literal  # 'a'
+  ", value: 0, type: 0, properties: ["
+    screen:address <- print-character screen:address, 97:literal  # 'a'
+  ": "literal-string"]}
+parse/0: instruction: print-character
+parse/0:   ingredient: {name: "screen", value: 0, type: 2, properties: ["screen": "address"]}
+parse/0:   ingredient: {name: "97", value: 0, type: 0, properties: ["97": "literal"]}
+parse/0:   product: {name: "screen", value: 0, type: 2, properties: ["screen": "address"]}
+after-brace/0: recipe run1001
+after-brace/0: print-character ...
+run/0: instruction run1001/0
+run/0: {name: "screen", value: 999, type: 2, properties: ["screen": "address"]} <- print-character/117 {name: "screen", value: 999, type: 2, properties: ["screen": "address"]}, {name: "97", value: 97, type: 0, properties: ["97": "literal"]}
+mem/0: location 999 is 1031
+run/0: instruction print-character/0
+run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new/42 {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: 1083
+run/0: instruction print-character/1
+run/0: {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen"]} <- next-ingredient/30 
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1085
+run/0: instruction print-character/2
+run/0: {name: "c", value: 2, type: 4, properties: ["c": "character"]} <- next-ingredient/30 
+run/0: product 0 is 97
+mem/0: storing 97 in location 1086
+run/0: instruction print-character/4
+run/0: break-unless/12 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen"]}, {name: "", value: 14, type: , properties: ["": ]}
+mem/0: location 1085 is 1031
+run/0: ingredient 0 is 1031
+run/0: jump-unless fell through
+run/0: instruction print-character/5
+run/0: {name: "row", value: 3, type: 2-1, properties: ["row": "address":"integer"]} <- get-address/25 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "deref": ]}, {name: "cursor-row", value: 2, type: 0, properties: ["cursor-row": "offset"]}
+run/0: ingredient 0 is x
+mem/0: location 1085 is 1031
+run/0: ingredient 1 is cursor-row
+run/0: address to copy is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1087
+run/0: instruction print-character/6
+run/0: {name: "column", value: 4, type: 2-1, properties: ["column": "address":"integer"]} <- get-address/25 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "deref": ]}, {name: "cursor-column", value: 3, type: 0, properties: ["cursor-column": "offset"]}
+run/0: ingredient 0 is x
+mem/0: location 1085 is 1031
+run/0: ingredient 1 is cursor-column
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1088
+run/0: instruction print-character/7
+run/0: {name: "width", value: 5, type: 1, properties: ["width": "integer"]} <- get/24 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "deref": ]}, {name: "num-columns", value: 1, type: 0, properties: ["num-columns": "offset"]}
+run/0: ingredient 0 is x
+mem/0: location 1085 is 1031
+run/0: ingredient 1 is num-columns
+run/0: address to copy is 1032
+run/0: its type is 1
+mem/0: location 1032 is 5
+run/0: product 0 is 5
+mem/0: storing 5 in location 1089
+run/0: instruction print-character/8
+run/0: {name: "index", value: 6, type: 1, properties: ["index": "integer"]} <- multiply/4 {name: "row", value: 3, type: 2-1, properties: ["row": "address":"integer", "deref": ]}, {name: "width", value: 5, type: 1, properties: ["width": "integer"]}
+run/0: ingredient 0 is row
+mem/0: location 1087 is 1033
+mem/0: location 1033 is 0
+run/0: ingredient 1 is width
+mem/0: location 1089 is 5
+run/0: ingredient 1 is 5
+run/0: product 0 is 0
+mem/0: storing 0 in location 1090
+run/0: instruction print-character/9
+run/0: {name: "index", value: 6, type: 1, properties: ["index": "integer"]} <- add/2 {name: "index", value: 6, type: 1, properties: ["index": "integer"]}, {name: "column", value: 4, type: 2-1, properties: ["column": "address":"integer", "deref": ]}
+run/0: ingredient 0 is index
+mem/0: location 1090 is 0
+run/0: ingredient 1 is column
+mem/0: location 1088 is 1034
+mem/0: location 1034 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1090
+run/0: instruction print-character/10
+run/0: {name: "buf", value: 7, type: 2-5-4, properties: ["buf": "address":"array":"character"]} <- get/24 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "deref": ]}, {name: "data", value: 4, type: 0, properties: ["data": "offset"]}
+run/0: ingredient 0 is x
+mem/0: location 1085 is 1031
+run/0: ingredient 1 is data
+run/0: address to copy is 1035
+run/0: its type is 2
+mem/0: location 1035 is 1036
+run/0: product 0 is 1036
+mem/0: storing 1036 in location 1091
+run/0: instruction print-character/11
+run/0: {name: "cursor", value: 8, type: 2-4, properties: ["cursor": "address":"character"]} <- index-address/27 {name: "buf", value: 7, type: 2-5-4, properties: ["buf": "address":"array":"character", "deref": ]}, {name: "index", value: 6, type: 1, properties: ["index": "integer"]}
+run/0: ingredient 0 is buf
+mem/0: location 1091 is 1036
+run/0: ingredient 1 is {name: "index", value: 6, type: 1, properties: ["index": "integer"]}
+mem/0: location 1090 is 0
+run/0: address to copy is 1037
+run/0: product 0 is 1037
+mem/0: storing 1037 in location 1092
+run/0: instruction print-character/12
+run/0: {name: "cursor", value: 8, type: 2-4, properties: ["cursor": "address":"character", "deref": ]} <- copy/1 {name: "c", value: 2, type: 4, properties: ["c": "character"]}
+run/0: ingredient 0 is c
+mem/0: location 1086 is 97
+mem/0: location 1092 is 1037
+mem/0: storing 97 in location 1037
+run/0: instruction print-character/14
+run/0: {name: "at-right?", value: 9, type: 3, properties: ["at-right?": "boolean"]} <- equal/13 {name: "column", value: 4, type: 2-1, properties: ["column": "address":"integer", "deref": ]}, {name: "width", value: 5, type: 1, properties: ["width": "integer"]}
+run/0: ingredient 0 is column
+mem/0: location 1088 is 1034
+mem/0: location 1034 is 0
+run/0: ingredient 1 is width
+mem/0: location 1089 is 5
+run/0: product 0 is 0
+mem/0: storing 0 in location 1093
+run/0: instruction print-character/15
+run/0: break-if/11 {name: "at-right?", value: 9, type: 3, properties: ["at-right?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]}
+mem/0: location 1093 is 0
+run/0: ingredient 0 is 0
+run/0: jump-if fell through
+run/0: instruction print-character/16
+run/0: {name: "column", value: 4, type: 2-1, properties: ["column": "address":"integer", "deref": ]} <- add/2 {name: "column", value: 4, type: 2-1, properties: ["column": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]}
+run/0: ingredient 0 is column
+mem/0: location 1088 is 1034
+mem/0: location 1034 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1088 is 1034
+mem/0: storing 1 in location 1034
+run/0: instruction print-character/18
+run/0: reply/33 {name: "x", value: 1, type: 2-11, properties: ["x": "address":"screen", "same-as-ingredient": "0"]}
+mem/0: location 1085 is 1031
+run/0: result 0 is 1031
+mem/0: storing 1031 in location 999
+run/0: instruction screen-in-scenario-error/2
+run/0: screen-should-contain/59 {name: "
+  #  01234
+    .b    .
+    .     .
+    .     .
+  ", value: 0, type: 0, properties: ["
+  #  01234
+    .b    .
+    .     .
+    .     .
+  ": "literal-string"]}
+run/0: checking screen size at 1036
+run/0: checking location 1037
+warn/0: expected screen location (0, 0) to contain 'b' instead of 'a'