1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
inherit Calendar.Gregorian : christ; 
 
class Year 
{ 
   inherit Calendar.Gregorian.Year; 
 
   int leap() // tack, hubbe... :-) 
   { 
      switch(y%900) 
      { 
        case 0: 
        case 100: 
        case 300: 
        case 400: 
        case 500: 
        case 700: 
        case 800: return 0; 
        case 200: 
        case 600: return 1; 
        default: return !(y%4); 
      } 
   } 
};