Euler 4 in Haskell