@@ -1,7 +1,7 @@
 ;; watch nanomsg's pipeline load-balancer in action.
-(use nanomsg)
+(use nanomsg posix regex)
 
 (define req   (nn-socket 'req))
 
 (nn-connect req  "tcp://localhost:22022")
 
@@ -9,14 +9,15 @@
 (define (client-send-receive soc msg)
   (nn-send soc msg)
   (nn-recv soc))
 
 (define ((talk-to-server soc))
-  (let loop ((cnt 2000))
+  (let loop ((cnt 200000))
     (let ((name (list-ref '("Matt" "Tom" "Bob" "Jill" "James" "Jane")(random 6))))
-      (print "Sending " name)
-      (print (client-send-receive req name))
+      ;; (print "Sending " name)
+      ;; (print
+      (client-send-receive req name) ;; )
       (if (> cnt 0)(loop (- cnt 1)))))
   (print (client-send-receive req "quit"))
   (nn-close req)
   (exit))