let extract_epochs vl = Util.list_unique ( List.fold_left (fun acc v -> let (e,_,_,_) = Version.split v in e :: acc ) [] vl )