(require 'rep.threads)

(defvar *counter* nil)

(defun thread-fun (id)
  (let
      ((*counter* (* id 1000)))
    (while t
      (format standard-output "thread-%s: %8d\n" id *counter*)
      (setq *counter* (1+ *counter*)))))

(setq thread-1 (make-thread (lambda () (thread-fun 1)) "thread-1"))
(setq thread-2 (make-thread (lambda () (thread-fun 2)) "thread-2"))