(define tree '(((1 . 2) . (3 . 4)) . ((5 . 6) . (7 . 8 ))))
(gc)
(check (eq tree '(((1 . 2) . (3 . 4)) . ((5 . 6) . (7 . 8 )))))