#load "graphics.cma";;

open Graphics;;

(* let x = 10
 * let y = 10 *)

let () =
  open_graph " 900x600";;
  loop_at_exit [Key_pressed; Button_down]
    (fun event ->
      if event.keypressed then
        draw_char event.key
      else
          fill_circle 10 10 10)