anchor.diff:  
       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
  -
  +        opTable |> List.iter (fun (name, precedence) -> table.Item(runtime.GetSymbol(name)) <- runtime.NewNumber(precedence : int))
  +        table
   
       let runtime = context.runtime
   
  
positive.code:     let alreadyHasArgs level msg =
          level.level <- Attach
          level.message <- msg
  
      let ignore _ = ()
  
      let (|Detach|Clear|None|) (arg:IokeObject, message:IokeObject) =
          match (message.Name, arg.Name, arg.Arguments.Count, Message.GetNext(arg)) with
  
negative.code: 
  
      let nextMessage expressions =
          stack |> List.iter (fun hd -> finish hd expressions)
          reset ()
  
      let rec find_direction (transform : IokeObject -> IokeObject) current =
  