RosettaCodeData/Task/Variable-size-Set/Modula-3/variable-size-set.mod3

TYPE UByte = BITS 8 FOR [0..255];