mzero

module SetPrime where

-- import qualified Data. as List
    -- no need to import List, as the function all is in the Prelude
import Control.Applicative ((<$>), (<*>))
    -- prefer explicit imports most of the time


data Shape = Oval | Squiggle | Diamond deriving (Show, Eq, Bounded, Enum, Ord)
data Color = Red | Purple | Green deriving (Show, Eq, Bounded, Enum, Ord)