(define (read-line)
  (let ((line (read-string)))
    (if (eof-object? line)
        (begin
          (display "Fin de l'entrée.")
          (newline)
          "")
        line)))

(define (read-integer)
  (let ((line (read-string)))
    (if (eof-object? line)
        (begin
          (display "Fin de l'entrée.")
          (newline)
          0)
        (string->number line))))

(define (majeur-checker)
  (display "Veuillez saisir votre nom : ")
  (let ((nom (read-line)))
    (display "Veuillez saisir votre prénom : ")
    (let ((prenom (read-line)))
      (display "Veuillez saisir votre âge : ")
      (let ((age (read-integer)))
        (if (>= age 18)
            (begin
              (display prenom)
              (display " ")
              (display nom)
              (display ", vous êtes majeur.")
              (newline))
            (begin
              (display prenom)
              (display " ")
              (display nom)
              (display ", vous êtes mineur.")
              (newline)))))))

(majeur-checker)