ligo/test/contracts/set_car.tz

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