dq := proc (f, x, h) options operator, arrow; (f(x+h)-f(x))/h end;