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