diff --git a/src/members-print.scm b/src/members-print.scm
index aebe8c4..ddd1140 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -403,6 +403,21 @@
 					     total))
 		       )))))
        #:col-border #t #:row0-border #t #:ansi #t))
+     (print "Credit: "
+	    (foldl + 0
+		   (map (lambda (member)
+			  (list-ref member 5))
+			members)))
+     (print "Advance: "
+	    (foldl + 0
+		   (map (lambda (member)
+			  (max 0 (list-ref member 5)))
+			members)))
+     (print "Debt: "
+	    (foldl + 0
+		   (map (lambda (member)
+			  (min 0 (list-ref member 5)))
+			members)))
      )
    )