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