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};