こんなんで我慢してちょ

(define (bench exp)
__(let* ((start (current-milliseconds))
_________(value exp)
_________(end (current-milliseconds)))
____(display start)
____(newline)
____(display value)
____(newline)
____(display end)
____(newline)
____(display (- end start))))

ミリ秒でしか測れないし
余計な出力もあるのがダサいけど