anchor.diff:  get_balances(#{} = Pre) ->
       maps:from_list(
         [{Address, B} || {Address, #{balance := B}}
  -			   <- maps:to_list(Pre)]).
  +                           <- maps:to_list(Pre)]).
   
   get_blockhash_fun(Opts, Env, H) ->
       case maps:get(blockhash, Opts, default) of
  -	%% default -> fun(N,A) -> aevm_eeevm_env:get_block_hash(H,N,A) end;
  -	%% sha3 ->
  -	_ -> fun(N,_A) ->
  -			%% Because the data of the blockchain is not
  -			%% given, the opcode BLOCKHASH could not
  -			%% return the hashes of the corresponding
  -			%% blocks. Therefore we define the hash of
  -			%% block number n to be SHA3-256("n").
  -			CurrentNumber = maps:get(currentNumber, Env),
  -			if (N >= CurrentNumber) or (_A == 256) or (H==0) -> 0;
  -			   CurrentNumber - 256 > N -> 0;
  -			   true ->
  -				BinN = integer_to_binary(N),
  -				Hash = aec_hash:hash(evm, BinN),
  -				<<Val:256/integer-unsigned>> = Hash,
  -				Val
  -			end
  -		end
  +        %% default -> fun(N,A) -> aevm_eeevm_env:get_block_hash(H,N,A) end;
  +        %% sha3 ->
  +        _ -> fun(N,_A) ->
  +                        %% Because the data of the blockchain is not
  +                        %% given, the opcode BLOCKHASH could not
  +                        %% return the hashes of the corresponding
  +                        %% blocks. Therefore we define the hash of
  +                        %% block number n to be SHA3-256("n").
  +                        CurrentNumber = maps:get(currentNumber, Env),
  +                        if (N >= CurrentNumber) or (_A == 256) or (H==0) -> 0;
  +                           CurrentNumber - 256 > N -> 0;
  +                           true ->
  +                                BinN = integer_to_binary(N),
  +                                Hash = aec_hash:hash(evm, BinN),
  +                                <<Val:256/integer-unsigned>> = Hash,
  +                                Val
  +                        end
  +                end
       end.
   
   
  
positive.code: format_mem(Mem) ->
     lists:flatten(
       "[" ++
  	 format_mem(lists:sort(maps:to_list(Mem)), ?MAXMEMPOS)
       ++ "]").
  format_mem([],_) -> [];
  format_mem( _,0) -> " ...";
  
negative.code: 
  -module(aevm_eeevm_state).
  -export([ accountbalance/2
          , add_trace/2
          , add_callcreates/2
          , address/1
          , blockhash/3
          , calldepth/1
          , caller/1
          , callcreates/1
          , code/1
          , coinbase/1
          , cp/1
          , data/1
          , difficulty/1
          , extbalance/2
          , extcode/2
          , extcode/4
          , extcodesize/2
          , gas/1
          , gaslimit/1
          , gasprice/1
          , init/1
          , init/2
          , jumpdests/1
          , logs/1
          , origin/1
          , out/1
          , prepare_for_call/7
          , mem/1
          , no_recursion/1
          , number/1
          , return_data/1
          , chain_state/1
          , chain_api/1
          , set_code/2
          , set_cp/2
          , set_gas/2
          , set_jumpdests/2
          , set_logs/2
          , set_mem/2
          , set_out/2
          , set_selfdestruct/2
          , set_stack/2
          , set_storage/2
          , set_chain_state/2
          , stack/1
          , storage/1
          , timestamp/1
          , trace/1
          , trace_format/3
          , value/1
          ]).
  
  -include("aevm_eeevm.hrl").
  
  