Solve #32 in Haskell.