sig
  type ('a, 'b) one_page =
      (unit, unit, 'a, [ `WithoutSuffix ], unit, unit, 'b)
      Eliom_services.service
  type ('a, 'b, 'c) hierarchical_site_item =
      Disabled
    | Site_tree of ('a, 'b, 'c) Eliom_tools_common.hierarchical_site
  and ('a, 'b, 'c) main_page =
      Main_page of ('a, 'b) Eliom_tools_common.one_page
    | Default_page of ('a, 'b) Eliom_tools_common.one_page
    | Not_clickable
  and ('a, 'b, 'c) hierarchical_site =
      ('a, 'b, 'c) Eliom_tools_common.main_page *
      ('c * ('a, 'b, 'c) Eliom_tools_common.hierarchical_site_item) list
  val menu_class : string
  val last_class : string
  val current_class : string
  val disabled_class : string
  val first_class : string
  val level_class : string
end