anchor.diff:  type Freqs = Dictionary<string, int>
   let wordFreqsObj = Map()
   wordFreqsObj.["freqs"] <- Freqs()
  -wordFreqsObj.["increment_count"] <- 
  -    fun word -> incrementCount wordFreqsObj word
  +
  +let incrementCount (obj : Map) word =
  +    let freqs = obj.["freqs"] :?> Dictionary<string, int>
  +    match freqs.TryGetValue word with
  +    | true, n -> freqs.[word] <- n+1
  +    | _ -> freqs.[word] <- 1
  +
  +wordFreqsObj.["increment_count"] <- incrementCount wordFreqsObj
   wordFreqsObj.["sorted"] <- 
       fun () -> 
           (wordFreqsObj.["freqs"] :?> Freqs)
  
positive.code: ﻿open System
  open System.Collections.Generic
  open System.IO
  open System.Text.RegularExpressions
  
  
negative.code:         |> Set.ofArray
      obj.["stop_words"] <- stopWords
  
  stopWordsObj.["init"] <- fun () -> loadStopWords stopWordsObj
  stopWordsObj.["is_stop_word"] <- 
      fun word -> 
          (stopWordsObj.["stop_words"] :?> Set<string>)
  