open FSharpx.Core
open Microsoft.FSharp.Control

open System
open System.Net.Sockets

type Client() =
    member this.Connect() = async {
        let client = new TcpClient("www.google.com", 80)
        use stream = client.GetStream()
        use reader = new AsyncStreamReader(stream)
        let get = "GET / HTTP/1.1\r\n"B
        do! stream.AsyncWrite(get, 0, get.Length)
        do! stream.FlushAsync() |> Async.AwaitIAsyncResult |> Async.Ignore
        let rec streaming (r : AsyncStreamReader) = async {
            let! endOfStream = r.EndOfStream
            if not endOfStream then
                let line = r.ReadLine()
                Console.WriteLine(line)
                do! streaming(r)
        }

        do! streaming(reader)
    }