sig val body : unit -> [ `Body ] Eliom_content.Html.elt end