s = gets.chomp.split("")
long = s.size
ans = 0
arr = []
(0..long-1).each do |i|
    j = 0
    count = 0
    while true
        #p j
        #p long -1
        if s[i] == s[j]
            count += 1
        end
        if j >= 3
            arr << count
             break
        end
        j += 1
    end
end
ans = 0
    (1..3).each do |i|
      if arr[i] == arr[i-1] && arr.inject(:+) == 8
        ans += 1
      end

    
    end
    if ans >= 3
        puts "Yes"
    else
        puts "No"
    end