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