anchor.diff:          match message with
           | [| "increment_count"; word |] 
               -> incrementCount word :> obj
  -        | [| "sorted" |] -> sorted() :> obj
  +        | [| "sorted" |] 
  +            -> sorted() :> obj
           | x -> raise <| MessageNotUnderstood x
   
   type WordFrequencyController () =
  
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:     let incrementCount word =
          match wordFreqs.TryGetValue word with
          | true, n -> wordFreqs.[word] <- n+1
          | _       -> wordFreqs.[word] <- 1
  
      let sorted () =
          wordFreqs
  