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: ﻿open System
  
  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))
  
  //Role
  let role = "Client"
  
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 =
  