// Test more advanced chain interactions

contract ChainTest =

  record state = { last_bf : address
                 , nw_id   : string }

  function init() : state =
    {last_bf = Contract.address}

  function miner() = Chain.coinbase

  function save_coinbase() =
    put(state{last_bf = Chain.coinbase})

  function save_network_id() =
    put(state{nw_id = Chain.network_id})