0 * (bit_to_int (b8 x))
+-- Supply an integer greater than 255 at your own risk.
+octet_from_int :: Int -> Octet
+octet_from_int x
+ | (x < 0) = min_octet
+ | otherwise = (Octet a1 a2 a3 a4 a5 a6 a7 a8)
+ where
+ a1 = if (x `mod` 128) > 0 then One else Zero
+ a2 = if (x `mod` 64) > 0 then One else Zero
+ a3 = if (x `mod` 32) > 0 then One else Zero
+ a4 = if (x `mod` 16) > 0 then One else Zero
+ a5 = if (x `mod` 8) > 0 then One else Zero
+ a6 = if (x `mod` 4) > 0 then One else Zero
+ a7 = if (x `mod` 2) > 0 then One else Zero
+ a8 = if (x `mod` 1) > 0 then One else Zero
+
+
-- The octet with the least possible value.
min_octet :: Octet
min_octet = Octet Zero Zero Zero Zero Zero Zero Zero Zero