Problem:
Score : 300 points

Problem Statement

Two foxes Jiro and Saburo are playing a game called 1D Reversi. This game is played on a board, using black and white stones. On the board, stones are placed in a row, and each player places a new stone to either end of the row. Similarly to the original game of Reversi, when a white stone is placed, all black stones between the new white stone and another white stone, turn into white stones, and vice versa.

In the middle of a game, something came up and Saburo has to leave the game. The state of the board at this point is described by a string S. There are |S| (the length of S) stones on the board, and each character in S represents the color of the i-th (1 ≦ i ≦ |S|) stone from the left. If the i-th character in S is B, it means that the color of the corresponding stone on the board is black. Similarly, if the i-th character in S is W, it means that the color of the corresponding stone is white.

Jiro wants all stones on the board to be of the same color. For this purpose, he will place new stones on the board according to the rules. Find the minimum number of new stones that he needs to place.

Constraints

1 ≦ |S| ≦ 10^5

Each character in S is B or W.

Input

The input is given from Standard Input in the following format:

S

Output

Print the minimum number of new stones that Jiro needs to place for his purpose.

Sample Input 1

BBBWW

Sample Output 1

1

By placing a new black stone to the right end of the row of stones, all white stones will become black. Also, by placing a new white stone to the left end of the row of stones, all black stones will become white.

In either way, Jiro's purpose can be achieved by placing one stone.

Sample Input 2

WWWWWW

Sample Output 2

0

If all stones are already of the same color, no new stone is necessary.

Sample Input 3

WBWBWBWBWB

Sample Output 3

9

Solution in Pascal (FPC 3.0.4) (judge verdict: Time Limit Exceeded)

var s:ansistring;
    i,j,cnt,k:longint;
    b:boolean;
begin
  readln(s);
  cnt:=0;
  b:=false;
  k:=1;
  while (b=false) do begin
    b:=true;
    for i:=k to length(s) do begin
      if (s[1]<>s[i]) then begin
        b:=false;
        break;
      end;
    end;
    if (b=false) then begin
      if s[i]='W' then begin
        insert('W',s,1);
        inc(cnt);
        for j:=2 to i do s[j]:='W';
        k:=i;
      end
      else begin
        insert('B',s,1);
        inc(cnt);
        for j:=2 to i do s[j]:='B';
        k:=i;
      end;
    end
    else break;
  end;
  writeln(cnt);
end.