(define p
  (lambda (num elt)
    (if (= num 0)
        '()
        (cons elt
              (p (- num 1) elt)))))

(define flatten
  (lambda (lol)
    (if (null? lol)
        '()
        (append (car lol)
                (flatten (cdr lol))))))

(define count-combos
  (lambda (prize-list amount)
    (if (= amount 0)
        1
        (if (null? prize-list)
            0
            (if (> (car prize-list) amount)
                (count-combos (cdr prize-list) amount)
                (+ (count-combos (cdr prize-list)
                                 (- amount
                                    (car prize-list)))
                   (count-combos (cdr prize-list)
                                 amount)))))))