anchor.diff:              | _ -> []
       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) =
  
positive.code: let split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
  
  //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 = 
  
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
  