Thread safe, colored console

Console.fs

[<RequireQualifiedAccess>]
module Console =
    open System
    
    let private log =
        let lockObj = obj()
        fun color text ->
            lock lockObj (fun _ ->
                Console.ForegroundColor <- color
                printfn "%s" text
                Console.ResetColor())

    let complete = log ConsoleColor.Magenta
    
    let ok = log ConsoleColor.Green
    
    let info = log ConsoleColor.Cyan
    
    let warn = log ConsoleColor.Yellow
    
    let error = log ConsoleColor.Red