Mailbox processor sample

agent.fs

type OperationTest =
  | Increment
  | Decrement

let agent = MailboxProcessor.Start(fun inbox ->
      let rec loop state: Async<unit> = async {
          let! msg = inbox.Receive()
          
          match msg with
          | Increment -> return! loop (state + 1)
          | Decrement -> return! loop (state - 1)
      }
      loop 0)

agent.Post (OperationTest.Increment)