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