1 665c255d 2023-08-04 jrmu (defun make-mobile (left right)
 2 665c255d 2023-08-04 jrmu   (list left right))
 3 665c255d 2023-08-04 jrmu (defun left-branch (mobile)
 4 665c255d 2023-08-04 jrmu   (first mobile))
 5 665c255d 2023-08-04 jrmu (defun right-branch (mobile)
 6 665c255d 2023-08-04 jrmu   (second mobile))
 7 665c255d 2023-08-04 jrmu (defun make-branch (len structure)
 8 665c255d 2023-08-04 jrmu   (list len structure))
 9 665c255d 2023-08-04 jrmu (defun branch-len (branch)
10 665c255d 2023-08-04 jrmu   (first branch))
11 665c255d 2023-08-04 jrmu (defun branch-structure (branch)
12 665c255d 2023-08-04 jrmu   (second branch))
13 665c255d 2023-08-04 jrmu 
14 665c255d 2023-08-04 jrmu (defun structure-is-weight? (structure)
15 665c255d 2023-08-04 jrmu   (atom structure))
16 665c255d 2023-08-04 jrmu (defun weight-of-branch 9branch)
17 665c255d 2023-08-04 jrmu (let