-- | @Noise_X1X
--  -> e
--  <- e, ee, s, es
--  -> s
--  <- se
noiseX1X :: HandshakePattern
noiseX1X = handshakePattern "X1X" $
  initiator e *>
  responder (e *> ee *> s *> es) *>
  initiator s *>
  responder se
noiseX1X :: HandshakePattern
noiseX1X = handshakePattern "X1X" $
  initiator e *>
  responder (e *> ee *> s *> es) *>
  initiator s *>
  responder se
noiseX1X = handshakePattern "X1X" $
  initiator e *>
  responder (e *> ee *> s *> es) *>
  initiator s *>
  responder se