module Prelude where class Bounded a where minBound, maxBound :: a