-- | @Noise_XX1:
--  -> e
--  <- e, ee, s
--  -> es, s, se
noiseXX1 :: HandshakePattern
noiseXX1 = handshakePattern "XX1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s *> se)
noiseXX1 :: HandshakePattern
noiseXX1 = handshakePattern "XX1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s *> se)
noiseXX1 = handshakePattern "XX1" $
  initiator e *>
  responder (e *> ee *> s) *>
  initiator (es *> s *> se)