let
color_stdout () =
new
color_out_channel_media
Pervasives
.stdout