(loop(loop as i to 7 as(a b)=(regexp:regexp-split" "(read-line))then`(,b,(#0=format()"~A~A"b a))do(#0#t"~[~&~:; ~]~A"i a)))