;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   Trainer
;;;
;;; Description:
;;;   It's our final stand!
;;;   All or nothing, here we go!
;;;   Voltorb, Thunderbolt!

(setheading 195)
(speed 10)
(color 'red)
(define (drawing total max-value counter)
  (cond ((< total max-value) (forward 10) (drawing total total (+ counter 1)))
	((equal? max-value 1) (backward 50) (left 15) 1)
	((<= total 1) (forward 50) (right 15) 1)
	(else (+ (drawing (- total max-value) max-value (+ counter 1))
		 (drawing total (- max-value 1) (+ counter 1))))))
(drawing 13 13 0)