anchor.diff:  
       /// Get next symbol name
       let getNextSymbolName() : string =
  -        RSafe <| fun () ->
           symbolNum <- symbolNum + 1
           sprintf "fsr_%d_%d" pid symbolNum
       
       let toR (value: obj) =
  -        RSafe <| fun () ->
           let symbolName = getNextSymbolName()
           let se = engine.Value.SetValue(value, symbolName)
           symbolName, se
   
       let eval (expr: string) = 
  -        RSafe <| fun () ->
           Logging.logWithOutput characterDevice (fun () ->
               Logging.logf "eval(%s)" expr
               engine.Value.Evaluate(expr) )
   
       let evalTo (expr: string) (symbol: string) = 
  -        RSafe <| fun () ->
           Logging.logWithOutput characterDevice (fun () ->
               Logging.logf "evalto(%s, %s)" expr symbol
               engine.Value.SetSymbol(symbol, engine.Value.Evaluate(expr)) )
       
       let exec (expr: string) : unit = 
  -        RSafe <| fun () ->
           Logging.logWithOutput characterDevice (fun () ->
               Logging.logf "exec(%s)" expr 
               use res = engine.Value.Evaluate(expr) in () )
  
positive.code: 
      type RDotNet.REngine with
          member this.SetValue(value: obj, ?symbolName: string) : SymbolicExpression =            
              RSafe <| fun () ->
              let se = convertToR this value
              if symbolName.IsSome then engine.Value.SetSymbol(symbolName.Value, se)
              se
  
negative.code:     let makeSafeName (name: string) = name.Replace("_","__").Replace(".", "_")
  
      let internal bindingInfo (name: string) : RValue = 
          Logging.logf "Getting bindingInfo: %s" name
          match eval("typeof(get(\"" + name + "\"))").GetValue() with
          | "closure" ->
  