sig
  val open_ : string -> bool
  val close : unit -> unit
  val append : string -> unit
end