anchor.diff:      if (executed.IsNone || included.IsNone || pending.IsNone) then
           None
       else
  -        Some((eventName, Convert.ToBoolean(executed.Value),Convert.ToBoolean(included.Value),Convert.ToBoolean(pending.Value)) : EventStatus)
  +        Some((eventName, Convert.ToBoolean(executed.Value),Convert.ToBoolean(included.Value),Convert.ToBoolean(pending.Value)) : eventStatus)
   
   //Write out the status of a list of EventStatus
   let rec writeOutEventStatus events baseUrl =
  
positive.code:                                                not pended) (getValidEvents events)) baseUrl
  
  //Mainloop, covers event selection and exchanging information with the events.    
  let rec mainLoop baseUrl (events : EventStatus list) =
      printfn "Actions:"
      printfn "1 -> Get all events"
      printfn "2 -> Execute an event"
  
negative.code:     if (eventsResponse.IsNone) then
          None
      else
          Some(stringListToEventStatus(split(eventsResponse.Value) ' '))
  
  //Gets the status of a particular event
  let eventStatus baseUrl eventName = 
  