let add_normalize vl = List.fold_left (fun acc v -> let (e,u,r,b) = Version.split v in let n1 = Version.concat ("",u,r,"") in let n2 = Version.concat ("",u,r,b) in n1::n2::v::acc ) [] vl