sig
  type t =
      Lident of string
    | Ldot of Longident.t * string
    | Lapply of Longident.t * Longident.t
  val flatten : Longident.t -> string list
  val unflatten : string list -> Longident.t option
  val last : Longident.t -> string
  val parse : string -> Longident.t
end