A Haskell Compiler