let split_on_char sep s = let r = ref [] in let j = ref (String.length s) in for i = String.length s - 1 downto 0 do if String.unsafe_get s i = sep then begin r := String.sub s (i + 1) (!j - i - 1) :: !r; j := i end done; String.sub s 0 !j :: !r;; let () = let raw = read_line () |> split_on_char ' ' |> List.map int_of_string |> List.map (fun x -> (x mod 3) = 0) |> List.fold_left (||) false in let out = if raw then "Yes" else "No" in print_string out; print_newline ();;