20121106_3

program ivanov_kolya;
var
        ch : char;

        function process() : integer;

        var
                cur : char;

        begin
                read(cur);
                if cur <> '.' then begin
                        if cur = ch then process := 1 + process() else process := process();
                end else process := 0;
        end;

begin
        readln(ch);
        write(process());
end.