anchor.diff:                      response.Value |> printfn "Success! Response: %s" 
                   printfn "action completed"
                   mainLoop baseUrl 
  -
  +//Returns an url with 2 segments only if possible.
   let GetWorkFlowUrl url = 
       if (not (Uri.IsWellFormedUriString(url, UriKind.Absolute))) then
           None
  
positive.code:         Some(w.DownloadString(url))
      with
          | _ -> None
  
  let HTTPRequestUpload (url : string) verb value = 
      try
          let port = 8080
  
negative.code:         | x when x.Segments.Length > 1 -> Some("http://"+ x.Host + "/" + (string (x.Segments.GetValue(1))))
          | _ -> None
  
  //Prompts the user to enter the BaseURL
  let rec 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
  
  //Provides the loop that allows the mainLoop to exit and rerequest the BaseURL.
  let rec OuterLoop m = 
      let baseUrl = SelectBaseUrl 0
      let m = mainLoop baseUrl
      if (m.IsSome) then
          OuterLoop m
  
  //Entry point
  [<EntryPoint>]
  let rec main argv = 
      printfn "Welcome to the testclient of the workflow client"
      Console.Title <- "Workflow test client"
      //http://localhost:8080/<process>/<session_id>/<event>/<attribute>
      OuterLoop None
      0
  
          
  