anchor.diff:      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
  
positive.code: 
  
      let nextMessage expressions =
          let rec finishAll = function
              | [] -> ()
              | hd :: rst ->
                  finish hd expressions
                  finishAll rst
          finishAll stack
          reset ()
  
      let rec find_direction (transform : IokeObject -> IokeObject) current =
  
negative.code: 
      let opTableCreator opTable (runtime:Runtime) =
          let table : IDictionary = new SaneHashtable() :> IDictionary
          opTable |> List.iter (fun (name, precedence) -> table.Item(runtime.GetSymbol(name)) <- runtime.NewNumber(precedence : int))
          table
  
      let runtime = context.runtime
  
  