Simple log dispatcher for Ocaml/Async