main :: IO ()
main = do
  mapM_ assertNoKeep nokeep
  mapM_ assertKeep keep
main :: IO ()
main = do
  mapM_ assertNoKeep nokeep
  mapM_ assertKeep keep
main = do
  mapM_ assertNoKeep nokeep
  mapM_ assertKeep keep