enum
Age
::
ubyte
{
0
:
NewBorn
;
[
1
..
9
]:
Child
;
[
10
..
18
]:
Teenager
;
[
19
..
65
]:
Adult
;
[
66
..
100
]:
Retired
;
[
100
..
120
]:
Retired
[
warning
(
"Doublecheck the age"
)];
else
:
[
error
(
"Nobody can get that old!"
)];
}