maxss=: monad define
 AS =. 0,; <:/~@i.&.> #\y
 MX =. (= >./) AS +/ . * y
 y #~ {. MX#AS
)