Problem:
Score : 800 points

Problem Statement

There are N stores called Store 1, Store 2, \cdots, Store N. Takahashi, who is at his house at time 0, is planning to visit some of these stores.

It takes Takahashi one unit of time to travel from his house to one of the stores, or between any two stores.

If Takahashi reaches Store i at time t, he can do shopping there after standing in a queue for a_i \times t + b_i units of time. (We assume that it takes no time other than waiting.)

All the stores close at time T + 0.5. If Takahashi is standing in a queue for some store then, he cannot do shopping there.

Takahashi does not do shopping more than once in the same store.

Find the maximum number of times he can do shopping before time T + 0.5.

Constraints

All values in input are integers.

1 \leq N \leq 2 \times 10^5

0 \leq a_i \leq 10^9

0 \leq b_i \leq 10^9

0 \leq T \leq 10^9

Input

Input is given from Standard Input in the following format:

N T
a_1 b_1
a_2 b_2
\vdots
a_N b_N

Output

Print the answer.

Sample Input 1

3 7
2 0
3 2
0 3

Sample Output 1

2

Here is one possible way to visit stores:

From time 0 to time 1: in 1 unit of time, he travels from his house to Store 1.

From time 1 to time 3: for 2 units of time, he stands in a queue for Store 1 to do shopping.

From time 3 to time 4: in 1 unit of time, he travels from Store 1 to Store 3.

From time 4 to time 7: for 3 units of time, he stands in a queue for Store 3 to do shopping.

In this way, he can do shopping twice before time 7.5.

Sample Input 2

1 3
0 3

Sample Output 2

0

Sample Input 3

5 21600
2 14
3 22
1 3
1 10
1 9

Sample Output 3

5

Sample Input 4

7 57
0 25
3 10
2 4
5 15
3 22
2 14
1 15

Sample Output 4

3

Solution in Perl (v5.18.2) (judge verdict: Wrong Answer)

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(:5.10);
use utf8;

my $limit;
{
    my $l = <STDIN>;
    my @l = split(/\s+/, $l);
    $limit = $l[1] + 0.5;
}
my %shops;
{
    my $i = 0;
    while(<STDIN>){
        $i++;
        my @s = split(/\s+/);
        $shops{$i} = {
            a => $s[0],
            b => $s[1]
        };
    }
}

my $now = 1;
my $count = 0;
while ($now < $limit){
    my $minshop = minshop($now);
    $now += visit($minshop, $now);
    $count++ if $now < $limit;
    $now++;
    last if (keys %shops)+0 == 0;
}
say $count;

sub visit {
    my $s = shift;
    my $n = shift;
    my $time = $shops{$s}->{a} * $n + $shops{$s}->{b};
    delete($shops{$s});
    return $time;
}
sub minshop {
    my $now = shift;
    my %cal;
    for my $k (keys %shops){
        my $sum = $shops{$k}->{a} * $now + $shops{$k}->{b};
        $cal{$k} = $sum;
    }
    my @result = sort {$cal{$a} <=> $cal{$b}} keys %cal;
    return $result[0];
}