DouKaku?

open System;;
open Char;;
open String;;
open List


let transAlph n =
    let base = 26 in
    let zero = (code 'A')-1 in
    let rec transBase results = function
        | m when m <= base -> m::results
        | m when m%base = 0 -> transBase results (m/base)
        | m -> transBase ((m%base)::results) ((m-m%base)/base) in
    String.concat "" (map (fun x -> of_char (chr (zero+x))) (transBase [] n));;

printf "%s\n" (String.concat "," (map transAlph (init 100 (fun x->x+1))));;