Ex-1.41

(define (double proc)
  (lambda (x)
    (proc (proc x))))

(define (inc x) (+ x 1))
(((double (double double)) inc) 5)
;Value: 21