type OneBit is mod 2;
   type TwoBytes is mod 65536;
   type FiveBits is mod 32;
   type Color is record
      Blue : FiveBits;
      Green : FiveBits;
      Red : FiveBits;
      Unused : OneBit;
   end record;
   pragma Pack(Color);