anchor.diff:  to_json(Hyper) ->
       {[
         {<<"p">>, Hyper#hyper.p},
  -      {<<"registers">>, array:to_list(array:resize(Hyper#hyper.registers))}
  +      {<<"registers">>, encode_registers(Hyper#hyper.registers)}
        ]}.
   
   from_json({Struct}) ->
  
positive.code:     Registers = array:fix(
                    array:resize(
                      M, array:from_list(
                           proplists:get_value(<<"registers">>, Struct), 0))),
  
      #hyper{p = P, registers = Registers}.
  
  
  alpha(16) -> 0.673;
  
negative.code: -export([to_json/1, from_json/1]).
  
  -record(hyper, {p, registers}).
  
  %%
  %% API
  %%
  
  new(P) when 4 =< P andalso P =< 16 ->
      M = trunc(pow(2, P)),
  