;;; Title: Untitled
;;;
;;; Description:

(define (increase-by-one n) (+ n 10))


(define (draw shape start times) (cond ((zero? times) '())
                                 (else (penup) (circle (increase-by-one start) 18) (pendown) (shape 36) (draw shape (+ start 1) (- times 1)))))

(define (get-color num) (cond ((= 0 (modulo num 4)) 'red)
                              ((= 1 (modulo num 4)) 'blue)
                              ((= 2 (modulo num 4)) 'yellow)
                              (else 'green)))

(define (draw-sun times) (cond ((= times 0))
                         (else  (color (get-color times)) (forward 25) (left 170) (draw-sun (- times 1)) (color 'black) )))
(speed 0)

(draw draw-sun 1 200)
(exitonclick)