solve 10 in haskell