18 lines
366 B
Racket
18 lines
366 B
Racket
#lang racket
|
|
|
|
(require xml)
|
|
|
|
(define xexpr
|
|
`(html
|
|
(head)
|
|
(body
|
|
(table
|
|
(tr (td) (td "X") (td "Y") (td "Z"))
|
|
,@(for/list ([i (in-range 1 4)])
|
|
`(tr (td ,(~a i))
|
|
(td ,(~a (random 10000)))
|
|
(td ,(~a (random 10000)))
|
|
(td ,(~a (random 10000)))))))))
|
|
|
|
(display-xml/content (xexpr->xml xexpr))
|