(* Fonction pour lire une ligne de l'entrée standard *)
let read_line () =
  try
    input_line stdin
  with End_of_file -> ""

(* Fonction pour lire un entier de l'entrée standard *)
let read_int () =
  try
    int_of_string (input_line stdin)
  with
  | Failure _ -> 0
  | End_of_file -> 0

(* Fonction principale *)
let majeur_checker () =
  (* Demander le nom *)
  print_string "Veuillez saisir votre nom : ";
  let nom = read_line () in

  (* Demander le prénom *)
  print_string "Veuillez saisir votre prénom : ";
  let prenom = read_line () in

  (* Demander l'âge *)
  print_string "Veuillez saisir votre âge : ";
  let age = read_int () in

  (* Vérifier si l'utilisateur est majeur *)
  if age >= 18 then
    Printf.printf "%s %s, vous êtes majeur.\n" prenom nom
  else
    Printf.printf "%s %s, vous êtes mineur.\n" prenom nom

(* Appeler la fonction principale *)
let () = majeur_checker ()