let rec magic a b c k =
  if a < b && b < c then "Yes"
  else if k = 0 then "No"
  else if a >= b then magic a (b * 2) c (k - 1)
  else magic a b (c * 2) (k - 1)

let a, b, c = Scanf.sscanf (read_line ()) "%d %d %d" (fun a b c -> (a, b, c))
let k = read_int ()

let () = Printf.printf "%s\n" (magic a b c k)