anchor.diff:                      printfn "Program failed to exchange data with the event. Eventname, baseURL or connection may be at fault."
                       mainLoop baseUrl events
                else
  -                    let (executed,included,pended) = eventStatusResponse.Value
  +                    let (eventName, executed,included,pended) = eventStatusResponse.Value
                       //Write out status:
                       printfn "Event status:"
                       printfn "IsExecuted: %s" (executed.ToString())
  
positive.code:     if (executed.IsNone || included.IsNone || pending.IsNone) then
          None
      else
          Some((Convert.ToBoolean(executed.Value),Convert.ToBoolean(included.Value),Convert.ToBoolean(pending.Value)) : EventStatus)
  
  //Writes the status of each event to the console and returns a list containing only the events that was responsive.
  let rec getStatusAndRemovefaulty events baseUrl = 
      match (events) with
      | x :: xs -> 
                  let eventStatusResponse = eventStatus baseUrl x
                  if (eventStatusResponse.IsSome) then
                      let (executed,included,pended) = eventStatusResponse.Value
                      match ((executed,included,pended)) with
                      //| (executed,included,pended) when executed = false && included = false && pended = true -> 
                      | (executed,included,pended) when executed = false && included = true && pended = false ->  printfn "%s   EXECUTE" x
                      | (executed,included,pended) when executed = false && included = true && pended = true ->  printfn "!%s   EXECUTE" x
                      | (executed,included,pended) when executed = true && included = false && pended = false ->  printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = false && pended = true ->   printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = true && pended = false ->   printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = true && pended = true ->   printfn "X%s" x
                      x :: getStatusAndRemovefaulty xs baseUrl
                  else
                      getStatusAndRemovefaulty xs baseUrl
      | _ -> events
  
  //Mainloop, covers event selection and exchanging information with the events.    
  let rec mainLoop baseUrl events =
      printfn "Actions:"
      printfn "1 -> Get all events"
      printfn "2 -> Connect an event"
  
negative.code:         Some(w.UploadString(url,verb, value))
      with
          | _ -> None
          
  //Converts a list of eventnames to a list of the EventStatus type
  let rec StringListToEventStatus eventsList =
      match (eventsList) with
      | x::xs -> (x,false,false,false) :: StringListToEventStatus xs
      | xs -> []
  
  //Returns a list of event names with ' ' as delimiter
  let GetAllEvents baseUrl =
  