parameter (list string);
return string;
storage unit;
code { CAR; PUSH string ""; SWAP;
       ITER { CONCAT };
       UNIT; SWAP; PAIR}