Added basic haskell function