Haskell first code added