<>=~$";$-=$'; print 0+grep$_<1,map{$%=$-;$--=$_;$_-$%}sort{$a-$b}glob<>