let print_dist to_string dist = let print1 (x, prob) = print_float prob; print_string " "; print_string (to_string x); print_string "\n" in List.iter print1 dist