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