Tidy up regex reader-macro with cond