(define a (cons 1 2))
(define b (cons 3 4))
(define tree (cons a b))
(gc)
(check (eq tree '( (1 . 2) . (3 . 4) )))