anchor.diff:      ok.
   
   reference_1(Alg) ->
  -    Refval  = reference_val(Alg),
  -    Testval = gen(Alg),
  -    case Refval =:= Testval of
  -        true -> ok;
  -        false when Refval =:= not_implemented ->
  -            exit({not_implemented,Alg});
  -        false ->
  -	    io:format("Failed: ~p~n",[Alg]),
  -	    io:format("Length ~p ~p~n",[length(Refval), length(Testval)]),
  -	    io:format("Head ~p ~p~n",[hd(Refval), hd(Testval)]),
  -	    exit(wrong_value)
  +    Refval = reference_val(Alg),
  +    if
  +	Refval =:= not_implemented -> Refval;
  +	true ->
  +	    case gen(Alg) of
  +		Refval -> ok;
  +		Testval ->
  +		    io:format("Failed: ~p~n",[Alg]),
  +		    io:format("Length ~p ~p~n",[length(Refval), length(Testval)]),
  +		    io:format("Head ~p ~p~n",[hd(Refval), hd(Testval)]),
  +		    exit(wrong_value)
  +	    end
       end.
   
   gen(Algo) ->
  
positive.code:      250227633882474729,171181147785250210,55437891969696407,
       241227318715885854,77323084015890802,
       1663590009695191,234064400749487599,222983191707424780,
       254956809144783896,203898972156838252].
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  
negative.code:     reference_jump_val(exsplus);
  reference_jump_val(exs1024s) ->
      reference_jump_val(exs1024);
  reference_jump_val(exs64) -> [error_not_implemented];
  reference_jump_val(exrop) ->
  %% #include <stdint.h>
  %% #include <stdio.h>
  