(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)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page