(use srfi-19)
(define get-date-string (lambda ()
    (let ((date (current-date)))
        (string-append
            (date->string date "~Y~m~d~H~M~S") "."
            (format #f "~3,'0d" (quotient (date-nanosecond date) (expt 10 6)))))))