7 lines
178 B
Plaintext
7 lines
178 B
Plaintext
parameter unit;
|
|
storage unit;
|
|
code { UNIT; UNIT; UNIT; UNIT; UNIT;
|
|
PAPAPAPAIR @name %x1 %x2 %x3 %x4 %x5;
|
|
CDDDAR %x4 @fourth;
|
|
DROP; CDR; NIL operation; PAIR}
|