anchor.diff:      /// Return the current size of the stack
       let len () = stack.Length
   
  -    /// Stores a new value against the specified name in the heap
  +    /// Stores a new value against the specified name 
  +    /// in the heap
       let store name value = heap <- heap.Add(name, value)
   
  -    /// Loads the value associated with the name onto the stack
  +    /// Loads the value associated with the name onto 
  +    /// the stack
       let load<'a> name = heap.[name] |> push
   
  -    /// Performs a unary operation against the HEAD of the stack
  -    let unaryOp (f : 'a -> 'b)    = pop<'a>() |> f |> push
  +    /// Performs a unary operation against the HEAD of 
  +    /// the stack
  +    let unaryOp (f : 'a -> 'b) = pop<'a>() |> f |> push
       let unaryOp2 (f : 'a -> unit) = pop<'a>() |> f
   
  -    /// Performs a binary operation against the last two items on the stack
  -    let binOp (f : 'a -> 'b -> 'c)    = f (pop<'a>()) (pop<'b>()) |> push
  -    let binOp2 (f : 'a -> 'b -> unit) = f (pop<'a>()) (pop<'b>())
  +    /// Performs a binary operation against the last 
  +    /// two items on the stack
  +    let binOp (f : 'a -> 'b -> 'c) = 
  +        f (pop<'a>()) (pop<'b>()) |> push
  +    let binOp2 (f : 'a -> 'b -> unit) = 
  +        f (pop<'a>()) (pop<'b>())
   
  -    /// Performs a ternary operation against the last three items on the stack
  +    /// Performs a ternary operation against the last 
  +    /// three items on the stack
       let ternaryOp (f : 'a -> 'b -> 'c -> 'd ) = 
           f (pop<'a>()) (pop<'b>()) (pop<'c>()) |> push
   
  
positive.code: 
      let printHeap() =
          printfn "============== HEAP =============="
          heap |> Map.iter (fun name value -> printfn "%s : %A" name value)
          printfn "============== HEAP =============="
  
  let readFile () = unaryOp File.ReadAllText
  
  let split (separator : char) =
      unaryOp (fun (str : string) -> 
          str.Split([| separator |], StringSplitOptions.RemoveEmptyEntries))
  
  let replaceNonAlphanumeric () =
      let regex pattern = new Regex(pattern)
  
negative.code: /// Takes a string on the stack, scan for words, and place the individual 
  /// words on the stack
  let scan () = 
      push ' '; split()
      unaryOp2 (fun (arr : string[]) -> 
          for word in arr do push <| word.ToLower())
  
  let removeStopWords () =
      push stopWords; readFile()
      push ','; split()
  
      unaryOp2 (fun (arr : string[]) -> 
          arr |> Set.ofArray |> store "stop_words")                
  