<>=~/.* /;@b=sort{$a-$b}split$",<>;@a=sort{$b-$a}<>;eval"$a[-1]$b[0]$b[-1]"<$'?pop@a:($\+=@a,pop@b)while@a;print