(use gauche.time)

(define-syntax time
  (syntax-rules ()
    ((_ proc)
     (let* ((rtc (make <real-time-counter>))
            (result (with-time-counter rtc proc)))
       (print #`"elapsed: ,(time-counter-value rtc)")
       result))))