Solve #73 in Haskell.