Answer by Cary Swoveland for Implement division using only addition

In Ruby,

def divide(a,b)  n, d = 'x' * a, 'x' * b  l = []  (l << 'x'; d << 'x' * b) while n.size >= d.size  l.sizeend  

I don't know TCL, but I suspect this is the same approach as @Johannes ' (first) answer.