F# script that connects to Phoenix channels

HelloPhoenix.fsx

// This sample shows connecting to a sample Phoenix chat application running locally. 
// The sample Phoenix app was written by Chris McCord and can be found here:
// https://github.com/chrismccord/phoenix_chat_example) 

// #r @".\packages\WebSocketSharp.1.0.3-rc11\lib\websocket-sharp.dll"
open WebSocketSharp

let ws = new WebSocket("ws://localhost:4000/socket/websocket")

ws.OnOpen.Add(fun args -> System.Console.WriteLine("Open"))
ws.OnClose.Add(fun args -> System.Console.WriteLine("Close"))
ws.OnMessage.Add(fun args -> System.Console.WriteLine("Msg: {0}", args.Data))
ws.OnError.Add(fun args -> System.Console.WriteLine("Error: {0}", args.Message))

ws.Connect()

ws.Send("""{"ref":"1", "event":"phx_join", "topic":"rooms:lobby", "payload":{"user":"boo"}}""")
ws.Send("""{"ref":"2", "event":"new:msg", "topic":"rooms:lobby", "payload":{"user":"boo","body":"howdy"}}""")
ws.Send("""{"ref":"3", "event":"new:msg", "topic":"rooms:lobby", "payload":{"user":"boo","body":"Woohoo!"}}""")