取りあえずソースだけ <!-- これがHTMLファイルの中に書かれています --> <p id=out></p> <script type="application/jscheme"> (define (sxml->xml sxml) (define (make-attr l ac) (if (null? l) ac (make-attr (cdr l) (string-append ac " " (symbol->string (caar l)) "=\"" (cadar l) "\"")))) (define (make-xml x bef aft) (cond ((string? x) (append bef (list x) aft)) ((and (pair? x) (symbol? (car x))) (let ((tag (symbol->string (car x))))
![(XML)HTML駆逐 - Yet Another Ranha](https://cdn-ak-scissors.b.st-hatena.com/image/square/7044e4bd31e9b08ac5a91d6f45c0462f8e093050/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fr%2Franha%2F20080917%2F20080917212151.png)