;; Rectangle-perimeter: Rectangle -> ?
;; Given a Rectangle, produces its perimeter
 (define (Rectangle-perimeter a-Rectangle)
   (+ (* 2 (Rectangle-width a-Rectangle))
      (* 2 (Rectangle-height a-Rectangle))))

(check-expect (Rectangle-perimeter R1) 180)
(check-expect (Rectangle-perimeter R2) 150)