ligo/src/bin_client/test/contracts_opcode/first.tz

parameter (list nat);
storage nat;
code{CAR; IF_CONS {DIP{DROP}} {FAIL}; NIL operation; PAIR};