;; gse-iter.el
;;   Summary:     Insert ascending/descending numbers, one per line.
;;   Author:      Scott Evans <gse@antisleep.com>
;;   Home:        http://www.antisleep.com/elisp
;;   Time-stamp:  <2004.12.23 00:13:35 gse>
;;
;; Installation:
;;   (require 'gse-iter)
;;
;;---------------------------------------------------------------------------
;; Change Log
;; ----------
;; 2004.12.23 Created.
;;---------------------------------------------------------------------------

(defun gse-iter (first last)
  "Insert numbers from FIRST to LAST, one per line."
  (interactive "nFirst: \nnLast: ")
  (let ((i first))
    (if (< first last)
        (while (<= i last)
          (insert (format "%d\n" i))
          (setq i (+ 1 i)))
      (while (>= i last)
            (insert (format "%d\n" i))
            (setq i (- i 1))))))

(provide 'gse-iter)