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 "1 -> Get all events"
      printfn "2 -> Execute an event"
      printfn "3 -> Change BaseURL"
      printfn "4 -> View tasks/status"
      printfn "5 -> Exit program"
      printf "-> "
      match(Console.ReadLine()) with
      | "1" -> //Get all events
  
negative.code:             | _ -> []
      writeOutEventStatus (List.sortBy (fun k -> let (eventName, executed,included,pended) = k
                                                 not pended) (getValidEvents events)) baseUrl
  //Prompts the user to enter the BaseURL
  let rec selectRole n = 
      printfn "Whats your role?"
      printfn "Actions:"
      printfn "1 -> Teacher"
      printfn "2 -> Student"
      printf "-> "
      ignore <| match(Console.ReadLine()) with
                | "1" -> role = "Teacher"
                | "2" -> role = "Student"
                | _ ->   printfn "Role doesn't exist!"
                         selectRole n
      true
  
  //Mainloop, covers event selection and exchanging information with the events.    
  let rec mainLoop baseUrl (events : eventStatus list) =
  