Use the wrapper.

src/members-payments.scm

@@ -132,9 +132,11 @@
 
  ;; Loads all accounts - it expects .csv files in given directory.
  (define (load-accounts accounts-list dir)
-   (map (lambda (acc)
-	  (bank-fio-parse (make-pathname dir (string-append acc ".csv"))))
-	accounts-list))
+   (with-progresses%
+    #t "Fio" (length accounts-list)
+    (map (lambda (acc)
+	   (bank-fio-parse (make-pathname dir (string-append acc ".csv"))))
+	 accounts-list)))
 
  ;; Reads single number from given file and returns it. If no number
  ;; is and/or the file does not exist, returns #f.