let
parse_binary s =
List
.map fst (
Packages
.parse_vpkglist s)