(define (time-reps expr numreps)
  
  (define (time-help rep)
    (let ((val (eval expr)))
      (if (= rep numreps)
          val
          (time-help (+ rep 1)))))
  
  (time (time-help 1)))