use "diffrentiate.mlc";

fun repeat f n = if n=0 then (fn x =>x) else f o (repeat f (n-1)); 
fun  nthderi f n =if (n=0) then (f) else differentiate(nthderi f 
(n-1)) 0.001;