-- | @Noise_X1X1:
--  -> e
--  <- e, ee, s
--  -> es, s
--  <- se
noiseX1X1 :: HandshakePattern
noiseX1X1 = handshakePattern "X1X1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s) *>
  responder se
noiseX1X1 :: HandshakePattern
noiseX1X1 = handshakePattern "X1X1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s) *>
  responder se
noiseX1X1 = handshakePattern "X1X1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s) *>
  responder se