euler/haskell/euler003.hs

module Main where
import Prime

main = do
    print (last (primeFactors 600851475143))