let
color_stderr () =
new
color_out_channel_media
Pervasives
.stderr