(setq fmt "{<a href=\"%s\">%s</a>}")
(setq pat "\\{([^}]*)\\}")
(setq src (open (main-args 2) "read"))

(println "<pre>")

(while (read-line src)
  (setq line (current-line))
  (if (= (length (find-all pat line)) 5)
    (replace pat line (format fmt $1 $1) 0x8000))
  (println line))

(println "</pre>")

(close src) (exit)