Solve 7 with haskell