Ex-2.12

(define (make-center-percent c p)
  (let ((width (/ (* c p) 100)))
    (make-center-width c width)))
(define (percent i)
  (let ((w (width i))
        (c (center i)))
    (/ (* w 100) c)))