anchor.diff:          let name = makeUnique (getName (sprintf "Table%d" (index + 1)) table parents)
   
           let res = Array.init rows.Length (fun _ -> Array.init numberOfColumns (fun _ -> Empty))
  -        for rowindex, _ in rows do
  +        for rowindex, node in rows do
               for colindex, cell in cells.[rowindex] do
                   let rowSpan = max 1 (defaultArg (TextConversions.AsInteger CultureInfo.InvariantCulture cell?rowspan) 0) - 1
                   let colSpan = max 1 (defaultArg (TextConversions.AsInteger CultureInfo.InvariantCulture cell?colspan) 0) - 1
  
positive.code: 
                  Some hasHeaders, Some headerNamesAndUnits, inferedProperties
  
          let rows = res |> Array.map (Array.map (fun x -> x.Data))
  
          { Name = name
            HeaderNamesAndUnits = headerNamesAndUnits
            InferedProperties = inferedProperties
            HasHeaders = hasHeaders
            Rows = rows 
            Html = table } |> Some
  
      let private parseList makeUnique index (list:HtmlNode, parents:HtmlNode list) =
  
negative.code:     member __.GetObject(id:string) = 
          htmlObjects |> Map.find id
  
  type HtmlTableRow<'rowType>(htmlNode)
  
  type HtmlTable<'rowType> internal (name:string, headers:string[] option, values:'rowType[], html:HtmlNode) =
  
      member __.Name = name
  