(defun fix-storynames ()
  (interactive)
  (exchange-point-and-mark)
  (save-excursion
    (while (search-forward "'s" (region-end) t)
      (replace-match " ")
      (search-forward " story")
      (replace-match "")))
  (save-excursion
    (while (re-search-forward "-\\([1-9]\\)-" (region-end) t)
      (replace-match "-0\\1-")
      (backward-char))))