a8 = if (x `mod` 1) > 0 then One else Zero
+octet_from_string :: String -> Octet
+octet_from_string s =
+ case (reads s :: [(Int, String)]) of
+ [] -> Octet.None
+ x:_ -> octet_from_int (fst x)
+
+
-- The octet with the least possible value.
min_octet :: Octet
min_octet = Octet Zero Zero Zero Zero Zero Zero Zero Zero