whyfor2 => sub {
                seek( $IN1, 0, 0 );
                my %counts = ();
                 ++$counts{$_}  for ( ; defined( $_ = <$IN1> ) ; ) ;
                die unless keys %counts == @list;
            },
[download]