universeBounded :: (Enum a, Bounded a) => [a]
universeBounded = enumFromTo minBound maxBound
universeBounded :: (Enum a, Bounded a) => [a]
universeBounded = enumFromTo minBound maxBound
universeBounded = enumFromTo minBound maxBound