ex1-41.scm

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

(define inc(x)
    (+ x 1))


((double inc) 2)

(((double (double double)) inc) 5)