(define make-scaled (lambda (scale f) (lambda (x) (* scale (f x))))) (define add-one (lambda (x) (+ 1 x)))