let explode s = let rec exploder idx l = if idx < 0 then l else exploder (idx-1) (s.[idx] :: l) in exploder (String.length s - 1) []