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