sig
  type t
  val str : Lxm.t -> string
  val line : Lxm.t -> int
  val cstart : Lxm.t -> int
  val cend : Lxm.t -> int
  val make : Lexing.lexbuf -> Lxm.t
  val new_line : Lexing.lexbuf -> unit
  type 'a srcflaged = { src : Lxm.t; it : 'a; }
  val flagit : '-> Lxm.t -> 'Lxm.srcflaged
  val dummy : Lxm.t
  val last_made : unit -> Lxm.t
  val details : Lxm.t -> string
  val position : Lxm.t -> string
end