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