<>;$_>/ (\w+)/?%$1=0:$`?(($i)=(grep($$_{$1},1..20),-1),$$i{$1}-=print$i,$/):map++$_,@$1{+glob}for<>