2018-11-12 11:30:30 +01:00

4 lines
95 B
Plaintext

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