Solve #11 in Haskell.