anchor.diff:      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
  +    match(Console.ReadLine()) with
  +        | "1" -> "Teacher"
  +        | "2" -> "Student"
  +        | _ ->   printfn "Role doesn't exist!"
  +                 selectRole n
  +
  +//Prompts the user to enter the BaseURL
  +let selectBaseUrl n = 
  +    printfn "Please provide BaseURL and press enter:"
  +    Console.ReadLine()
   
   //Mainloop, covers event selection and exchanging information with the events.    
  -let rec mainLoop baseUrl (events : eventStatus list) =
  +let rec mainLoop (events : eventStatus list) =
       printfn "Actions:"
       printfn "1 -> Get all events"
       printfn "2 -> Execute an event"
  
positive.code: let split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
  
  //Role
  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 = 
      try
          use w = new System.Net.WebClient () 
          Some(w.UploadString(url+"?role=" + role,verb, "true"))
      with
          | _ -> None
  
  // 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+"?role="+role))
      with
          | _ -> None
            
  //Converts a list of eventnames to a list of the EventStatus type
  let rec stringListToEventStatus eventsList =
  
negative.code:                 printfn "Program failed to get a list of events. Connection may be at fault."  
               if (eventsResponse.IsSome) then
                  printfn "%s downloaded." (eventsResponse.Value.Length.ToString())
                  mainLoop eventsResponse.Value
               else                
                  mainLoop events
      | "2" -> //Connect an event
               printfn "Please provide event name:"
               let eventName = Console.ReadLine()
               let eventStatusResponse = eventStatus baseUrl eventName
               if (eventStatusResponse.IsNone) then
                      printfn "Program failed to exchange data with the event. Eventname, baseURL or connection may be at fault."
                      mainLoop events
               else
                      let (eventName, executed,included,pended) = eventStatusResponse.Value
                      //Write out status:
  