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