anchor.diff:      {ok, 200, #{<<"block_hash">> := BlockHash}} = get_tx(ContractCallTxHash),
       {ok, 200, BlockHeader} = get_micro_block_header(BlockHash),
   
  -    {Value, BlockHeader}.
  +    {Value, #{header => BlockHeader, return => CallReturn}}.
   
   %% error_call_compute_func(NodeName, Pubkey, Privkey, EncodedContractPubkey,
   %%                         Function, Arguments)
  
positive.code: 
      %% Coinbase.
      ct:pal("Calling coinbase\n"),
      {CoinBaseValue,CBHeader} = call_compute_func(NodeName, CPubkey, CPrivkey,
                                                   EncodedContractPubkey,
                                                   <<"coinbase">>, <<"()">>),
      #{<<"value">> := CoinBase} = decode_data(<<"address">>, CoinBaseValue),
      ct:pal("CoinBase ~p\n", [CoinBase]),
      #{<<"prev_key_hash">> := CBKeyHash} = CBHeader,
  
negative.code:     CBal1 = get_balance(CPubkey),
  
      %% Call the contract bid function by Bert.
      {_,#{return := BidReturn}} =
          call_compute_func(NodeName, BPubkey, BPrivkey,
                            EncodedContractPubkey,
                            <<"bid">>, <<"()">>,
                            #{amount => 100000,fee => Fee}),
      #{<<"gas_used">> := GasUsed,<<"height">> := Height1} = BidReturn,
  
      %% Set the cost from the amount, decrease and diff in height.
  