count = (let ((tok (next-token toks)))

          count = (let ((tok (next-token toks)))

             	 (warn (format nil "Unrecognized delimiter: ~a" delim))))

                (warn (format nil "Unrecognized delimiter: ~a" delim))))

(defun power-product (bag)
  (let ((p 1))
    (loop for v being each hash-value in bag
          do (setf p (* p v)))
    p))

  (format t "~a~%" (loop for line = (read-line instream nil)
        while line
        sum (if (equalp line "")
              0
              (let ((game (parse-line line)))
                (if (check-limit (cdr game))
                    (car game)
                    0))))))

  (let ((part1 0)
        (part2 0))
    (loop for line = (read-line instream nil)
          while line
          do (let ((game (parse-line line)))
               (setf part1 (+ part1 (if (check-limit (cdr game))
                                         (car game)
                                         0)))
               (setf part2 (+ part2 (power-product (cdr game))))))
    (format t "Part 1: ~a~%" part1)
    (format t "Part 2: ~a~%" part2)))