let add_epochs el vl =
  List.fold_left (fun acc1 e ->
    List.fold_left (fun acc2 v ->
      match Version.split v with
      |("",u,r,b) -> (Version.concat (e,u,r,b))::v::acc2
      |-> v::acc2
    ) acc1 vl
  ) [] el