gistfile1.txt

(define cutA 7)
(define growA 3)
(define cutB 5)
(define growB 2)

(define (attack-monster heads)
  (use-sword heads 0 '()))

(define (use-sword n grow s)
  (cond ((< n 0) null)
        ((= n 0)
         ;(print s)
         ;(newline)
         s)
        (else (append
               (list (use-sword (- (+ n grow) cutA) growA (append s (list 'a))))
               (list (use-sword (- (+ n grow) cutB) growB (append s (list 'b)))))))