diff --git a/simple_exercises/fibonacci.pl b/simple_exercises/fibonacci.pl
new file mode 100644
index 0000000..b7e4f0e
--- /dev/null
+++ b/simple_exercises/fibonacci.pl
@@ -0,0 +1,13 @@
+fib(N) :-
+    write(1),
+    write(", "),
+    CounterMinusOne is N - 1,
+    fib(0, 1, CounterMinusOne).
+
+fib(N1, N2, Counter) :-
+    Counter > 0,
+    Result is N1 + N2,
+    write(Result),
+    write(", "),
+    CounterMinusOne is Counter - 1,
+    fib(N2, Result, CounterMinusOne).