Ummon

open System

let rec readAge () : int =   
    printf "Age: "
    match Int32.TryParse(Console.ReadLine()) with
    | true, age when age > 0 -> age
    | _ ->
        printfn "Cannot read the age, please retry.."
        readAge ()