let converter = function | 'I' | 'l' -> '1' | 'O' | 'o' -> '0' | x -> x let S = stdin.ReadLine() S.ToCharArray() |> Array.map converter |> fun arr -> new System.String (arr) |> printf "%s"