anchor.diff:  //String split function, splits a string based on a delimiter
   let Split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
   
  -// HTTPREQUEST GET returns an option of None on error and a response string on success
  -let HTTPRequestDownload (url : string) = 
  -    try
  -        use w = new System.Net.WebClient () 
  -        Some(w.DownloadString(url))
  -    with
  -        | _ -> None
  -        
  +//Role
  +let role = "Client"
  +
   // HTTPREQUEST with a given httpverb that returns an option of None on error and a response string on success
   let HTTPRequestUpload (url : string) verb value = 
       try
           use w = new System.Net.WebClient () 
  -        Some(w.UploadString(url,verb, value))
  +        Some(w.UploadString(url,verb, (role + "," + value)))
       with
           | _ -> None
           
  
positive.code: 
  //Returns a list of event names with ' ' as delimiter
  let GetAllEvents baseUrl =
      let eventsResponse = HTTPRequestDownload (baseUrl)
      if (eventsResponse.IsNone) then
          None
      else
  
negative.code: 
  //Gets the status of a particular event
  let eventStatus baseUrl eventName = 
      let executed = HTTPRequestUpload (baseUrl + "/" + eventName + "/executed") "GET" ""
      let included = HTTPRequestUpload (baseUrl + "/" + eventName + "/included") "GET" ""
      let pending = HTTPRequestUpload (baseUrl + "/" + eventName + "/pending") "GET" ""
      if (executed.IsNone || included.IsNone || pending.IsNone) then
          None
      else
  