2018-11-12 11:30:30 +01:00

8 lines
210 B
Plaintext

parameter string;
storage string;
code {CAR;
LAMBDA string string
{PUSH string "_abc"; NIL string ;
SWAP ; CONS ; SWAP ; CONS ; CONCAT};
SWAP; EXEC; NIL operation; PAIR};