Il semble que le truc suivant ne soit pas valide !!  -- Vincent
# let h = html (head (link ()) []) (body []);;
val h : XHTML.M.html = <abstr>
# pretty_print print_string h;;
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html><head><link /></head><body></body></html>
- : unit = ()
