Content - 6e47b4c008e8be9db842d8739d1a61357576d699 - 75f5b84/opcodes/first.tz

first.tz

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