let instance = new Instance()

instance |> loginName "Gary"
         >. loginOwner 123456
         >. loginPass "herpderp"
         >. login
         |> function
            | Failure(result, _) -> printfn "Login failed (Reason %s)." (result.ToString ())
            | Success(_) -> printfn "Login successful."

instance |> on avatarAdd
         |> Event.map getAvatarInfo
         |> Event.add (fun avatar -> instance.Whisper(avatar.Session, sprintf "Greetings, %s!" avatar.Name) |> ignore)

instance.Enter("zzzzzzzz") |> ignore
instance.StateChange() |> ignore

while true do
    Utility.Wait(100) |> ignore