type Enum = (X, Y); begin end.