(define bench (lambda (func . args) (let* ((t (clock:clock)) (res (apply func args))) (- (clock:clock) t))))