AsyncIterate.fsx

let cell init =
    MailboxProcessor.Start(fun inbox ->
        let rec loop n =
            async {
                let! result = inbox.Receive()
                printfn "Received %d" result
                return! loop result
            }

        loop init
    )

let myCell = cell 4

myCell.Post 5

// Abstract the recursive call away.
let iterate init f =
    MailboxProcessor.Start(fun inbox ->
        let rec loop n =
            async {
                let! result = f inbox
                return! loop result
            }

        loop init
    )

let cell2 init =
    iterate init (fun inbox ->
        async {
            let! result = inbox.Receive()
            printfn "Received %d" result
            return result
        }
    )

let myCell2 = cell2 8

myCell2.Post 32