let id x = x
let n = Scanf.scanf "%s\n" id

let ans = if (n.[0] = n.[1] && n.[0] = n.[2]) || (n.[0] = n.[1] && n.[0] = n.[3]) || (n.[0] = n.[2] && n.[2] = n.[3]) || (n.[1] = n.[2] && n.[2] = n.[3]) then "Yes" else "No"

let () =
  Printf.printf "%s\n" ans