Brute-force Haskell solution to 009.