> (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))

(do ((i 0 (+ i 1))
(_ 0 (format #t "^2 = ~2D~%" (* i i)))
(lst '() (cons i lst))
(lst2 '() (cons (* i i) lst2)))
((= i 6) (reverse (map cons lst lst2)))
(format #t "~D" 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))

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

> (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))

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