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
26

        
     
     type t =
         {
             years : int ;
             months : int ;
             days : int ;
             hours : int ;
             minutes : int ;
             seconds : int ;    
             milliseconds : int ;    
         }
     
     let empty =
         {
             years = 0 ;
             months = 0 ;
             days = 0 ;
             hours = 0 ;
             minutes = 0 ;
             seconds = 0 ;    
             milliseconds = 0 ;    
         }
     
     let years n = {empty with years = n} (* <---- Problem here *)