euler 9 in haskell, pythagorean triples