anchor.diff:  let split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
   
   //Role
  -let role = "Client"
  +let role = "Student"
   
   // HTTPREQUEST with a given httpverb that returns an option of None on error and a response string on success
   let HTTPRequestUpload (url : string) verb = 
  
positive.code:     printfn "Welcome to the testclient of the workflow client"
      Console.Title <- "Workflow test client"
      //http://localhost:8080/<process>/<session_id>/<event>/<attribute>
      OuterLoop None
      0
  
          
  
negative.code:     printfn "1 -> Get all events"
      printfn "2 -> Execute an event"
      printfn "3 -> Change BaseURL"
      printfn "4 -> Change Role"
      printfn "5 -> View tasks/status"
      printfn "6 -> Exit program"
      printf "-> "
      match(Console.ReadLine()) with
      | "1" -> //Get all events
  