anchor.diff:      let incrementCount word =
           match wordFreqs.TryGetValue word with
           | true, n -> wordFreqs.[word] <- n+1
  -        | _ -> wordFreqs.[word] <- 1
  +        | _       -> wordFreqs.[word] <- 1
   
       let sorted () =
           wordFreqs
  
positive.code:     member __.Dispatch (message : string[]) : obj =
         match message with
         | [| "init"; filePath |] 
             -> init filePath; null
         | [| "words" |] -> words () :> obj
         | x -> raise <| MessageNotUnderstood x
  
  type StopWordsManager () =
  
negative.code:         match message with
          | [| "increment_count"; word |] 
              -> incrementCount word :> obj
          | [| "sorted" |] 
              -> sorted() :> obj
          | x -> raise <| MessageNotUnderstood x
  
  type WordFrequencyController () =
  