let split_plural str =
  let rec split_plural_one start =
    let next_sep = 
      try
        String.index_from str start '\000' 
      with Not_found ->
        String.length str
    in
    let new_plural = 
      String.sub str start (next_sep - start)
    in
      if (next_sep + 1) >= String.length str then
        [new_plural]
      else
        new_plural :: (split_plural_one (next_sep + 1))
  in
    split_plural_one 0