let rec split_old ?(d:char=' ') (s:string) = try
  let l = String.length s in
  let p = String.index s d in
   (StringLabels.sub ~pos:0 ~len:p s)::(split_old ~d (StringLabels.sub ~pos:(p+1) ~len:(l-p-1) s))
  with
   _ -> if (s=""then [] else [s]