open System
open System.IO
open System.Net.Sockets

let client = new TcpClient()

let get = "GET / HTTP/1.1\r\n\r\n"

let connect = async {
        do! client.ConnectAsync("www.google.com", 80) |> Async.AwaitIAsyncResult |> Async.Ignore
        use stream = client.GetStream()
        use reader = new StreamReader(stream)
        use writer = new StreamWriter(stream)
        writer.Write(get)
        while not reader.EndOfStream do
            let! line = reader.ReadLineAsync() |> Async.AwaitTask
            Console.WriteLine(line)
}

let work = connect |> Async.StartAsTask
work.Wait()
client.Close()