(loop(#1=format t"~{~A~^ ~}
"(regexp:regexp-split"[ ,-]\\+\\| and "(#1#/"~R"(read)))))