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

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