anchor.diff:                                                 not pended) (getValidEvents events)) baseUrl
   
   //Mainloop, covers event selection and exchanging information with the events.    
  -let rec mainLoop baseUrl (events : EventStatus list) =
  +let rec mainLoop baseUrl (events : eventStatus list) =
       printfn "Actions:"
       printfn "1 -> Get all events"
       printfn "2 -> Execute an event"
  
positive.code:         | _ -> 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
  
negative.code:     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)
  
  //Write out the status of a list of EventStatus
  let rec writeOutEventStatus events baseUrl =
  