<>;<>;@a=sort{$b-$a}<>;print"@a"-pop@a