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:              let eventsResponse = GetAllEvents baseUrl
               if (eventsResponse.IsNone) then
                  printfn "Program failed to get a list of events. Connection may be at fault."   
               printfn "%s downloaded." (eventsResponse.Value.Length.ToString())
               mainLoop baseUrl (getStatusAndRemovefaulty eventsResponse.Value baseUrl)
      | "2" -> //Connect an event
               printfn "Please provide event name:"
               let eventName = Console.ReadLine()
  
negative.code:                 let eventStatusResponse = eventStatus baseUrl x
                  if (eventStatusResponse.IsSome) then
                      let (executed,included,pended) = eventStatusResponse.Value
                      match ((executed,included,pended)) with
                      //| (executed,included,pended) when executed = false && included = false && pended = true -> 
                      | (executed,included,pended) when executed = false && included = true && pended = false ->  printfn "%s   EXECUTE" x
                      | (executed,included,pended) when executed = false && included = true && pended = true ->  printfn "!%s   EXECUTE" x
                      | (executed,included,pended) when executed = true && included = false && pended = false ->  printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = false && pended = true ->   printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = true && pended = false ->   printfn "X%s" x
                      | (executed,included,pended) when executed = true && included = true && pended = true ->   printfn "X%s" x
                      x :: getStatusAndRemovefaulty xs baseUrl
                  else
                      getStatusAndRemovefaulty xs baseUrl
  