open Newt

let () =
  init_and_finish (
    fun () ->
      cls ();
      draw_root_text 0 0 "Root text";
      let str = "Root text in the other corner" in
      draw_root_text (- String.length str) (-2) str;

      draw_root_text 10 10 "Press any key to exit";

      push_help_line "This is the help line";

      refresh ();

      wait_for_key ()
  );

  Gc.compact ()