(regexp:with-loop-split(s t" ")(doseq(w s)(format(not(eq *(pushnew(intern w)*)))"~&~A"w)))