open System.Net.Sockets

let BToStr data len = System.Text.Encoding.ASCII.GetString(data, 0, len)
type System.IO.BinaryReader with
    member reader.ReadStringB () =
        let len = int(reader.ReadByte())
        let data = Array.create (len) 0uy
        BToStr data (reader.Read(data, 0, len))
    member reader.ReadStringI () =
        let len = reader.ReadInt32()
        let data = Array.create (len) 0uy
        BToStr data (reader.Read(data, 0, len))

type Message = {ChatName:string; Sender:string; Message:string}
let stream = (new TcpClient("home.justinharper.me", 6969)).GetStream()
let reader = new System.IO.BinaryReader(stream)

let ReadMessage stream = {ChatName=reader.ReadStringB(); Sender=reader.ReadStringB(); Message=reader.ReadStringI()}

stream.Write([|byte 1|], 0, 1)
while true do
    match stream.ReadByte() with
    | 1 -> printfn "Server pong"
    | 2 -> printfn "%A" (ReadMessage stream)
    | _ -> ()