Exercise 5.18

     (define make-scaled
       (lambda (scale f)
         (lambda (x) (* scale (f x)))))

     (define add-one
       (lambda (x) (+ 1 x)))
Q: What is ((make-scaled 2 (make-scaled 3 add-one)) 4)?
((lambda (x) (* 2 ((make-scaled 3 add-one) x))) 4)
(* 2 ((make-scaled 3 add-one) 4))