procedure main(A)
    base := integer(get(A)) | 2
    every writes(round(vdc(0 to 9,base),10)," ")
    write()
end

procedure vdc(n, base)
    e := 1.0
    x := 0.0
    while x +:= 1(((0 < n) % base) / (e *:= base), n /:= base)
    return x
end

procedure round(n,d)
    places := 10 ^ d
    return real(integer(n*places + 0.5)) / places
end