REBOL[]for k n: do ask""1 -1[print[round 1e3 * cosine d: 360 * k / n round -1e3 * sine d]]