let get_char str =
  let len = String.length str in
  let rec loop i =
    if i = len then [] else
      str.[i] :: loop (i+1)
  in
  List.fast_sort compare (loop 0)

let () =
  let a, b = read_line (), read_line () in
  if get_char a = get_char b then print_endline "YES"
  else print_endline "NO"