var bset: set of 0..31;
    b: byte;

Begin
  bset := bset + b;
End.