#!env perl
use strict;
use warnings;

# Keep track of the largest number we've found so far
my $largest_number_so_far = 0;

while (my $lines = <STDIN>){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$a <=> $b} @input;

    if ($largest_number[0] > $largest_number_so_far) {
        # We found a bigger number!
        print "$lines\n";
        $largest_number_so_far = $largest_number[0];
    }
}