;; utc.ss - (c) rohan drape, 2006-2007

(module utc scheme/base

(provide utc)

(define (utc)
  (/ (current-inexact-milliseconds) 1000.0))

)