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

     (define add-one
       (lambda (x) (+ 1 x)))

     (define mystery
       (make-scaled 3 add-one))