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]