sig
  val menu :
    ?classe:XHTML.M.nmtoken list ->
    ?id:string ->
    ([< Eliom_services.get_service_kind ] as 'a,
     [< Eliom_services.registrable ] as 'b)
    Eliom_tools_common.one_page * Xhtmltypes.a_content XHTML.M.elt list ->
    (('a, 'b) Eliom_tools_common.one_page *
     Xhtmltypes.a_content XHTML.M.elt list)
    list ->
    ?service:('a, 'b) Eliom_tools_common.one_page ->
    sp:Eliom_sessions.server_params -> [> `Ul ] XHTML.M.elt
  val hierarchical_menu_depth_first :
    ?classe:XHTML.M.nmtoken list ->
    ?id:string ->
    ?whole_tree:bool ->
    ([< Eliom_services.get_service_kind ] as 'a,
     [< Eliom_services.registrable ] as 'b,
     Xhtmltypes.a_content XHTML.M.elt list)
    Eliom_tools_common.hierarchical_site ->
    ?service:('a, 'b) Eliom_tools_common.one_page ->
    sp:Eliom_sessions.server_params -> [> `Ul ] XHTML.M.elt list
  val hierarchical_menu_breadth_first :
    ?classe:XHTML.M.nmtoken list ->
    ?id:string ->
    ([< Eliom_services.get_service_kind ] as 'a,
     [< Eliom_services.registrable ] as 'b,
     Xhtmltypes.a_content XHTML.M.elt list)
    Eliom_tools_common.hierarchical_site ->
    ?service:('a, 'b) Eliom_tools_common.one_page ->
    sp:Eliom_sessions.server_params -> [> `Ul ] XHTML.M.elt list
  val structure_links :
    ([< Eliom_services.get_service_kind ] as 'a,
     [< Eliom_services.registrable ] as 'b,
     Xhtmltypes.a_content XHTML.M.elt list)
    Eliom_tools_common.hierarchical_site ->
    ?service:('a, 'b) Eliom_tools_common.one_page ->
    sp:Eliom_sessions.server_params -> [> `Link ] XHTML.M.elt list
end