print+($%,grep{$%^=$_;1}glob<>)[$'%($`+<>=~$")]