RosettaCodeData/Task/Tokenize-a-string/OCaml/tokenize-a-string-1.ocaml

let rec split_char sep str =
  try
    let i = String.index str sep in
    String.sub str 0 i ::
      split_char sep (String.sub str (i+1) (String.length str - i - 1))
  with Not_found ->
    [str]