changed to haskell