sig
  type directive =
      [ `B of string
      | `EXT of string list
      | `FLG of string list
      | `PKG of string
      | `REC
      | `S of string ]
  type t =
      [ `B of string
      | `Blank
      | `Comment of string
      | `EXT of string list
      | `FLG of string list
      | `PKG of string
      | `REC
      | `S of string ] list
  val to_string : Ast_merlin.t -> string
  val of_project : Assemblage.project -> Ast_merlin.t
end