vvalue
connect :: (Monad m, SingI pr)=> Peer ps pr 'NonPipelined initSt m a-> Peer ps (FlipAgency pr) 'NonPipelined initSt m b-> m (a, b, TerminalStates ps)