sig
  type ws
  val make : k:int -> nbreak:int -> Bspline.ws
  external ncoeffs : Bspline.ws -> int = "ml_gsl_bspline_ncoeffs" "noalloc"
  external knots : [< Vectmat.vec ] -> Bspline.ws -> unit
    = "ml_gsl_bspline_knots"
  external knots_uniform : a:float -> b:float -> Bspline.ws -> unit
    = "ml_gsl_bspline_knots_uniform"
  external _eval : float -> [< Vectmat.vec ] -> Bspline.ws -> unit
    = "ml_gsl_bspline_eval"
  val eval : Bspline.ws -> float -> [> Vectmat.vec ]
end