; use 'letex' to expand fun into f
; use floating point operators add, sub, div

(define (deriv fun)
    (letex (f fun)
        (lambda (x) (div (sub (f (add x 0.0000001)) (f x)) 0.0000001))) )

(define (square x) (mu x x))

((deriv square) 10)