Hi,<br><br>Thanks to all the feedback I got,<br>I could do what I want.<br>It compiles and runs properly.<br><br>Regards,<br>F.<br>---<br>module Log       = Async_extra.Log.Blocking<br>module LogLevel  = Async_extra.Log.Level<br>module LogOutput = Async_extra.Log.Blocking.Output<br><br>let main () =<br><br>  Log.set_level (LogLevel.of_string "Debug");<br>  Log.set_output LogOutput.screen;<br><br>  Log.raw   "%s" "raw log";<br>  Log.debug "%s" "debug log";<br>  Log.info  "%s" "info log";<br>  Log.error "%s" "error log";<br><br>  Printf.printf "a printf\n"<br>;;<br><br>main()<br>---<br><br>