CorrectMailbox.fs

open System

type SocketMessage =
    | Fake

module Testt =
    let sendMb = MailboxProcessor<SocketMessage>.Start(fun inbox ->
        let rec loop () =
            async {
                do! Async.Sleep(0) // !!! required
                match! inbox.Receive() with
                | Fake ->
                    return! loop ()
            }
        loop ()
    )

[<EntryPoint>]
let main argv =
    for i in 1..20 do
        Testt.sendMb.Post(Fake)
    Console.ReadKey() |> ignore
    0