1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
inherit Calendar.Gregorian : christ; 
 
void create() 
{ 
   month_names= 
      ({"Januari","Februari","Mars","April","Maj","Juni","Juli","Augusti", 
        "September","Oktober","November","December"}); 
 
   week_day_names= 
      ({"Måndag","Tisdag","Onsdag","Torsdag", 
        "Fredag","Lördag","Söndag"}); 
} 
 
class Week 
{ 
   inherit Calendar.Gregorian.Week; 
 
   string name() 
   { 
      return "v"+(string)this->number(); 
   } 
}