markinstall("basesystem")
savestate()

for _,pkg in ipairs(pkglist()) do
  verlist = pkgverlist(pkg)
  vercur = pkgvercur(pkg)
  installed = false nver = 0
  for _,ver in ipairs(verlist) do
    if ver == vercur then
      installed = true
    end
    nver = nver + 1
  end
  if not installed and nver > 0 then
    markinstall(pkg)
    if statinstbroken(pkg) then
      print("cannot install: " .. pkgname(pkg))
    end
    restorestate()
  end
end

os.exit(0)