import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = B.interact $ B.map f

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