Note:

You are viewing a development version of the library. Goto the latest version.

let replace_chars f s =
  let buf = String.make (String.length s) 'X' in
    for i = 0 to String.length s - 1 do
      buf.[i] <- f s.[i]
    done;
    buf