on emptyStack
  lockAll
  answer "Vraiment vider ce stack!" with "Oui" or "Non"
  if it is "Oui" then
    repeat with B = 1 to the number of bkgnds
      go to first card of bkgnd B
      repeat for (the number of cards in this bkgnd) - 1
        put the number of cards
        doMenu "Delete Card"
      end repeat
    end repeat
    doMenu "Compact Stack"
  end if
end emptyStack