リストをHTMLに変換

(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 (list-to-ol l)
  (begin 
    (display "<ol>")
    (newline)
    (list-to-item l)
    (display "</ol>")
    (newline)))

(list-to-ul '("アイテムA" "アイテムB" "アイテムC"))
; => <ul>
;      <li>アイテムA</li>
;      <li>アイテムB</li>
;      <li>アイテムC</li>
;    </ul>

(list-to-ol '("アイテム1" "アイテム2" "アイテム3"))
; => <ol>
;      <li>アイテム1</li>
;      <li>アイテム2</li>
;      <li>アイテム3</li>
;    </ol>

; 以下の形式は未対応
; (list-to-ul '("アイテムA" '("アイテムB1" "アイテムB2") "アイテムC"))