anchor.diff:                  let! response = this.GetAsync()
                   return response.Parse<'T>()
               }
  -          
  -        member this.Follow (rel:string, urlSegments: (string*string) list) : RequestContext =
  -            let rp = this.requestParameters
  +        
  +        member private this.getUrlSegments(urlSegments: (string*string) list) : Parameter list = 
               let segments = 
                   urlSegments 
                   |> List.map (
  
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
  