9 lines
237 B
Plaintext
9 lines
237 B
Plaintext
parameter (list string);
|
|
storage unit;
|
|
return (list string);
|
|
code { CAR; NIL string; SWAP;
|
|
LAMBDA (pair string (list string))
|
|
(list string)
|
|
{DUP; CAR; DIP{CDR}; CONS};
|
|
REDUCE; UNIT; SWAP; PAIR};
|