diff --git a/haskell/euler003.hs b/haskell/euler003.hs
index d4ff43d..dbe2c35 100644
--- a/haskell/euler003.hs
+++ b/haskell/euler003.hs
@@ -1,9 +1,5 @@
 module Main where
-
-primes = 2 : [i | i <- [3..],
-              and [rem i p > 0 | p <- takeWhile (\p -> p^2 <= i) primes]]
-
-primeFactors n = filter (\a -> mod n a == 0) (takeWhile (\m -> m * m < n) primes)
+import Prime
 
 main = do
     print (last (primeFactors 600851475143))
diff --git a/haskell/prime.hs b/haskell/prime.hs
new file mode 100644
index 0000000..a81b8ad
--- /dev/null
+++ b/haskell/prime.hs
@@ -0,0 +1,6 @@
+module Prime where
+
+primes = 2 : [i | i <- [3..],
+              and [rem i p > 0 | p <- takeWhile (\p -> p^2 <= i) primes]]
+
+primeFactors n = filter (\a -> mod n a == 0) (takeWhile (\m -> m * m < n) primes)