anchor.diff:  get_top() ->
       Host = external_address(),
       http_request(Host, get, "blocks/top", []).
  +
  +get_micro_block_header(Hash) ->
  +    Host = external_address(),
  +    http_request(Host, get,
  +                 "micro-blocks/hash/"
  +                 ++ binary_to_list(Hash)
  +                 ++ "/header", []).
  +
  +get_key_block(Hash) ->
  +    Host = external_address(),
  +    http_request(Host, get,
  +                 "key-blocks/hash/"
  +                 ++ binary_to_list(Hash), []).
   
   get_key_blocks_current_height() ->
       Host = external_address(),
  
positive.code:                  priv_key := DPrivkey}} = proplists:get_value(accounts, Config),
  
      %% Make sure accounts have enough tokens.
      ABal0 = ensure_balance(APubkey, 50000),
      BBal0 = ensure_balance(BPubkey, 50000),
      CBal0 = ensure_balance(CPubkey, 50000),
      DBal0 = ensure_balance(DPubkey, 50000),
      {ok,[_]} = aecore_suite_utils:mine_key_blocks(NodeName, 1),
  
      %% Compile test contract "environment.aes"
  
negative.code: 
      %% Value.
      ct:pal("Calling call_value\n"),
      ExpectedValue = 5,
      {CVValue,_} = call_compute_func(NodeName, BPubkey, BPrivkey,
                                      EncodedContractPubkey,
                                      <<"call_value">>, <<"()">>,
                                      #{amount => ExpectedValue}
                                     ),
      #{<<"value">> := CallValue} = decode_data(<<"int">>, CVValue),
      ct:pal("Call value ~p\n", [CallValue]),
      ?assertEqual(ExpectedValue, CallValue),
      ct:pal("Calling nested_value\n"),
      {NestedValue, _} = call_compute_func(NodeName, BPubkey, BPrivkey,
                                           EncodedContractPubkey,
                                           <<"nested_value">>, <<"(42)">>),
      ct:pal("Nested value ~p\n", [NestedValue]),
  
      %% Gas price.
      ct:pal("Calling call_gas_price\n"),
      ExpectedGasPrice = 2,
      {GPValue,_} = call_compute_func(NodeName, BPubkey, BPrivkey,
                                      EncodedContractPubkey,
                                      <<"call_gas_price">>, <<"()">>,
                                      #{gas_price => ExpectedGasPrice}
                                     ),
      #{<<"value">> := GasPrice} = decode_data(<<"int">>, GPValue),
      ct:pal("Gas price ~p\n", [GasPrice]),
      ?assertEqual(ExpectedGasPrice, GasPrice),
  
      %% Account balances.
      ct:pal("Calling get_balance twice\n"),
  