anchor.diff:  drop_extra_resps(PidMRefs) ->
       lists:foreach(
         fun ({_, MRef}) ->
  -              receive
  -                  {MRef, _} ->
  -                      ok
  -              after
  -                  0 ->
  -                      ok
  -              end
  +              ?flush({MRef, _})
         end, PidMRefs).
   
   reply({Pid, Tag}, Reply) ->
  
positive.code: 
  -module(async).
  
  -export([start/1, start_many/2,
           abort/1, abort_many/1,
           send/2,
  
negative.code:             Result = async_loop_handle_result(Result0),
  
              unlink(Child),
              ?flush({'EXIT', Child, _}),
  
              async_loop_with_result(ParentMRef, Result);
          {'$async_msg', Msg} ->
  