open Core.Std
open Async.Std
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
let () =
Command.(run (async ~summary:"" Spec.empty main))