(loop(format t"~{~A~^ ~} "(regexp:regexp-split"-\\|, \\| and "(format()"~R"(read)))))