get;my \a=[Z-] words[0..*-2,1..*];say 1+max [Z-] (0,|grep({a[$_-1]!=a[$_]//8},1..+a))[1..*,*]