bldc/tests/test_flat_unflat_4.lisp

(define tree '((1 2) (3 4)))

(define a (flatten tree))

(check (eq (unflatten a) tree))