{-# LANGUAGE LambdaCase #-}

test :: Bool -> Bool
test = \case