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

parameter mutez;
storage (pair (pair nat (pair nat (pair (pair (pair nat mutez) nat) nat))) nat);
code { DUP ; CAR ; SWAP ; CDR ;
       SET_CADDAADR @annot ;
       NIL operation ; PAIR };