Haskell compiler, need to fix output