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