{-# LANGUAGE OrPatterns #-}
data LifeStyle
  = AllWorkNoPlay
  | WorkHardPlayHard
  | WorkHardNoPlay
  | PlayNoWork
  | NoWorkNoPlay
  deriving Show

areYouLivingALife :: LifeStyle -> Bool
areYouLivingALife (WorkHardPlayHard;PlayNoWork) = True
areYouLivingALife _ = False

main :: IO ()
main = do
  print $ areYouLivingALife NoWorkNoPlay
  print $ areYouLivingALife WorkHardPlayHard