Problem 26 solved (Haskell)