anchor.diff:                      mainLoop baseUrl events
       | "3" -> Some(true) //Change BaseURL
       | "4" -> //View Status
  -             printfn "Status:"
  +             printfn "Task:"
                mainLoop baseUrl (getStatusAndRemovefaulty events baseUrl)
       | "5" -> None //Exit program
       | _   -> None
  -
  -//Returns an url with 2 segments only if possible.
  -let GetWorkFlowUrl url = Some(url)
  -
  +    
   //Prompts the user to enter the BaseURL
  -let rec SelectBaseUrl n = 
  +let SelectBaseUrl n = 
       printfn "Please provide BaseURL and press enter:"
  -    let baseUrl = GetWorkFlowUrl (Console.ReadLine())
  -    if (baseUrl.IsSome) then
  -        baseUrl.Value
  -    else
  -        printfn "Entered url was invalid, please try again."
  -        SelectBaseUrl n
  +    Console.ReadLine()
   
   //Provides the loop that allows the mainLoop to exit and rerequest the BaseURL.
   let rec OuterLoop m = 
  
positive.code:     printfn "1 -> Get all events"
      printfn "2 -> Connect an event"
      printfn "3 -> Change BaseURL"
      printfn "4 -> View status"
      printfn "5 -> Exit program"
      printf "-> "
      match(Console.ReadLine()) with
  
negative.code: ﻿open System
  
  type EventStatus = bool * bool * bool
  
  //String split function, splits a string based on a delimiter
  let Split (s : string) (delimiter : char) = List.ofArray (s.Split(delimiter))
  