7 lines
312 B
Plaintext
7 lines
312 B
Plaintext
parameter (list int);
|
|
storage (list int);
|
|
code { CAR; # Get the parameter
|
|
MAP { PUSH int 1; ADD }; # Map over the list adding one
|
|
NIL operation; # No internal op
|
|
PAIR } # Match the calling convetion
|