struct
    module L = FLevel (struct end)
    module Med = FOut_channel_media (struct end)
    module M = FOut_channel_media_color (L) (Med)
    let _ = M.set_colors 
        [ 1, Blue ;
          2, Cyan ;
          3, Green ;
          4, Magenta ;
          5, Red ;
          6, Yellow ;
        ] 

    include FLog_color (L) (M)
  end