anchor.diff:  
   
       let nextMessage expressions =
  -        let rec finishAll = function
  -            | [] -> ()
  -            | hd :: rst ->
  -                finish hd expressions
  -                finishAll rst
  -        finishAll stack
  +        stack |> List.iter (fun hd -> finish hd expressions)
           reset ()
   
       let rec find_direction (transform : IokeObject -> IokeObject) current =
  
positive.code: 
      let opTableCreator opTable (runtime:Runtime) =
          let table : IDictionary = new SaneHashtable() :> IDictionary
          let rec create = function
              | (name, precedence) :: rest ->
                  table.Item(runtime.GetSymbol(name)) <- runtime.NewNumber(precedence : int)
                  create rest
              | [] -> table
          create opTable
  
  
      let runtime = context.runtime
  
  
negative.code:     let alreadyHasArgs level msg =
          level.level <- Attach
          level.message <- msg
  
      let (|Detach|Clear|None|) (arg:IokeObject, message:IokeObject) =
          match (message.Name, arg.Name, arg.Arguments.Count, Message.GetNext(arg)) with
  