;; does the job for now – could be improved!

(defun elon ()
  (interactive)
  (goto-char (point-min))
  (while (re-search-forward " twitter" nil t)
    (setq position (random 7))
    (if (eq position 0)
        (replace-match " xtwittexr")
      (if (eq position 1)
          (replace-match " txwitter")
        (if (eq position 2)
            (replace-match " twxitter")
          (if (eq position 3)
              (replace-match " twixtter")
            (if (eq position 4)
                (replace-match " twitxter")
              (if (eq position 5)
                  (replace-match " twittxer")
                (if (eq position 6)
                    (replace-match " twittexr")
                  (if (eq position 7)
                      (replace-match " twxitterx")))))))))))