Haskell Solution to euler 20.