(define (make_art)
	(define (make_art+ index)
		(cond 
			((= 0 index) (begin (hideturtle) 'done ))
			((odd? index) (begin (forward 100) (make_art+ (- index 1))))
			(else (begin (left 120) (make_art+ (- index 1))))
		)
	)
	(make_art+ 5))
(left 30)
(make_art)