  withLocalKadenamintNetwork 3 $ \root -> \case
    [n0, n1, _n2] -> timelineCoinContract root n0 n1
    _ -> impossible

withKadenamintNode :: MonadIO m => KadenamintNode -> m ()
withKadenamintNode kn = liftIO $ do
  let tn = _kadenamintNode_tendermint kn
      home = tn ^. tendermintNode_home