parameter string;
return string;
storage unit;
code {CAR; H; UNIT; SWAP; PAIR};