Обработка html в newLISP

Лутц таки убрал "анафорическую" переменную $it из replace. Теперь моя функция обработки html выглядит вот так:

; Отображает несколько html-файлов с вкраплениями кода на newLISP
(define (process-html)
  (let (html (join (map read-file (args))))
    (do-while (> $0)
      (replace "<@((?!<@).)+?@>" html 
        (if (catch (eval-string (2 -2 $0)) 'result) (string result) "") 4))
    (print "Content-type: text/html\r\n\r\n" html)))