let process read_click click =
  loop 
    if Graphics.button_down() then emit click (Graphics.mouse_pos());
    pause
  end

let process read_key key =
  loop
    if Graphics.key_pressed() then emit key (Graphics.read_key());
    pause
  end