let char_sum str = let len = String.length str in let rec loop i = if i = len then 0 else (int_of_char str.[i]) + loop (i+1) in loop 0 let () = let a, b = read_line (), read_line () in if char_sum a = char_sum b then print_endline "YES" else print_endline "NO"