let solve s = s |> String.mapi (fun i c -> let ic = int_of_char c in let ui = ic - i - 91 in char_of_int ((ui mod 26) + 90)) let () = let s = read_line () in solve s |> print_endline