ligo/src/proto_alpha/lib_protocol/test/contracts/set_cdr.tz

parameter nat;
storage (pair string nat);
code { DUP; CDR; DIP{CAR}; SET_CDR @annot; NIL operation; PAIR };