From 02264bceba85a3cf3eaa860431873da6e0848ed0 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 18 May 2024 09:03:17 -0700
Subject: [PATCH] Housekeeping

---
 src/paradise.modal | 46 ++++++++++++++++++++++++++++------------------
 1 file changed, 28 insertions(+), 18 deletions(-)

diff --git a/src/paradise.modal b/src/paradise.modal
index 5b50e1c..d502379 100644
--- a/src/paradise.modal
+++ b/src/paradise.modal
@@ -4,18 +4,22 @@
 
 ?(?-) (Sight)
 
-<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
-	(print (\nYou are a ?V in a ?p\nYou see a ?i, a ?j and a ?k.\n\n)
-	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
-<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r))))
-	(print (\nYou are a ?V in a ?p\nYou see a ?i and a ?j.\n\n)
-	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r))))
-<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ?r)))
-	(print (\nYou are a ?V in a ?p\nYou see a ?i.\n\n)
-	:?p ((> $ :?V ?C) ((:?i ?I) ?r)))
-<> (:?p ((sight > $ :?V ?C) ?r))
-	(print (\nYou are a ?V in a ?p .\n\n)
-	:?p ((> $ :?V ?C) ?r))
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r))))) (
+	print (\nYou are a ?V in a ?p\nYou see a ?i, a ?j and a ?k.\n\n)
+	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r))))
+)
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r)))) (
+	print (\nYou are a ?V in a ?p\nYou see a ?i and a ?j.\n\n)
+	:?p ((> $ :?V ?C) ((:?i ?I) ((:?j ?J) ?r)))
+)
+<> (:?p ((sight > $ :?V ?C) ((:?i ?I) ?r))) (
+	print (\nYou are a ?V in a ?p\nYou see a ?i.\n\n)
+	:?p ((> $ :?V ?C) ((:?i ?I) ?r))
+)
+<> (:?p ((sight > $ :?V ?C) ?r)) (
+	print (\nYou are a ?V in a ?p .\n\n)
+	:?p ((> $ :?V ?C) ?r)
+)
 
 ?(?-) (Cleanup articles)
 
@@ -106,20 +110,26 @@
 <> ((drop (?q ())) parse) (
 	print (You don't see a ?q.\n))
 
+?(?-) (Transform)
+
 <> ((transform (?q ())) parse sight > $ :?V) (
 	print (You transformed into a ?q.\n)
 	sight > $ :?q)
 
-<> ((note ?q) parse) ()
-<> ((program ?q) parse) ()
-<> ((use ?q) parse) ()
-<> ((look ?q) parse) ()
+?(?-) (Note, TODO)
 
-<> ((quit ?q) parse sight > $) (?(?: ?:) (You fell asleep.\n))
+<> ((note ?q) parse) ()
+
+<> ((quit ?q) parse sight > $) (
+	?(?: ?:) (You fell asleep.\n)
+)
 
 ?(?-) (Routing)
 
-<> ((?x ?q) parse) (print (Unknown action: ?x \n))
+<> ((?x ?q) parse) (
+	print (Unknown action: ?x \n)
+)
+
 <> (() parse) ()
 
 ?(?-) (Input loop)