read_line () |> String.mapi (fun i c -> char_of_int (((int_of_char c + 26558 - i) mod 26) + 65)) |> print_endline