Module Reduce

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