<>;print"@{[map$%-$_*$#_,grep{$%+=$_;1}glob<>]}"