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

parameter (pair int int);
storage unit;
code {CAR; DUP; CAR; DIP{CDR}; ASSERT_CMPLE; UNIT; NIL operation; PAIR}