{-# LANGUAGE AlternativeLayoutRule #-}
{-# LANGUAGE LambdaCase            #-}

isOne :: Int -> Bool
isOne = \case 1 -> True
              _ -> False

main = return ()