#lang scheme/base

(require srfi/19)

; accurate to a little more than a second (day/#x10000 ~ #x1.8)

(define (when)
  (let ((estimate (round (* (current-julian-day) #x10000))))
    (let-values (((high low) (quotient/remainder estimate #x10000)))
      (format "~x.~x" high low))))

(provide when)