! >TB  A somewhat acquisitive container... but it can be taught to behave.
! ----------------------------------------------------------------------------

Object -> "toothed bag"
  with name "toothed" "bag",
       initial "In one corner is a curious, toothed bag.",
       description "A capacious bag with a toothed mouth.",
       before
       [; LetGo: "The bag defiantly bites itself 
                  shut on your hand until you desist.";
       ],
       after
       [; Receive:
              if (noun==cone)
              {   self.before=0; self.after=0;
                  "The bag wriggles interminably as it tries 
                   to eat the enormous mass of marzipan. That'll 
                   teach it.";
              }
              "The bag wriggles hideously as it swallows ", (the) noun, ".";
       ],
  has  container open;

! ----------------------------------------------------------------------------