; A Rectangle is:
; (make-Rectangle posn number number color)
(define-struct Rectangle (tl-corner width height clr))


; ;; Rectangle-fun: Rectangle -> ?
; ;; Given ..., produces...
; (define (Rectangle-fun a-Rectangle)
;   (Rectanlge-tl-corner a-Rectangle)
;   (Rectangle-width a-Rectangle)
;   (Rectangle-height a-Rectangle)
;   (Rectangle-clr a-Rectangle))
;
; (check-expect (Rectangle-fun ...) ...)
; (check-expect (Rectangle-fun ...) ...)