starburst = (x, y, shape) -> for z in [1..x] fd y do shape bk y rt 360 / x reddot = -> dot red, 20 pen gold, 3 starburst 5, 50, dot