haskell pythagorean-triplet