anchor.diff:  
       let CurrentLevel () = stack.[0]
   
  -    let popDownTo targetLevel (expressions : IList<IokeObject>) =
  +    let popDownTo targetLevel expressions =
           let rec helper () =
               match stack with
                   | []  -> ()
  
positive.code:         helper ()
      
  
      let attachAndReplace self (msg : IokeObject) =
          attach self msg
          self.level <- Attach
          self.message <- msg
  
      let attachToTopAndPush (msg : IokeObject) precedence =
          let top = stack.[0]
          attachAndReplace top msg
  
  
negative.code:                 x
              | opTable -> opTable
  
      let getOpTable (opTable : IokeObject) name creator =
          let create_new () =
              let result = creator runtime
              opTable.SetCell(name, runtime.NewDict(result))
  