let to_probability t =
  let z = 10. ** (Float.of_int t /. -10.) in
  z /. (1. +. z)