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