#!/usr/bin/perl -w
@rock=<STDIN>;
$n=$#rock;
while($n>0){   
    $i=0;
    while($i<$n){
        if($rock[$i]>$rock[$i+1]){
            $chage=$rock[$i];
            $rock[$i]=$rock[$i+1];
            $rock[$i+1]=$chage;
           
        }
        $i+=1;
    }
    $n-=1;
}
print "the sort:\n";
print @rock;