open Unix

;;

Sys.set_signal Sys.sigalrm
               (Sys.Signal_handle (fun _ -> Printf.printf "H%!"));
ignore (Unix.alarm 1);
while true do
  Printf.printf ".%!"
done