let main () : unit Deferred.t =
  Writer.open_file "fsync.txt" >>= fun w ->
  Writer.write w (String.make 10_000_000 '.');
  Writer.fsync w >>= fun () ->
  ignore (Pervasives.exit (-1));
  return ()