#!/usr/bin/perl -w
@d=@ARGV;sub s{my($f,$l)=@_;if($f<$l){&s($f,my($m)=int(($f+$l)/2));&s($m+1,$l);@c=();@_=(@d[$f..$m],reverse@d[$m+1..$l]);while(@_){push@c,($_[0]<$_[-1])?shift:pop}@d[$f..$l]=@c}}&s(0,@d-1);print"@d\n";