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