Module 2 Problem

let rec promptInt prompt errorMessage  =
    printf prompt
    let canParse, parsedValue = Int32.TryParse(Console.ReadLine())
    if canParse then parsedValue
    else
        printfn "%s" errorMessage
        promptInt prompt errorMessage

let rec getDetails () =
    printf "Please enter the name: "
    let name = Console.ReadLine ()
    let age = promptInt "Please enter the age: " "Invalid age!"
    if age >= 20 then
        printfn "%s is no longer a teenager." name
    elif age < 20 && age > 13 then
        printfn "%s is a teenager." name
    elif age < 0 then
        printfn "A person can't be less than 0 years old!"
        getDetails ()
    else
        printfn "%s is a child." name

[<EntryPoint>]
let main argv =
    let numOfPeople = promptInt "How many people would you like to enter? " "Invalid number of people!"
    for i = 1 to numOfPeople do
        getDetails ()
    0 // return an integer exit code