Tcl, 0 additions

proc divide {a b} {    set sa [string repeat . $a]    set sb [string repeat . $b]    set sr ""    while 1 {        append sc $sb        if {[string le $sc]>[string le $sa]} break        append sr .    }    return [string le $sr]}

Why not use strings?