#!/usr/bin/newlisp

(define (put-br strarg) (replace "([^\r\n]+)([\r\n]+)" strarg (string $1 "<br>" $2 ) 4))

(define (para strarg) (string "\n<p>" strarg "</p>\n"))

(load (first (2 (main-args))))

(dolist (verse verses)
	(print (para (put-br (replace {-} (replace {[ \t]*--[ \t]*} (replace {[ \t]*_[ \t]*} verse { } 0) {} 0) {} 0)))))

(exit 0)