td => sub {
        my $q     = POE::Queue::Array->new;
        for (@input) {
            $_ == 0 && $q->enqueue(-1000,$_)&& next;
            $q->enqueue(-1/$_,$_);
        }
        my @out;
        while (my @l = $q->dequeue_next()) {
            push @out,$l[2];
        }
        Compare(\@out,\@output) or die "@out" if DO_CHECK;
    }
[download]