diff --git a/prolog/.gitignore b/prolog/.gitignore
new file mode 100644
index 0000000..44d4a10
--- /dev/null
+++ b/prolog/.gitignore
@@ -0,0 +1 @@
+problem
\ No newline at end of file
diff --git a/prolog/2015/1/problem.pl b/prolog/2015/1/problem.pl
new file mode 100644
index 0000000..99b3fe9
--- /dev/null
+++ b/prolog/2015/1/problem.pl
@@ -0,0 +1,13 @@
+main :-
+    open('../data/2015/1/input.txt',read,InStream),
+    get_char(InStream,NextChar),
+    navigateStairs(NextChar, InStream, 0).
+
+navigateStairs(end_of_file, _, Floor) :- 
+    Floor.
+navigateStairs(40, InStream, Floor) :- % opening paren
+    get_char(InStream,NextChar),
+    navigateStairs(NextChar, InStream, Floor + 1).
+navigateStairs(41, InStream, Floor) :- % closing paren
+    get_char(InStream,NextChar),
+    navigateStairs(NextChar, InStream, Floor - 1).
diff --git a/prolog/bin/run b/prolog/bin/run
new file mode 100755
index 0000000..0657557
--- /dev/null
+++ b/prolog/bin/run
@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+year=$1
+day=$2
+
+gplc -o $year/$day/problem $year/$day/problem.pl && time $year/$day/problem