anchor.diff:  
   micro(bif_dispatch) ->
       #micro{function = bif_dispatch,
  -	   weight = 5,
  -	   loops = 1623,
  +	   weight = 8,
  +	   loops = 5623,
   	   str = "Bif dispatch"};
   
   micro(binary_h) ->
  
positive.code:     %% We run all benchmarks except the port_io as we don't want to
      %% have to build a custom port.
      Micros = ?MODULE:micros() -- [micro(port_io)],
      ?MODULE:macro(Micros,[]).
  
  %%
  %% Calculate CPU speed
  
negative.code:     alloc(I-1).
  
  %% Time to call bif's
  %% This benchmark was updated in OTP-24. I've tried to keep the
  %% number of stones is creates the same, but that is impossible
  %% to achieve across all platforms.
  bif_dispatch(0) ->
      0;
  bif_dispatch(I) ->
      put(mon,erlang:monitor(process,self())),
      disp(),    disp(),    disp(),    disp(),    disp(),    disp(),
      disp(),    disp(),    disp(),    disp(),    disp(),    disp(),
      bif_dispatch(I-1).
  
  disp() ->
      erts_debug:flat_size(true),
      erts_debug:size_shared(true),
      demonitor(get(mon)),
      erts_debug:flat_size(true),
      demonitor(get(mon)),
      erts_debug:size_shared(true),
      demonitor(get(mon)),
      erts_debug:flat_size(true),
      demonitor(get(mon)),
      erts_debug:size_shared(true),
      demonitor(get(mon)),
      erts_debug:flat_size(true),
      demonitor(get(mon)),
      erts_debug:size_shared(true),
      demonitor(get(mon)),
      erts_debug:flat_size(true),
      demonitor(get(mon)),
      erts_debug:size_shared(true),
      demonitor(get(mon)),
      erts_debug:flat_size(true),
      demonitor(get(mon)),
      erts_debug:size_shared(true).
  
  %% Generic server like behaviour
  generic(I) ->
      register(funky, spawn(?MODULE, gserv, [funky, ?MODULE, [], []])),
  