s = read_line
puts (s.size - 2).times.count { |i| [s[i], s[i + 1], s[i + 2]].uniq.size == 2 && (s[i] == s[i + 1] || s[i + 1] == s[i + 2]) }