pub fn accept_shared_session<F>(
    cont: impl Future<Output = PartialSession<(Lock<F>, ()), F::Applied>> + Send + 'static
) -> SharedSession<LinearToShared<F>> where
    F: Protocol,
    F: SharedRecApp<SharedToLinear<LinearToShared<F>>>,
    F::Applied: Protocol