<>;<>;@a=sort{$a-$b}<>;print$a[-1]-"@a"