diff --git a/looptober.clj b/looptober.clj
index 4fc415d..74fd5a6 100644
--- a/looptober.clj
+++ b/looptober.clj
@@ -93,6 +93,9 @@
     (reset! server nil)))
 
 (defn -main [& args]
-  (println "Starting server on port 8080")
-  (reset! server (run-server #'app {:port 8080}))
-  @(promise)) ;; keep running
+  (let [port (Integer/parseInt (or (first args) "8080") 10)]
+    (println (format "Starting server on port %d" port))
+    (reset! server (run-server #'app {:port port}))
+    @(promise))) ;; keep running
+
+(comment (reset! server (run-server #'app {:port 8080})))