add sol in haskell