let color_debug = 
  let o = new color_log (color_stderr ()) in
  o#set_colors 
    [ 1, Blue ;
      2, Cyan ;
      3, Green ;
      4, Magenta ;
      5, Red ;
      6, Yellow ;
    ] ;
  o