anchor.diff:      ?assertEqual(ok, send(Ref, ok)).
   
   bounce_message(Ref, Message) ->
  -    send(Ref, Message),
  +    send(Ref, { {data, Message}, {pid, self()} }),
       receive 
           Response -> 
               Response
  
positive.code:     run_core(Script).
  
  send(Lua, Message) ->
      send_core(Lua, [{pid, self()}, {type, mail}, {data, Message}]).
  
  load(Lua, Path, Module) ->
      send_core(Lua, [{pid, self()}, {type, load}, {module, Module}, {path, Path}]).
  
  reply(LuaCallback, Response) ->
      {1.0, Lua} = lists:nth(1, LuaCallback),
      {2.0, CallbackId} = lists:nth(2, LuaCallback),
      send_core(Lua, [{pid, self()}, {callback_id, CallbackId}, {type, reply}, {reply, Response}]).
  
  run_core(_Script) ->
      ?nif_stub.
  
negative.code:     % garbage collected half way through processing
      io_lib:format("~p processed~n", [Ref]).
  
  -endif.
  