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

parameter unit;
storage (pair (pair nat (pair nat (pair (pair (pair nat tez) nat) nat))) nat);
code { MAP_CDADDAADR { PUSH tez "1.00" ; ADD } ;
       NIL operation ; SWAP; SET_CAR };