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