I like mine.
Yes, that is TI-BASIC. It only calls one non-built-in function, and that's "join" which is not at all complicated to make.
Let's see if I can recall it from memory...
Actually, I don't think that's the method I used before, but I can't imagine why. This one's probably faster.