(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)))))))