pub fn new_session<A>(cont: PartialSession<(), A>) -> PartialSession<(), A> where
    A: Protocol