diff --git a/e3/e3.hs b/e3/e3.hs
new file mode 100644
index 0000000..52c6be3
--- /dev/null
+++ b/e3/e3.hs
@@ -0,0 +1,4 @@
+factor n divisor
+  | (divisor == n-1 || n == 1) = [n]
+  | rem n divisor == 0 = (factor (fromIntegral n/divisor) 2) ++ (factor divisor 2)
+  | otherwise = factor n (divisor+1)