(defun foo (args)
  (message (concat "Replacing " (car (cdr args)) " ..."))
  (goto-char (point-min))
  (replace-string
    (car (cdr args))
    (concat "# " (car args) " = " (car (cdr args)))
    nil))

(defun bar ()
  (goto-char (point-min))
  (replace-regexp "Selected: \\([^[].*\\)$" "Selected: '\\1'" nil)
  (mapcar 'foo
    '(
       (1 "'1'")
       (2 "'2'")
       (3 "'3'")
       (4 "'4'")
       (5 "'5'")
       (6 "'6'")
       (7 "'7'")
       (8 "'8'")
       (1 "'One'")
       (2 "'Two'")
       (3 "'Three'")
       (4 "'Four'")
       (5 "'Five'")
       (6 "'Six'")
       (7 "'Seven'")
       (8 "'Eight'")
       (1 "'First'")
       (2 "'Second'")
       (3 "'Third'")
       (4 "'Fourth'")
       (5 "'Fifth'")
       (6 "'Sixth'")
       (7 "'Seventh'")
       (8 "'Eighth'")
       (1 "'A'")
       (2 "'B'")
       (3 "'C'")
       (4 "'D'")
       (5 "'E'")
       (6 "'F'")
       (7 "'G'")
       (8 "'H'")
       (1 "'Ape'")
       (2 "'Bear'")
       (3 "'Cat'")
       (4 "'Dragon'")
       (5 "'Elephant'")
       (6 "'Fish'")
       (7 "'Giraffe'")
       (8 "'Horse'")
       (1 "'Print'")
       (2 "'Move'")
       (3 "'Copy'")
       (4 "'Delete'")
       (5 "'Undo'")
       (6 "'Again'")
       (7 "'Find'")
       (8 "'Property'")
       (1 "'Clear'")
       (2 "'Next'")
       (3 "'Skip'")
       (4 "'Center'")
       (5 "'Bold'")
       (6 "'Case'")
       (7 "'Italic'")
       (8 "'Font'")
       (1 "'Apples'")
       (2 "'Spinach'")
       (3 "'Oranges'")
       (4 "'Pears'")
       (5 "'Beets'")
       (6 "'Tomato'")
       (7 "'Peach'")
       (8 "'Cabbage'")
       (1 "'Deliver'")
       (2 "'Another'")
       (3 "'Destroy'")
       (4 "'Reset'")
       (5 "'Kill'")
       (6 "'Abort'")
       (7 "'Start'")
       (8 "'Change'")
       (1 "'Create'")
       (2 "'Stop'")
       (3 "'Expand'")
       (4 "'Define'")
       (5 "'Shift'")
       (6 "'Lock'")
       (7 "'Search'")
       (8 "'Quit'")
       (1 "'North'")
       (2 "'NE'")
       (3 "'East'")
       (4 "'SE'")
       (5 "'South'")
       (6 "'SW'")
       (7 "'West'")
       (8 "'NW'")
       (1 "'Up'")
       (2 "'Black'")
       (3 "'Right'")
       (4 "'Open'")
       (5 "'Down'")
       (6 "'White'")
       (7 "'Left'")
       (8 "'Close'")
       (1 "'Full'")
       (2 "'Dark'")
       (3 "'In'")
       (4 "'Active'")
       (5 "'Empty'")
       (6 "'Light'")
       (7 "'Out'")
       (8 "'Inactive'")
       (1 "'Top'")
       (2 "'Fat'")
       (3 "'Tall'")
       (4 "'Old'")
       (5 "'Bottom'")
       (6 "'Thin'")
       (7 "'Short'")
       (8 "'Young'")
       (1 "'High'")
       (2 "'More'")
       (3 "'Large'")
       (4 "'Quick'")
       (5 "'Low'")
       (6 "'Less'")
       (7 "'Small'")
       (8 "'Slow'")
       ))
  nil)