anchor.diff:          Async.Start (processMessages reader writer)
   
           writer.NewLine <- "\r\n"
  -        // Replace the empty strings with your user credentials (username, oauth)
           writer |> login username password
           writer |> processInput (Console.ReadLine())
       | _ ->
  
positive.code:                 processLine line |> ignore
  
          return! processMessages reader writer
      | true ->
          ()
  }
  
  
negative.code: let rec processMessages (reader:StreamReader) (writer:StreamWriter) = async {
      let line = reader.ReadLine()
  
      if line <> null then
          if line.Length > 0 then
              if line.StartsWith "PING " then
                  writer.WriteLine ("PONG " + line.Substring("PING ".Length))
  