Pascal Bourguignon wrote:

(defun number-list (list)
(loop
:for n :from 1
:for item :in list
:collect (cons n item)))

Gauche Scheme

(map cons (lrange 1) '(foo bar baz))

((1 . foo) (2 . bar) (3 . baz))

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)