;;;; -*- mode:Lisp; package:user -*- ;;;;
;;;; Created: 24 October 1992
;;;; Purpose: Test Reference File

Bagger rules recorded.
Bagger grocery list recorded:
(STEP IS CHECK-ORDER) 
(BAG1 IS CURRENT-BAG) 
(BAG2 IS AVAILABLE-BAG) 
(BAG3 IS AVAILABLE-BAG) 
(BAG4 IS AVAILABLE-BAG) 
(ITEM1 BREAD PLASTIC-BAG MEDIUM NO) 
(ITEM2 GLOP JAR SMALL NO) 
(ITEM3 GRANOLA CARDBOARD-BOX LARGE NO) 
(ITEM4 ICE-CREAM CARDBOARD-CARTON MEDIUM YES) 
(ITEM5 POTATO-CHIPS PLASTIC-BAG MEDIUM NO) 
Rule B1 says: Add a bottle of Pepsi to the order.
Rule B2 says: Bagging large items.
Rule B3 says: Put ITEM0, PEPSI, in BAG1.
Rule B4 says: Put ITEM3, GRANOLA, in BAG1.
Rule B6 says: Bagging medium items.
Rule B7 says: Put ITEM4, ICE-CREAM, in a freezer bag.
Rule B9 says: Start a fresh bag.
Rule B8 says: Put ITEM1, BREAD, in BAG2.
Rule B8 says: Put ITEM4, ICE-CREAM, in BAG2.
Rule B8 says: Put ITEM5, POTATO-CHIPS, in BAG2.
Rule B10 says: Bagging small items.
Rule B12 says: Start a fresh bag.
Rule B11 says: Put ITEM2, GLOP, in BAG3.
Rule B13 says: Bagging done.