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