open System

let rs () = stdin.ReadLine()
let ri () = stdin.ReadLine() |> int
let ria () = stdin.ReadLine().Split() |> Array.map int

let seq2str (s : seq<char>) = new string [| for c in s -> c |]

type Sol() =
    member this.Solve() = 
        
        let s = rs()
        
        let f c =
          match c with
            |  'I' -> '1'
            |  'l' -> '1'
            |  'O' -> '0'
            |  'o' -> '0'
            | _ -> c
        
        
        
        s.ToCharArray()
        |> Array.map f
        |> seq2str
        |> printfn "%s"
        
        
        ()
let mySol = new Sol()
mySol.Solve()