let weight_dist w dist =
   map (fun (x,p) -> (x, w *. p)) dist