get;my&f={.[1..*]Z-.[^+^-*]};f(words)~~say 1+max f [-1,|f.grep(+*,:k),$_-1]