let x = "abcdefghijklmnopqrstuvwxyz" let y = "cqlmdrstfxyzbanopuvweghijk" let () = read_line () |> String.map (fun c -> y.[String.index x c]) |> print_endline