ligo/src/bin_client/test/contracts/set_cdr.tz

parameter nat;
storage (pair (string %s) (nat %n));
code { DUP; CDR; DIP{CAR}; SET_CDR %n; NIL operation; PAIR };