haskell euler 12. find 1st triangle number with >500 factors.