let write_msg (w: Writer.t) : unit Deferred.t = let msg = "hello world!" in Writer.write_line w msg; return ()