(define split-clock-time (lambda (t) (cons (real->integer t) (real->integer (* 1000000000.0 (modulo t 1.0))))))