Problem 2

open System

let field (age : int) : string =
    if age >= 20 then
       " no longer a teenager"
    elif age > 13 then
        " is a teenager"
    else
        " is a kid"


let rec questions n =
    Console.WriteLine("Write a name: ")
    let name = Console.ReadLine()
    Console.WriteLine("Write his age: ")
    let age = Console.ReadLine()
    let age = int age

    Console.WriteLine("Do you want to put another name? (y/n): ")
    let response = Console.ReadLine()

    if response = "y" then
        questions n
        Console.WriteLine(name + field(age))
    else
        Console.WriteLine("LIST NAMES")
        Console.WriteLine("==========")
        Console.WriteLine(name + field(age))

[<EntryPoint>]
let main argv =
    questions 1
    0 // return an integer exit code