Fix month computation.

brmsaptool.scm

@@ -76,6 +76,7 @@
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
  (-mn (nick) "Specify member by nick" (-member-nick- nick))
  (-pi () "Print information" (-action- 'print-info))
+ (-stats () "Get stats for all months" (-action- 'print-stats))
  )
 
 ;; Load the members database (required for everything anyway)
@@ -98,4 +99,7 @@
    (if mr
        (print-member-record-info mr)
        (print-members-base-info MB))
-   (newline)))
+   (newline))
+  ((print-stats)
+   (print (members-base-stats MB)))
+  )