;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   is this real life?
;;;
;;; Description:
;;;     Fives on Fives on Fives
;;;   This Image Looks Like A Star
;;;        Make A Wish On It

(pu)
(clear)
(st)
(seth 0)
(speed 1000)
(setposition -350 -350)
(right 90)
(pd)

(define (star_help len n)
(begin (frac_star (/ len 2.6245) (- n 1)) (fd len) (lt 72)))

(define (frac_star len n)
(cond
((= n 0) (pd) (fd len) (pu) (bk len))
(else (star_help len n) (star_help len n) (star_help len n) (star_help len n) (star_help len n))))

(frac_star 550 5)


;(exitonclick)