let blit_string_of_int_3_digits =
let tbl = Array.init 1000 ~f:(fun i -> Printf.sprintf "%03d" i) in
fun s ~pos i ->
if i >= 1000 || i < 0 then
invalid_argf
"Time.string_of_int_3_digits: argument must be (0, 999) %d" i ();
String.blit ~src:tbl.(i) ~dst:s ~src_pos:0 ~dst_pos:pos ~len:3