anchor.diff:      unaryOp regex       // push new Regex to head of stack
       ternaryOp replace   // consume the Regex, replacement and input string
       
  -/// Takes a string on the stack, scan for words, and place the individual words
  -/// on the stack
  +/// Takes a string on the stack, scan for words, and place the individual 
  +/// words on the stack
   let scan () = 
       split ' '
       unaryOp2 (fun (arr : string[]) -> 
  
positive.code: ﻿open System
  open System.IO
  open System.Text.RegularExpressions
  
  
negative.code:     while len() > 0 do
          load<Set<string>> "stop_words"
          binOp (fun (stopWords : Set<string>) word -> 
              if stopWords.Contains word |> not && word.Length >= 2
              then Some word
              else None)
  
          load<string list> "words"
          binOp2 (fun (words : string list) word ->
  