type level = Debug | Info | Warn | Error | Fatal

val log : level -> string -> unit