function Kysy-Ikä {
    $Ikä = Read-Host -Prompt "Syötä ikäsi (negatiivinen luku lopettaa)"
    return $Ikä
}
function Skidi {
    Write-Output "Olet skidi"
}
function Teini {
    Write-Output "Olet teini"
}
function Puolikuollut {
    Write-Output "Olet jo toinen jalka haudassa"
}
function Hiihtäjä {
    Write-Output "Olet mikä lie hiihtäjä"
}
function Anna-Tuomio { param ( $Ikä )
    if ( $Ikä -lt 0 ) {
        return
    }
    if ( $Ikä -lt 13 ) {
        Skidi
    }
    elseif ( $Ikä -lt 20 ) {
        Teini
    }
    elseif ( $Ikä -ge 50 ) {
        Puolikuollut
    }
    else {
        Hiihtäjä
    }
}
Do {
    $Ikä = Kysy-Ikä
    if ( $Ikä -match "^-?\d+$" ) {
        Anna-Tuomio ( [int]$Ikä )
    }
    else {
        Write-Output "Kirjoita numeroita"
        $Ikä = [int]0
    }
} While ( [int]$Ikä -ge 0 )