let[@inline] get_tid () = Thread.id @@ Thread.self ()