(use srfi-1)
(use binary.pack)

(with-input-from-file "./d" (lambda ()
                              (map-in-order (lambda _
                                              (receive (lname fname sex age year month) (apply values (unpack "Z12Z12AA3A4A2"))
                                                (list ((#/(\s+)$/ lname) 'before)
                                                      ((#/(\s+)$/ fname) 'before)
                                                      sex
                                                      (x->integer ((#/^(\s*)/ age) 'after))
                                                      year
                                                      month
                                                      (map-in-order (lambda _
                                                                      (unpack "A2Z500Z500Z500"))
                                                                    (iota 31)))))
                                            (iota 500))))