let bets = [|'a';'b';'c';'d';'e';'f';'g';'h';'i';'j';'k';'l';'m';'n';'o';'p';'q';'r';'s';'t';'u';'v';'w';'x';'y';'z';'A';'B';'C';'D';'E';'F';'G';'H';'I';'J';'K';'L';'M';'N';'O';'P';'Q';'R';'S';'T';'U';'V';'W';'X';'Y';'Z'|] let rec trans char i = if bets.(i) = char then if i > 25 then bets.(i-26) else bets.(i+26) else trans char (i+1) let main str = for i = 0 to String.length str - 1 do str.[i] <- trans str.[i] 0 done let () = let str = read_line () in main str; print_endline str