F# Async filter

filterAsync.fs

let filterAsync predicate (items:Async<_> list) = async {
    let rec loop acc items' = async {
        match items' with
        | [] -> return acc
        | x :: xs ->
            let! item = x
            return! loop (if predicate item then item :: acc else acc) xs
    }
    return! loop [] items
}