diff --git a/src/mailman.scm b/src/mailman.scm
index 250e077..d92cc18 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -144,7 +144,10 @@
 	  (get-mailman-output-lines
 	   "add_members" "-r" "-" listname
 	   (sprintf "<<<\"~A\"" email))))
-     (print result)))
+     (let loop ((lines result))
+       (when (not (null? lines))
+	 (print " | " (car lines))
+	 (loop (cdr lines))))))
 
  ;; Removes given email from given listname
  (define (remove-email-from-mailman-list listname email)
@@ -153,7 +156,10 @@
 	  (get-mailman-output-lines
 	   "remove_members" (car listname)
 	   (sprintf "\"~A\"" email))))
-     (print result)))
+     (let loop ((lines result))
+       (when (not (null? lines))
+	 (print " | " (car lines))
+	 (loop (cdr lines))))))
 
  ;; Ensures given email is in given ML
  (define (mailman-ensure-member ml email)