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