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

main :: IO ()
main = putStrLn =<< map replace <$> getLine