(define (range n m #!optional (k 1))
  (let loop ((i n)
             (acc '()))
    (unless (>= i m))
        (cons i acc)
        (loop (+ i k) acc)))