65 lines
1.5 KiB
Plaintext
65 lines
1.5 KiB
Plaintext
initialise-binding scope
|
|
(collateral
|
|
(bind
|
|
("a",
|
|
allocate-variable
|
|
(integers)),
|
|
bind
|
|
("test",
|
|
function abstraction
|
|
(scope
|
|
(collateral
|
|
(map
|
|
( ),
|
|
bind
|
|
("a",
|
|
allocate-initialised-variable
|
|
(integers,
|
|
checked head
|
|
given)),
|
|
give
|
|
(checked tail
|
|
given,
|
|
bind
|
|
("b",
|
|
allocate-initialised-variable
|
|
(integers,
|
|
checked head
|
|
given)))),
|
|
return int-mul
|
|
(assigned
|
|
(bound
|
|
("a")),
|
|
assigned
|
|
(bound
|
|
("b")))))),
|
|
bind
|
|
("b",
|
|
allocate-variable
|
|
(integers)),
|
|
map
|
|
( ),
|
|
map
|
|
( )),
|
|
sequential
|
|
(assign
|
|
(bound "a",
|
|
decimal-natural
|
|
("20")),
|
|
null,
|
|
assign
|
|
(bound "b",
|
|
handle-return apply
|
|
(bound "test",
|
|
cons
|
|
(decimal-natural
|
|
("6"),
|
|
list
|
|
(decimal-natural
|
|
("3"))))),
|
|
print assigned
|
|
(bound
|
|
("a")),
|
|
print assigned
|
|
(bound
|
|
("b")))) |