ligo/src/bin_client/test/contracts_macros/pair_macro.tz

parameter unit;
storage unit;
code { UNIT; UNIT; UNIT; UNIT; UNIT;
       PAPAPAPAIR @name %x1 %x2 %x3 %x4 %x5;
       CDDDAR %x4 @fourth;
       DROP; CDR; NIL operation; PAIR}