如何在f#中使用观察值中断无限异步循环

open System
open System.Threading

let rec infiniteAsyncLoop (cancellationToken: CancellationToken) =
    async {
        // 检查取消标记是否已被设置
        if cancellationToken.IsCancellationRequested then
            return ()
        
        // 执行异步操作
        do! Async.Sleep(1000) // 模拟异步操作
        printfn "Async operation executed"
        
        // 递归调用自身
        return! infiniteAsyncLoop cancellationToken
    }

let cancellationTokenSource = new CancellationTokenSource()

// 启动异步循环
let asyncLoopTask = Async.Start(infiniteAsyncLoop cancellationTokenSource.Token, cancellationTokenSource.Token)

// 在某个条件满足时中断循环
if condition then
    cancellationTokenSource.Cancel()

// 等待异步循环完成
asyncLoopTask.Wait()