sig
  module type REDUCER =
    sig val find_nearest : Color.rgb Color.map -> Color.rgb -> int end
  module ErrorDiffuse :
    functor (R : REDUCER->
      sig val f : Rgb24.t -> Color.rgb Color.map -> Index8.t end
  val error_diffuse : Rgb24.t -> Color.rgb Color.map -> Index8.t
end