#!env perl
use strict;
use warnings;

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