sub nn {
    @_{@_}=0;@_=sort{$a<=>$b}keys%_;
    $_[1]-$_[0]>$_[$_]-$_[$_-1]and@_[0,1]=@_[$_,$_-1]for 2..$#_;
    @_[0,1]
}