module Log = open System let private log kind fmt = Printf.kprintf (fun s -> let now = DateTime.Now let msg = sprintf "[%s] [%s] %s" (now.ToString("s")) kind s printfn "%s" msg) fmt let fail fmt = log "Fail" fmt let info fmt = log "Info" fmt