async fn land_header_chain<S>(
    blockchain: Blockchain,
    stream: S
) -> Result<Option<ChainAdvance<S>>, Error>where
    S: Stream<Item = Header> + Unpin,