max = items + res ->                             (@ max items .res +-
  for items item ->                                  (.* items item >
    if !res ->                                           (![res] >
      res = item                                             (item .res)
    else                                                 >
      if (item > res) ->                                     ([> res] item >
        res = item                                               (item .res)
      else                                                   >
        <>                                                       ;
      ;                                                      )
    ;                                                    )
  ;                                                  )
_                                                +
  items : A|L                                        {A|L} items         
_                                                +
  items                                              [items]
;                                                )





