f::Char ->Char
f c
   |c == 'l' || c== 'I' ='1'
   |c == 'O' || c== 'o' ='0'
   |otherwise = c

main = do
       x <- getLine
       putStrLn $ map f x