如何在F#中同时等待取消令牌和EventWaitHandle？

open System
open System.Threading

let cancellationTokenSource = new CancellationTokenSource()
let eventWaitHandle = new EventWaitHandle(false, EventResetMode.AutoReset)

let waitForCancellationAndEvent() =
    async {
        let! cancellationTask = Async.AwaitCancellableTask(cancellationTokenSource.Token)
        let! eventTask = Async.AwaitWaitHandle(eventWaitHandle)
        return ()
    }

let main() =
    async {
        let cancellationTask = async {
            do! Async.Sleep(1000)
            cancellationTokenSource.Cancel()
        }
        let eventTask = async {
            do! Async.Sleep(2000)
            eventWaitHandle.Set()
        }
        let combinedTask = async {
            do! Async.Parallel [cancellationTask; eventTask]
            printfn "Both cancellation and event occurred"
        }
        Async.RunSynchronously combinedTask
    }

main()