(define (iota-iota i)
    (letrec
        ([loop (lambda (i left)
            (if (equal? left 1)
            (lambda i 1 1)
            (append (loop i (- left 1)) (lambda i left 1))))]

        (lambda (lambda (i left right)
        (if (equal? right i)
           (cons (cons left right) '())
           (cons (cons left right) (lambda i left (+ right 1)))))))
        (loop i i)))
> (iota-iota 2)
. . lambda: undefined;
 cannot use before initialization