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

parameter (pair bool bool);
return bool;
storage unit;
code {CAR; DUP; CAR; SWAP; CDR; OR;
      UNIT; SWAP; PAIR};