Content - 26814afca55add79c28f838472e1ca148599503b - 334ff4c/attic/concat.tz

concat.tz

parameter string;
storage string;
code { DUP;
       DIP { CDR ; NIL string ; SWAP ; CONS } ;
       CAR ; CONS ;
       CONCAT;
       NIL operation; PAIR}