(define (list-to-item l) (if (not (null? l)) (begin (display " <li>") (display (car l)) (display "</li>") (newline) (list-to-item (cdr l))))) (define (list-to-ul l) (begin (display "<ul>") (newline) (list-to-item l) (display "</ul>") (newline))) (define (li…