(defvar phonetics-hash
  #s(hash-table test equal
		data ("a" "alpha"
		      "b" "bravo"
		      "c" "charlie"
		      "d" "delta"
		      "e" "echo"
		      "f" "foxtrot"
		      "g" "golf"
		      "h" "hotel"
		      "i" "india"
		      "j" "juliet"
		      "k" "kilo"
		      "l" "lima"
		      "m" "mike"
		      "n" "november"
		      "o" "oscar"
		      "p" "papa"
		      "q" "quebec"
		      "r" "romeo"
		      "s" "sierra"
		      "t" "tango"
		      "u" "uniform"
		      "v" "victor"
		      "w" "whiskey"
		      "x" "x-ray"
		      "y" "yankee"
		      "z" "zulu"
		      "." "stop"
		      "," "comma"
		      ":" "colon"
		      ";" "semicolon"
		      "!" "exclamation"
		      "?" "question"
		      " " "SPC"
		      "0" "zero"
		      "1" "one"
		      "2" "two"
		      "3" "three"
		      "4" "fower"
		      "5" "fife"
		      "6" "six"
		      "7" "seven"
		      "8" "eight"
		      "9" "niner"))
  "Hash table of phonetic alphabet.")

(defun phoneticize (string)
  "Return STRING rewritten using the phonetic alphabet.

For example: \"cat\" => \"charlie alpha tango\".
It ignores punctuation."
  (interactive "sString to phoneticize: ")
  (let ((str (string-to-list (downcase string)))
	phonetics)
    (with-temp-buffer
      (while str
	(insert (or (gethash (char-to-string (car str)) phonetics-hash)
		    (char-to-string (car str))) " ")
	(setq str (cdr str)))
      (setq phonetics (buffer-string)))
    (if current-prefix-arg
	(insert phonetics)
      (if (interactive-p)
	  (message "%s" phonetics)
	phonetics))))