如何在f#聊天应用程序中使用rest api和websocket端口？

open System
open System.Net.Http
open WebSocketSharp

let apiUrl = "https://api.example.com/chat"
let wsUrl = "wss://ws.example.com/chat"

let httpClient = new HttpClient()
let wsClient = new WebSocket(wsUrl)

let restApiRequest () =
    async {
        let! response = httpClient.GetAsync(apiUrl) |> Async.AwaitTask
        let content = response.Content.ReadAsStringAsync().Result
        // 处理响应数据
        printfn "REST API 响应：%s" content
    }

let webSocketCommunication () =
    wsClient.OnMessage.Add(fun (messageArgs : MessageEventArgs) ->
        // 处理接收到的消息
        printfn "收到消息：%s" messageArgs.Data
    )

    wsClient.Connect()
    wsClient.Send("Hello, WebSocket!")

// 启动聊天应用程序
let startChatApp () =
    async {
        do! restApiRequest()
        webSocketCommunication()
    }
    |> Async.StartImmediate

startChatApp()