(define dx .0001)
    (define (deriv f)
       (define (f-prime x)
         (/ (- (f (+ x dx)) (f x))
            dx))
       f-prime)

(define (square x) (* x x))

(define square-deriv (deriv square)) ;; x -> 2*x

(display (square-deriv 7))