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