(do'(d 0(+(length l)d))((format t"~V@T~A
"d(set'l(read-line)))))