Ex-1.44

(define dx 0.001) ;set it to whatever
(define (smooth f)
  (lambda (x)
    (/ (+ (f (- x dx))
          (f x)
          (f (+ x dx))) 3)))
;nfold smooth
(repeated (smooth f) n)