let string_explode s = let rec next acc i = if i >= 0 then next (s.[i] :: acc) (i-1) else acc in next [] (String.length s - 1)