sig
  val menu :
    ?classe:XHTML.M.nmtoken list ->
    (unit, unit, [< Eliom.get_service_kind ], [ `WithoutSuffix ],
     unit Eliom.param_name, unit Eliom.param_name, [< Eliom.registrable ])
    Eliom.service * Xhtmltypes.a_content XHTML.M.elt list ->
    ((unit, unit, [< Eliom.get_service_kind ], [ `WithoutSuffix ],
      unit Eliom.param_name, unit Eliom.param_name, [< Eliom.registrable ])
     Eliom.service * Xhtmltypes.a_content XHTML.M.elt list)
    list ->
    (unit, unit, [< Eliom.get_service_kind ], [ `WithoutSuffix ],
     unit Eliom.param_name, unit Eliom.param_name, [< Eliom.registrable ])
    Eliom.service -> Eliom.server_params -> [> `Ul ] XHTML.M.elt
end