anchor.diff:  ﻿open System
   
  -type EventStatus = string * 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))
  +let split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
   
   //Role
   let role = "Client"
  
positive.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 =
  
negative.code:     if (eventsResponse.IsNone) then
          None
      else
          Some(stringListToEventStatus(split(eventsResponse.Value) ' '))
  
  //Gets the status of a particular event
  let eventStatus baseUrl eventName = 
  