A Quine in Haskell

main = putStr (c ++ [toEnum 34] ++ c ++ [toEnum 34]) where c = "main = putStr (c ++ [toEnum 34] ++ c ++ [toEnum 34]) where c = "