1.40(玩弄函数:对一个参数应用两次函数的函数)

(define (double f)
  (lambda (x)
    (f (f x))))

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

(((double (double double)) inc) 5)
;amazing
(((double (double (double double))) inc) 0)