I just wrote:
+---------------
|     opfr> loop for x from 1 to 10 \
| 	         and y = (expt 1 x) \
| 	      collect (cons x y)
|     ((1 . 1) (2 . 1) (3 . 1) (4 . 1) (5 . 1) (6 . 1) (7 . 1)
|      (8 . 1) (9 . 1) (10 . 1))
|     opfr> 
+---------------
Oops! My bad. Typo. Actually, two typos! I *meant* to type:
    opfr> loop for x from 1 to 10 \
               for y = (expt 2 x) \
            collect (cons x y)
    ((1 . 2) (2 . 4) (3 . 8) (4 . 16) (5 . 32) (6 . 64) (7 . 128)
     (8 . 256) (9 . 512) (10 . 1024))
    opfr> 
Sorry 'bout that...
-Rob
-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607