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

parameter unit;
storage (pair @truc unit unit);
code { DROP; UNIT ; UNIT ; PAIR ; UNIT ;
       DUUP @truc ;
       DIP { DROP ; DROP } ;
       NIL operation ; PAIR }