<>;$/=$";@a=0+<>;//,@a=(sort{$a<=>$b}map{$_+$',$_-$',int$_*$',-$'&&int$_/$'}@a)[-1,0]for<>;print$a[0]