(require-extension html-tags)

(define (html-transform list)
	(if (list? (car list))
		(<ul> (html-transform (car list)))
		(<li> (car list)))
	(if (not (null? (cdr list)))
		(html-transform (cdr list))))

(set! testlist '(one two (a b) three))
(html-transform testlist)