1 (defun rect-perimeter (rect)
2   (+ (* 2 (rect-width rect))
3      (* 2 (rect-height rect))))
4 (defun rect-area (rect)
5   (* (rect-width rect)
6      (rect-height rect)))
7