40 lines
569 B
Plaintext
40 lines
569 B
Plaintext
open XHTML.M_01_01
|
|
|
|
let _td s = td [pcdata s]
|
|
let _th s = th [pcdata s]
|
|
|
|
let my_table =
|
|
table ~a:[a_border 1]
|
|
(tr
|
|
(_th "") [
|
|
(_th "X");
|
|
(_th "Y");
|
|
(_th "Z")]
|
|
)
|
|
[
|
|
(tr
|
|
(_td "1") [
|
|
(_td "aa");
|
|
(_td "bb");
|
|
(_td "cc")]
|
|
);
|
|
(tr
|
|
(_td "2") [
|
|
(_td "dd");
|
|
(_td "ee");
|
|
(_td "ff")]
|
|
);
|
|
]
|
|
|
|
let my_page =
|
|
html
|
|
(head (title (pcdata "My Page")) [])
|
|
(body
|
|
[ h1 [pcdata "My Table"];
|
|
my_table;
|
|
]
|
|
)
|
|
|
|
let () =
|
|
pretty_print ~width:80 print_string my_page
|