{-# WARNING
  test,
  foo
  [ "These are bad functions",
    "Really bad!"
  ]
  #-}
test :: IO ()
test = pure ()