anchor.diff:  ﻿open System
   
  -type EventStatus = bool * bool * bool
  +type EventStatus = string * bool * bool * bool
   
   //String split function, splits a string based on a delimiter
   let Split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
  
positive.code:     if (eventsResponse.IsNone) then
          None
      else
          Some(Split(eventsResponse.Value) ' ')
      
  //Gets the status of a particular event
  let eventStatus baseUrl eventName = 
      let executed = HTTPRequestDownload (baseUrl + "/" + eventName + "/executed")
  
negative.code:              let eventsResponse = GetAllEvents baseUrl
               if (eventsResponse.IsNone) then
                  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
      | "2" -> //Connect an event
  