data Bit = On | Off | DontCare deriving (Show, Enum, Variate)