let string_to_time (str:string) = 
  let regexp = Str.regexp "\\([0-9]*\\)\\.\\([0-9]*\\)_\\([0-9]*\\):\\([0-9]*\\)" in 
    if (Str.string_match regexp str 0) then begin
      let day  = int_of_string (Str.matched_group 1 str) in
      let mont = int_of_string (Str.matched_group 2 str) in
      let hour = int_of_string (Str.matched_group 3 str) in
      let min  = int_of_string (Str.matched_group 4 str) in
  {  Unix.tm_sec  = 0;
     Unix.tm_min  = min;
     Unix.tm_hour = hour;
     Unix.tm_mday = day;
     Unix.tm_mon  = mont;
     Unix.tm_year = 10;
     Unix.tm_wday = 0;
     Unix.tm_yday = 0;
     Unix.tm_isdst = false;
  }      
    end else
  {  Unix.tm_sec  = 0;
     Unix.tm_min  = 0;
     Unix.tm_hour = 0;
     Unix.tm_mday = 1;
     Unix.tm_mon  = 1;
     Unix.tm_year = 10;
     Unix.tm_wday = 0;
     Unix.tm_yday = 0;
     Unix.tm_isdst = false;
  }