;; IN: 2 Trees
;; OUT: #t if and only if the 2 Trees are almost equal

(define (almost-equal tree1 tree2)