module type Color_media = sig .. end
sig
end
include Sdebug.Media
type color
val set_colors : (int * color) list -> unit
(int * color) list -> unit