Haskell code - 3 lines

Link:

Haskell, pasted on Mar 5:

1
2
3

main = putStr (quine q)
quine s = s ++ show s
q = "main = putStr (quine q)\nquine s = s ++ show s\nq = "

Output:

1
2
3

main = putStr (quine q)
quine s = s ++ show s
q = "main = putStr (quine q)\nquine s = s ++ show s\nq = "