diff --git a/fmba-schedule.rkt b/example-schedule.rkt
similarity index 100%
rename from fmba-schedule.rkt
rename to example-schedule.rkt
diff --git a/group-scheduling.rkt b/group-scheduling.rkt
index fdc9589..d24ea77 100644
--- a/group-scheduling.rkt
+++ b/group-scheduling.rkt
@@ -366,8 +366,10 @@
   (define (print-all-meetings group)
     (printf "Meetings so far:~n")
     (for-each (lambda (p0)
-		(printf "~a has met ~a~n"
-			p0 (drop (map (lambda (p1) (cdar p1))
+		(printf "~a has met ~a others: ~a~n"
+			p0
+                        (- (length (all-meetings p0)) 2)
+                        (drop (map (lambda (p1) (cdar p1))
                                       (all-meetings p0)) 2)))
               group)
     (printf "~n"))