adding sln in haskell