FSharpAsyncRecursion.fs

open System.Threading

let rec countRecursivelyAsync count = async {
    if count <= 0 then
        return count
    else
        let! result = countRecursivelyAsync(count - 1)
        return result + 1
}

[<EntryPoint>]
let main argv = 
    let result = countRecursivelyAsync 10000 |> Async.RunSynchronously
    printfn "Counted to %d." result
    0