Listar todos los programas sin ninguna ventana y eliminarlos

Problema interesante.
Aquí hay un fragmento de código para ayudarlo a comenzar a listar ventanas de aplicaciones:

tell application "System Events"
    set appProcs to every application process whose background only is false
    set appWins to ""
    repeat with eachProc in appProcs
        set appWinNum to title of every window of eachProc
-- Put "quit..." command into "if...then" :
        if (count of appWinNum) is equal to 0 then display ¬
                alert "No window found for app: \r\r" & name of eachProc
        set appWins to appWins & return & name of eachProc & ¬
                ":\n" & appWinNum & return
    end repeat
    display alert appWins
end tell

No me molesté en establecer líneas de alimentación para múltiples ventanas, ya que hay un inconveniente TREMENO para este enfoque:

Este script no y no encontrarán ventanas en todos y cada uno de los "espacios" establecidos en la Misión Control.
Es una pena, pero hasta ahora Mission Control no tiene scripts.

Su mejor solución -si es fea- sería que cada aplicación se coloque al frente, luego verifique y luego salga ...