open Graphics

let () =
  open_graph " 800x600";
  let _ = read_line() in
  close_graph ()