diff --git a/desktop/src-common/advent/utils.clj b/desktop/src-common/advent/utils.clj
new file mode 100644
index 00000000..7419e10e
--- /dev/null
+++ b/desktop/src-common/advent/utils.clj
@@ -0,0 +1,9 @@
+(ns advent.utils
+  (:require [play-clj.core :refer :all]
+            [play-clj.ui :refer :all]
+            [play-clj.utils :refer :all]
+            [play-clj.g2d :refer :all]))
+
+(defn log-coords [screen entities]
+  (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
+    (println (:input-x screen) (:input-y screen) "->" x y)))