Solve #70 in Haskell.