-- | @Noise_I1X1:
--  -> e, s
--  <- e, ee, s
--  -> se, es
noiseI1X1 :: HandshakePattern
noiseI1X1 = handshakePattern "I1X1" $
  initiator (e *> s) *>
  responder (e *> ee *> s) *>
  initiator (se *> es)
noiseI1X1 :: HandshakePattern
noiseI1X1 = handshakePattern "I1X1" $
  initiator (e *> s) *>
  responder (e *> ee *> s) *>
  initiator (se *> es)
noiseI1X1 = handshakePattern "I1X1" $
  initiator (e *> s) *>
  responder (e *> ee *> s) *>
  initiator (se *> es)