module Async =
    open System.Threading
    open System.Threading.Tasks

    let AwaitTaskVoid : (Task -> Async<unit>) = Async.AwaitIAsyncResult >> Async.Ignore


    let DoPeriodicWork (f: unit -> Async<unit>) (interval: int) (token: CancellationToken) =
        async {
            while not token.IsCancellationRequested do
                do! f()
                do! Task.Delay(interval, token) |> AwaitTaskVoid
        }