sub max { $_[ 0 ] < $_[ -1 ] ? shift : pop while @_ > 1; return @_; }