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) []