#lang racket/base

(require srfi/19)

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

(provide when)