struct module M = FOut_channel_media (struct end) module L = FLevel (struct end) let _ = M.set_media stdout; include FLog (L) (M) end