parameter string;
storage string;
code {CAR; H; NIL operation; PAIR};