/max {
   2 copy
   lt {exch} if
   pop
} def