-- What is the largest prime factor of the number 600851475143 ?
import Euler

factors n = go primes n
   where go (p:ps) n | n < p          = []
                     | n `mod` p == 0 = p : go (p:ps) (n `div` p)
                     | otherwise      = go ps n

main = print $ last $ factors 600851475143