RosettaCodeData/Task/Binary-strings/Ada/binary-strings-2.ada

type Octet is mod 2**8;
for Octet'Size use 8;
type Octet_String is array (Positive range <>) of Octet;