       ":some.where 001 factorbot :Welcome factorbot"
     } make-client
     { [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ profile>> nickname>> ]
       [ terminate-irc ]
     } cleave ] unit-test

                             { "somedude" f } } clone >>participants ] keep
        ] dip set-at ]
      [ connect-irc ]
      [ drop 1 seconds sleep ]
      [ listeners>> [ "#factortest" ] dip at participants>> ]
      [ terminate-irc ]
    } cleave

      [ listeners>>
        [ "#factortest" [ <irc-channel-listener> ] keep ] dip set-at ]
      [ connect-irc ]
      [ drop 0.1 seconds sleep ]
      [ listeners>> [ "#factortest" ] dip at participants>> ]
      [ terminate-irc ]
    } cleave
