Simple output message agent

OutputAgent.fsx

type OutputMessage = 
    | Print of string
    
let agent output = MailboxProcessor<OutputMessage>.Start(fun inbox ->
    let rec loop () = async {
        let! message = inbox.Receive() 
        match message with
        | Print msg -> 
            output msg
            return! loop() }
    loop() )

//test
let consoleAgent = agent System.Console.Out.WriteLine
consoleAgent.Post(Print "hello agent")
consoleAgent.Post(Print "hello again")

// fsi: 
// hello agent
// val it : unit = ()
// hello again
// val it : unit = ()