diff --git a/src/Maths/Factors.hs b/src/Maths/Factors.hs
new file mode 100644
index 0000000..324fa1c
--- /dev/null
+++ b/src/Maths/Factors.hs
@@ -0,0 +1,8 @@
+module Maths.Factors where
+
+factors :: Int -> [Int] 
+factors num =  [x | x <- [1 ..  num], num `mod` x == 0]
+
+main :: IO ()
+main = do
+    print (factors 28)
\ No newline at end of file