Help for this page
# # remember everything, probably uses too much memory. ... return 0; } }
while (<>) { print unless seen_bucket($_); ... $ perl -le 'for(1..10){for(1..401){print}}' | perl dup.pl | wc -l 4010