(define double
       (lambda (x) (* x 2)))

     (define triple
       (lambda (x) (* x 3)))

     (define quadruple
       (lambda (x) (* x 4)))

       (lambda (x) (* x scaling-factor))