maxSS2=:monad define
  start=. (i. >./) (0>.+)/\. y
  ({.~ # |&>: [: (i.>./@,&0) +/\)  y}.~start
)