CL list comprehension:

  (loop for file across "ABCDEFGH"
        nconc (loop for rank from 1 to 9
                    collect (format nil "~C~D" file rank)))