anchor.diff: -﻿open System
  -open System.Collections.Generic
  +﻿open System.Collections.Generic
   open System.IO
   open System.Text.RegularExpressions
   
  
positive.code: 
  type Map = Dictionary<string, obj>
  
  let extractWords (obj : Map) path =
      let regex = Regex("[\W_]+")
      obj.["data"] <- 
          regex.Replace(File.ReadAllText path, " ")
               .ToLower()
               .Split()
  
  let loadStopWords (obj : Map) =
      let stopWords = 
  
negative.code:         |> Set.ofArray
      obj.["stop_words"] <- stopWords
  
  stopWordsObj.["init"] <- fun () -> loadStopWords stopWordsObj
  stopWordsObj.["is_stop_word"] <- 
      fun word -> 
          (stopWordsObj.["stop_words"] :?> Set<string>)
  