(require (planet dyoo/simply-scheme:1:2/simply-scheme))

   (define (ball-val value)
       (let ((color value))
           (cond ((equal? 'R color) 5)
                 ((equal? 'W color) 2)
                 ((equal? 'B color) 2)
                 ((equal? 'G color) 1))))

    (define (count-balls color bucket)
        (count (keep (lambda (c) (equal? color c)) bucket)))`

(color-counts '(R B G R R R B W R W))
    '(5 1 2 2)

  (color-counts '(W R R R R G B B G W))
    '(4 2 2 2)