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