let string_of_probability p = List.assoc p (Array.to_list probabilities)