parameter (list int);
storage (list int);
code { CAR; # Get the parameter
MAP { PUSH int 1; ADD }; # Map over the list adding one
NIL operation; # No internal op
PAIR } # Match the calling convetion