(dotimes(i 1e3)(format t"~{~#[~;~A~:;~*~@{Clap~*~}~]~}
"(asdf::split(format()"~A"(1+ i))4"369")))