2024-04-01 20:17:53 -04:00
|
|
|
define nil ((0))
|
2024-04-01 22:26:29 -04:00
|
|
|
define (pair (?x) (?y)) ((?x ?y))
|
|
|
|
|
define (first (?x ?y)) (?x)
|
|
|
|
|
define (second (?x ?y)) (?y)
|
|
|
|
|
define (quote ?x) (quote ?x)
|
2024-04-01 20:17:53 -04:00
|
|
|
|
2024-04-01 22:26:29 -04:00
|
|
|
define test (first pair (A) (pair (B) (pair (C) nil)))
|
