parameter (pair timestamp int); storage unit; return timestamp; code { CAR; DUP; CAR; DIP{CDR}; SUB; UNIT; SWAP; PAIR}