let main () : unit Deferred.t = let msg = "hello world!" in let file = "writeLine.txt" in Writer.open_file file >>= fun w -> Writer.write_line w msg; Writer.close w