Re: continuing next iteration

    > (loop for i below 6
            finally (return (reverse (pairlis list list2)))
        do (format t "~d" i)
        collect i into list
        do (format t "^2 = ~2d~%" (* i i))
        collect (* i i) into list2)
    0^2 =  0
    1^2 =  1
    2^2 =  4
    3^2 =  9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

Gauche Scheme

(use srfi-42) ;; list-ec

(list-ec (:range i 6)
  (begin
    (display i)
    (format #t "^2 = ~2d\n" (* i i))
    (cons i (* i i))))

0^2 =  0
1^2 =  1
2^2 =  4
3^2 =  9
4^2 = 16
5^2 = 25
((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))