(define (Solution1 tree)
(if (empty? tree) #f
(if (or (and (not (empty? (cadr tree))) (not (zero? (car (cadr tree))))(= (remainder (car tree) (car (cadr tree))) 0)) (and (not (empty? (caddr tree) )) (not (zero? (car (caddr tree)))) (= (remainder (car tree) (car (caddr tree))) 0))) (car tree)
(or (Solution1 (cadr tree)) (Solution1 (caddr tree))))))