procedure vdc(n, base)
    s1 := create |((0 < 1(.n, n /:= base)) % base)
    s2 := create 2(e := 1.0, |(e *:= base))
    every (result := 0) +:= |s1() / s2()
    return result
end