(weight (model 1))
result 1
(is-balanced? (model 1))
result #t
(weight (make-mobile (make-branch 3 (model 2)) (make-branch 2 (model 3))))
result 5
(is-balanced? (make-mobile (make-branch 3 (model 2)) (make-branch 2 (model 3))))
result #t
(weight (make-mobile (make-branch 6 (model 1)) (make-branch 1 (make-mobile (make-branch 3 (model 4)) (make-branch 6 (model 2))))))
result 7
(is-balanced? (make-mobile (make-branch 6 (model 1)) (make-branch 1 (make-mobile (make-branch 3 (model 4)) (make-branch 6 (model 2))))))
result #t
(is-balanced? (make-mobile (make-branch 6 (model 1)) (make-branch 2 (make-mobile (make-branch 3 (model 4)) (make-branch 6 (model 2))))))
result #f