sig
  type kind = NEWTON | SECANT | STEFFENSON
  type t
  val make :
    Gsl_root.Polish.kind -> Gsl_fun.gsl_fun_fdf -> float -> Gsl_root.Polish.t
  external name : Gsl_root.Polish.t -> string = "ml_gsl_root_fdfsolver_name"
  external iterate : Gsl_root.Polish.t -> unit
    = "ml_gsl_root_fdfsolver_iterate"
  external root : Gsl_root.Polish.t -> float = "ml_gsl_root_fdfsolver_root"
end