condloop.fs

open System

let rec prompt convert msg =
    printf msg
    try
        Console.ReadLine() |> convert
    with _ -> prompt convert msg


let processPersonInfo() =
    let name = prompt string "Name: "
    let age = prompt int "Age: "

    let kind = if age >= 20 then "no longer a teenager"
               elif age < 20 && age > 13 then "teenager"
               else "child"

    printf "%s (%i) is a %s.%s" name age kind Environment.NewLine

[<EntryPoint>]
let main argv =
    let n = prompt int "How many people? "
    for i = 1 to n do
       processPersonInfo()
    0