*CBottle = CClass new
implements:
{
  self 'toString =
  {
    self bottles > 1
    then
      "\{self bottles} bottles"
    :else self bottles == 1 then
      "\{self bottles} bottle"
    else
      "no more bottles"
  };
};
CBottle 'initialize =
{
  self 'bottles = 99;
};

*beer = CBottle ne