ChatGPTにクワイン書いてもらったんだけど

main :: IO ()

main = putStrLn s where

s = "main :: IO ()\nmain = putStrLn s where\n s = " ++ show s