Scanf.scanf "%s" (fun s ->
    print_endline @@ String.map (function 'I'|'l' -> '1' |'O'|'o' ->'0' | a -> a) s
)