added a short haskell quine