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