(
  "(?i)[A-M]|([N-Z])"
  (-> '== (-13) (13) if nip swap ord + chr)
  replace-apply
) ^rot13