(0 . 0)(1 . 11)
98 package Bits is
99 pragma Pure(Bits);
100
101 type Bit is mod 2;
102 type Bitstream is array( Natural range <> ) of Bit; -- any length; message
103
104 procedure ToBitstream(S: in String; B: out Bitstream);
105 procedure ToString(B: in Bitstream; S: out String);
106 procedure ToHex(B: in Bitstream; S: out String);
107 function ToHex(B: in Bitstream) return String;
108 end Bits;