let string_of_temps tmp =
        match (tmp.heure, tmp.minute, tmp.seconde) with
        | 0,0,0 -> ((string_of_int tmp.milisec)^"ms")
        | 0,0,_ -> ((string_of_int tmp.seconde)^"s:"^(string_of_int tmp.milisec)^"ms")
        | 0,_,_ -> ((string_of_int tmp.minute)^"m:"^(string_of_int tmp.seconde)^"s:"^(string_of_int tmp.milisec)^"ms")
        | _,_,_ -> ((string_of_int tmp.heure)^"H:"^(string_of_int tmp.minute)^"m:"^(string_of_int tmp.seconde)^"s:"^(string_of_int tmp.milisec)^"ms")