anchor.diff:               printfn "Downloading the list of events..."
                let eventsResponse = GetAllEvents baseUrl
                if (eventsResponse.IsNone) then
  -                printfn "Program failed to get a list of events. Connection may be at fault."   
  +                printfn "Program failed to get a list of events. Connection may be at fault."  
                if (eventsResponse.IsSome) then
                   printfn "%s downloaded." (eventsResponse.Value.Length.ToString())
  -             mainLoop baseUrl eventsResponse.Value
  +                mainLoop baseUrl eventsResponse.Value
  +             else                
  +                mainLoop baseUrl events
       | "2" -> //Connect an event
                printfn "Please provide event name:"
                let eventName = Console.ReadLine()
  
positive.code:                     if (executed) then
                          printfn "Event has already been executed, so it cant be executed."                   
                      else
                          let response = HTTPRequestUpload (baseUrl + "/" + eventName + "/executed") "PUT" "true"
                          if (response.IsNone) then
                              printfn "Program failed to issue the command to the event. Connection may be at fault."                             
                          if (response.IsSome) then 
  
negative.code: let role = "Client"
  
  // HTTPREQUEST with a given httpverb that returns an option of None on error and a response string on success
  let HTTPRequestUpload (url : string) verb = 
      try
          use w = new System.Net.WebClient () 
          Some(w.UploadString(url+"?role="+role,verb, "true"))
      with
          | _ -> None
  
  // HTTPREQUEST GET returns an option of None on error and a response string on success
  let HTTPRequestDownload (url : string) = 
      try
          use w = new System.Net.WebClient () 
          Some(w.DownloadString(url+"?role="+role))
      with
          | _ -> None
            
  //Converts a list of eventnames to a list of the EventStatus type
  let rec stringListToEventStatus eventsList =
      match (eventsList) with
  