anchor.diff:      let mutable private heap = Map.empty<string, obj>
   
       /// Pops the HEAD of the stack
  -    let pop<'a> () =
  +    let private pop<'a> () =
           let hd::tl = stack
           stack <- tl
           hd :?> 'a
  
positive.code:     /// Return the current size of the stack
      let len () = stack.Length
  
      /// 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
      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
      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 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
  
  
negative.code: ﻿open System
  open System.Collections.Generic
  open System.IO
  open System.Linq
  open System.Text.RegularExpressions
  
  #time
  