module MultCase where

f :: Int -> Bool
f x = case x * 2 of
            4 -> True
            2 -> True
            otherwise -> False

module MultCase where

f :: Int -> Bool
f x = case x * 2 of
            4 -> True
            2 -> True
            otherwise -> False
