import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve = map f
  where f c | c == 'I' || c == 'l' = '1'
            | c == 'O' || c == 'o' = '0'
            | otherwise = c