diff --git a/src/ex/q004.clj b/src/ex/q004.clj
new file mode 100644
index 0000000..b8d3fdd
--- /dev/null
+++ b/src/ex/q004.clj
@@ -0,0 +1,7 @@
+;; https://4clojure.oxal.org/#/problem/4
+
+(ns ex.q004)
+
+(defn ans
+  "solving for ans in: (= (list (ans)) '(:a :b :c))" []
+  (list :a :b :c))
\ No newline at end of file
diff --git a/test/ex/q004_test.clj b/test/ex/q004_test.clj
new file mode 100644
index 0000000..1c70434
--- /dev/null
+++ b/test/ex/q004_test.clj
@@ -0,0 +1,9 @@
+;; https://4clojure.oxal.org/#/problem/4
+
+(ns ex.q004-test
+  (:require [clojure.test :as t]
+            [ex.q004 :as sut]))
+
+(t/deftest test-q3
+  (t/testing "Problem 4, Lists"
+    (t/is (= '(:a :b :c) (sut/ans)))))
\ No newline at end of file