(current-grab (make-hash-table))
        (grabs nil))

        (grab (make-hash-table)))

    (unless (equalp ":" (next-token toks))
      (warn "Missing colon"))
    (loop for count = (let ((tok (next-token toks)))
                        (if tok
                          (parse-integer tok)))

    (unless (equalp ":" (next-token toks)) (warn "Missing colon"))
    (loop for
    			count = (let ((tok (next-token toks)))
                    (if tok
                        (parse-integer tok)))

          for delim = (next-token toks)

          do (setf (gethash colour current-grab) count)
             (unless (equalp "," (next-token toks))
               (push current-grab grabs)
               (setf current-grab (make-hash-table))))
    (cons game-number (reverse grabs))))

          do (setf (gethash colour grab) (max (or (gethash colour grab) 0) count))
             (unless (or (equalp delim ";") (equalp delim ",") (not delim))
             	 (warn (format nil "Unrecognized delimiter: ~a" delim))))
    (cons game-number grab)))

                (if (all #'check-limit (cdr game))

                (if (check-limit (cdr game))