var
a:array [0..100005] of ansistring;
n, cnt, i:longint;
begin
readln(n);
cnt:=0;
for i:=0 to n-1 do
begin
readln(a[i]);
end;
for i:=0 to n-1 do
begin
if (a[i]<>a[i+1]) then cnt:=cnt+1;
end;
write(cnt);
end.
dmFyCglhOmFycmF5IFswLi4xMDAwMDVdIG9mIGFuc2lzdHJpbmc7CgluLCBjbnQsIGk6bG9uZ2ludDsKYmVnaW4KCXJlYWRsbihuKTsKCWNudDo9MDsKCWZvciBpOj0wIHRvIG4tMSBkbwoJYmVnaW4KCQlyZWFkbG4oYVtpXSk7CgllbmQ7Cglmb3IgaTo9MCB0byBuLTEgZG8KCWJlZ2luCgkJaWYgKGFbaV08PmFbaSsxXSkgdGhlbiBjbnQ6PWNudCsxOwoJZW5kOwoJd3JpdGUoY250KTsKZW5kLg==