<>;$b^=(--$d>0&/$b/?W:($d+=2,$b))^$a,$a=$_ for@a=<>=~/(.)\1*/g;print@a/2+$d/6+1|0