#!r6rs
(library (srfi private helpers)
  (export enumerate)
  (import (rnrs))
  
  (define enumerate
    (lambda (ls)
      (let f ([ls ls] [i 0])
        (if (null? ls)
            '()
            (cons i (f (cdr ls) (fx+ i 1))))))))