anchor.diff:      |> List.iter(fun t -> 
   
         sw.WriteLine(spaces + "    <ul>")  
  -      DiffTree.treeHtmlWalker sw (spaces + "\t")  t
  +      DiffTree.treeHtmlWalkerNameRow sw (spaces + "\t")  t
         sw.WriteLine(spaces + "    </ul>")
         sw.Flush())
       
  
positive.code:             "<font style=\"background-color: blue\" color=\"white\">")
      |> fun sb -> Encoding.UTF8.GetBytes(sb.ToString())
  
    let htmlBinaryShaDiff pathSource pathTarget = 
      let hashSource = 
        match File.Exists(pathSource) with 
  
negative.code:           |> sw.WriteLine
  
            branches
            |> List.iter(fun x -> treeHtmlTypeWalkerTypeRows sw diffType (sprintf "    %s" spaces) x)
            sw.WriteLine(spaces+"</ul>")
            sw.WriteLine(spaces+"</li>")
            sw.Flush()
  
    //Produces the a table which displays the diff three
    let diffBlock (ds:seq<string*string*DiffType>) spaces =
      
      use ms = new MemoryStream()
  