-- | @Noise_I1N:
--  -> e, s
--  <- e, ee
--  -> se
noiseI1N :: HandshakePattern
noiseI1N = handshakePattern "I1N" $
  initiator (e *> s) *>
  responder (e *> ee) *>
  initiator se
noiseI1N :: HandshakePattern
noiseI1N = handshakePattern "I1N" $
  initiator (e *> s) *>
  responder (e *> ee) *>
  initiator se
noiseI1N = handshakePattern "I1N" $
  initiator (e *> s) *>
  responder (e *> ee) *>
  initiator se