(defun riemann-left-fast (a b step)
  (declare (type double-float a b step)
           (optimize (speed 3) (safety 0)))
  (do* ((n a (+ n step))
        (acc (sin n) (+ acc (sin n)))
        (end (- b step)))
       ((> n end) (the double-float acc))))