anchor.diff:                  let valueText = sprintValue value ty
                   let text = sprintf "[%i] : %s = %s" index ty.FSharpName valueText
                   let children = createChildren value ty
  -                Custom({Text=text ; Children=children ; ValueText=Some(valueText) ; Image=ImageResource.Default})
  +                Custom { Text=text
  +                         Children=children
  +                         ValueText=Some(valueText)
  +                         Image=ImageResource.Default }
               
               //yield 100  chunks
               let rec calcRest pos (ie:System.Collections.IEnumerator) = seq {
  
positive.code:     let valueText = sprintValue value ty
      let text = sprintf "%s : %s = %s" name ty.FSharpName valueText
      let children = createChildren value ty
      Root({Text=text ; Children=children ; Value=value ; Name=name ; ValueText=valueText ; Image=ImageResource.Default})
negative.code:                     let nextResult = createChild pos ie.Current
                      if pos % 100 = 0 && pos <> 0 then
                          let rest = seq { yield nextResult; yield! calcRest (pos+1) ie }
                          yield Custom { Text="Rest"
                                         Children=rest
                                         ValueText=None
                                         Image=ImageResource.Default }
                      else
                          yield nextResult;
                          yield! calcRest (pos+1) ie }
  