anchor.diff:    let rawHtml = File.ReadAllText (scriptOutName + ".html")
   
     let html = XDocument.Parse ("<root>" + rawHtml + "</root>", LoadOptions.PreserveWhitespace)
  +  
  +  let changeLineNums ((_,(srcFile, snippet)), rawHtml) =
  +    match snippet with
  +    | SnippetWholeFile ->
  +      rawHtml
  +    | SnippetLinesBounded (sL, _) ->
  +      rawHtml
  +      |> splitStr """<span class="l">"""
  +      |> List.mapi (fun i s ->
  +        match (i,s) with
  +        | 0, _ -> s
  +        | _, Regex "^(\d+): ((?:.|\n)*)$" [Int32 line; rest] -> 
  +          sprintf "%d: %s" (sL + line - 1) rest
  +        | _, _ -> 
  +          failwithf "unexpected case: '%d' '%s'" i s)
  +      |> String.concat """<span class="l">"""
  +    | SnippetStartingWith _ ->
  +      failwith "SnippetStartingWith should not be present here"
  +  
     let snippets =
       html.Root.XPathSelectElements "table"
       |> Seq.map (fun x -> x.ToString(SaveOptions.DisableFormatting)
  
positive.code:   let rec insertSnippets acc snippets content =
      match content,snippets with
        | [],[] -> List.rev acc
        | Snip _ :: t, s :: ss ->
          insertSnippets (s :: acc) ss t
        | h :: t, s -> 
          insertSnippets (h :: acc) s t
        | _ ->
  
negative.code: let repo = getBuildParamOrDefault "repo" __SOURCE_DIRECTORY__
  let githubAccount = "theimowski"
  let githubRepo = "SuaveMusicStore"
  let branch = "v2.0_src_err"
  
  let write (path, lines: list<String>) =
    if not (File.Exists path && File.ReadAllLines path |> Array.toList = lines) then
  