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:     .
  
  performance_messages(Ref) ->
      [ send(Ref, X) || X <- lists:seq(1, 100) ],
      [ receive Y -> Z = erlang:trunc(Y), ?assertEqual(X, Z) end || X <- lists:seq(1, 100) ].
  performance_test() ->
      {ok, Script} = file:read_file("../test_scripts/performance.lua"),
      {ok, Ref} = run(Script),
  
negative.code:     run_core(Script).
  
  send(Lua, Message) ->
      send_core(Lua, Message).
  
  run_core(_Script) ->
      ?nif_stub.
  