(define (index-list l)
  (let loop ((l l)
	     (i 1))
    (if (null? l)
	'()
	(cons (cons i (car l))
	      (loop (cdr l)
		    (+ 1 1))))))

(pp (index-list '(a b c d)))