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: 
      %% Value.
      ct:pal("Calling call_value\n"),
      {CVValue,_} = call_compute_func(NodeName, BPubkey, BPrivkey,
                                      EncodedContractPubkey,
                                      <<"call_value">>, <<"()">>),
      #{<<"value">> := CallValue} = decode_data(<<"int">>, CVValue),
      ct:pal("Call value ~p\n", [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"),
      {GPValue,_} = call_compute_func(NodeName, BPubkey, BPrivkey,
                                      EncodedContractPubkey,
                                      <<"call_gas_price">>, <<"()">>),
      #{<<"value">> := GasPrice} = decode_data(<<"int">>, GPValue),
      ct:pal("Gas price ~p\n", [GasPrice]),
  
      %% Account balances.
      ct:pal("Calling get_balance twice\n"),
  
negative.code:     ct:pal("Call return ~p\n", [CallReturn]),
  
      #{<<"return_type">> := <<"ok">>,<<"return_value">> := Value} = CallReturn,
  
      %% Get the block where the tx was included
      {ok, 200, #{<<"block_hash">> := BlockHash}} = get_tx(ContractCallTxHash),
      {ok, 200, BlockHeader} = get_micro_block_header(BlockHash),
  
      {Value, BlockHeader}.
  
  %% error_call_compute_func(NodeName, Pubkey, Privkey, EncodedContractPubkey,
  %%                         Function, Arguments)
  