scaleWeights :: Weight -> [(Weight, a)] -> [(Weight, a)]
scaleWeights s = map (\(w, a) -> (s * w, a))
scaleWeights :: Weight -> [(Weight, a)] -> [(Weight, a)]
scaleWeights s = map (\(w, a) -> (s * w, a))
scaleWeights s = map (\(w, a) -> (s * w, a))