anchor.diff:              this.Follow (rel, [])
   
           member this.UrlSegments (urlSegments: (string*string) list) : RequestContext = 
  -           let segments = 
  -                urlSegments 
  -                |> List.map (
  -                    fun (k, v) -> 
  -                        let p = new Parameter()
  -                        p.Name <- k
  -                        p.Value <- v
  -                        p.Type <- ParameterType.UrlSegment
  -                        p
  -                    )
  -           let newRp = {this.requestParameters with urlSegments = this.requestParameters.urlSegments @ segments}
  +           let rp = this.requestParameters
  +           let segments = this.getUrlSegments urlSegments
  +           let newRp = {rp with urlSegments = rp.urlSegments @ segments}
              {this with requestParameters = newRp} 
   
       type HalClient (env:EnvironmentParameters) = 
  
positive.code:                         p.Type <- ParameterType.UrlSegment
                          p
                      )
  
              let newRp = {rp with follow = rp.follow @ [{rel=rel; urlSegments=segments}]}
              {this with requestParameters = newRp}
  
negative.code:         { requestContext : RequestContext; response : IRestResponse; data: JObject}
          member this.Parse<'T>() = 
              this.data.ToObject<'T>()
          
          member this.Follow (next:Follow) rest : RequestContext = 
              let nextUrl = this.data.["_links"].[next.rel].Value<string>("href") 
              let nextUrlSegments = next.urlSegments
  