diff --git a/haskell/Lib.hs b/haskell/Lib.hs
index 6d85a26..e932c33 100644
--- a/haskell/Lib.hs
+++ b/haskell/Lib.hs
@@ -1 +1,4 @@
 module Lib where
+
+fib :: [ Integer ]
+fib = 1 : 2 : zipWith (+) fib (tail fib)
diff --git a/haskell/p1.hs b/haskell/p1.hs
new file mode 100644
index 0000000..b49f82f
--- /dev/null
+++ b/haskell/p1.hs
@@ -0,0 +1,5 @@
+main :: IO ()
+main = putStr $ show solve
+
+solve :: Integer
+solve = sum [ x | x <- [0..999], mod x 3 == 0 || mod x 5 == 0 ]
diff --git a/haskell/p2.hs b/haskell/p2.hs
new file mode 100644
index 0000000..346e513
--- /dev/null
+++ b/haskell/p2.hs
@@ -0,0 +1,7 @@
+import Lib (fib)
+
+main :: IO ()
+main = putStr $ show solve
+
+solve :: Integer
+solve = sum $ filter even $ takeWhile (<= 4000000) fib