sig type t val write_line : Async.Std.Writer.t -> string -> unit end