anchor.diff:              loop <| reader.ReadLine()
       loop <| reader.ReadLine()    
   
  -    list |> Seq.map (fun kvp -> kvp.Key, kvp.Value) |> Seq.toArray
  +    list 
  +    |> Seq.sortByDescending (fun kvp -> kvp.Value)
  +    |> Seq.map (fun kvp -> kvp.Key, kvp.Value) 
  +    |> Seq.toArray
   
   top25 |> Array.iter (fun (word, count) -> printfn "%s - %d" word count)
positive.code:         | null -> false // end of file, word not found
          | line -> 
              let [| word'; (Int count) |] = line.Split(',')
              if word' = word then 
                  wordFreqs.Seek(-int64 line.Length, SeekOrigin.Current) |> ignore
                  write wordFreqs word' (count + 1)
                  true
              else loop <| reader.ReadLine()
  
      let found = loop <| reader.ReadLine()
      if not found then write wordFreqs word 1
  
negative.code: open System.IO
  
  let ``pride and prejudice`` = __SOURCE_DIRECTORY__ + "../pride-and-prejudice.txt"
  let test = __SOURCE_DIRECTORY__ + "../test.txt"
  
  (* 
  