7 lines
191 B
Plaintext
7 lines
191 B
Plaintext
parameter (list string);
|
|
return string;
|
|
storage unit;
|
|
code {CAR; PUSH string ""; SWAP;
|
|
LAMBDA (pair string string) string {DUP; CDR; DIP{CAR}; CONCAT};
|
|
REDUCE; UNIT; SWAP; PAIR};
|