parameter string;
storage (pair string nat);
return (pair string nat);
code {DUP; CDR; DIP{CAR}; SET_CAR; DUP; PAIR};